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Appendix 1 is a printout of the source code, which is incorporated by reference herein, 
executing the functions described in the accompanying specification. Appendix 2 is a 
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copy of the source code executing the functions described in the accompanying specification. 
The contents of the compact discs are incorporated by reference herein. High level folders on 
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BACKGROUND OF INVENTION 

The present uivention relates to improvements m a Picture Archiving and 
Communications System (PACS). In particular, the invention relates to a set of software tools, 
which will create a cHent-server PACS significantly enhancing the use, transfer, and analysis of 
medical images stored in a medical image database. 

PACS operating upon medical image databases almost universally comply with the 
Digital Imaging in Communication and Medicine (DICOM) standard. DICOM is the widely 
accepted standard for digital medical data representation, encoding, storage and networking. 
The DICOM standard is specified in 14 volumes (traditionally numbered as PS3.1 - PS3.14), 
available from National Electrical Manufacturers Association (NEMA) and is well known to 



those working in the digital medical imaging area. The standard provides strict guidelines for 

medical digital imaging, and is supported by virtually all present medical system 

manufacturers. The DICOM standard is object-oriented and represents each information entity 

as a set of Data Elements (such as Patient Name, Image Width) with their respective values 

encoded with DICOM Dictionary (PS3.5-PS3.6). While there are numerous existing PACS 

with many specialized features, these PACS could be enhanced with new forms of data 

compression and other features rendering the PACS more efficient to the user. 

Existing PACS have included methods of lossless compression, such as the well-known 

Joint Photographer Experts Group (JPEG) algorithm. Lossless compression is naturally a more 

limited form of compression since it is necessary to preserve all information in the image. 

Because the degree of compression is more limited, there is always a need in the art to provide 

more efficient methods of losslessly compressing image data. Therefore, the present invention 

provides an improved method of lossless compression. 

In addition to JPEG lossless compression, DICOM provides a method of JPEG lossy 

compression. DICOM support for the standard lossy JPEG compression can be implemented 

with an object-oriented JPEG class having the following Compress method: 

int JPEG::Compress(BYTE'^ input, BYTE^ output, int quality, int bpp=^l, bool 
rgb=false) 

wherein the parameters of this method are: 

BYTE^ input -~ a pointer to the original image pixel array, 
BYTE^ output - a pointer to the compressed image pixel array 
int quality ~ compression quality 
int bpp ~ bytes per pixel in the original image 

int rgb - color flag of the original image (true if a color image is given, and false for 
grayscale). 
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The function "Compress" returns an int or integer value which is the size of the compressed 
image (i.e. the size (number of bytes) of the output array). Naturally, in lossy compression, the 
amount of compression will correspond to a certain amount of information loss in the original 
image. In standard JPEG, the amount of information loss in the Compress function is specified 
with JPEG quality parameter, which ranges from 0-100%. A quality=lQOVo corresponds to 
minimal loss and low compression ratios, while a smaller quality percentage value corresponds 
to a higher loss and a higher compression ratio. The choice of the quality value permits the user 
to compromise between the perceptional image quality and the compressed image size. 
However, the main disadvantage of the quality parameter is that it is not directly related to the 
corresponding compression ratio: i.e., setting quality to 50% will produce different 
compression ratios for different images. For example, at 50% quality, a low entropy (low 
information content) unage would be compressed much more than a high entropy (high 
information content) unage. Therefore, if one is attempting to compress images with varying 
information content to the same predefined compression ratio, the quality parameter becomes 
practically useless. Thus, what is needed in the art and what is provided in one embodiment of 
the invention described below, is a new JPEG compression method based on a predefined 
compression ratio, rather than compression quality. 

PACS are often implemented on network systems such as Local Area Networks (LANs) 
and include a server system controlling the transfer of medical image data from storage devices 
to muhiple chent systems. Since medical image files are typically large data files, it is not 
vmcommon for simultaneous data requests from multiple client systems to heavily burden the 
existing bandwidth of the network's data link. Insufficient network bandwidth to accommodate 
the demand of client systems results in undesirably slow download of data to the chent systems. 



Network bandwidth on any given network can also vary significantly depending on the number 
of clients currently using the network or other factors placing computational load on the 
system. 

Compressing an image prior to it being transferred across the network is one manner of 
5 compensating for insufficient bandwidth. Compressing data on a local computer is typically 
done much faster than downloading an image from a remote system. Therefore, compressing 
data by n times before transmission will reduce the download time of that data by nearly n 
times. As mentioned, the DICOM standard already includes JPEG lossless and lossy 
compression for local image storage. It may often be possible to alleviate most bandwidth 

10 problems by compressing data to a large degree (typically through lossy compression). 
However, lossy compression results in the loss of some information in the compressed data and 
this loss may be unacceptable in medical images which are used in certain applications. Even 
where lossy compression is acceptable, it is desirable to minimize the information loss. 

What is needed in the art is a method of maintaining an acceptable download time 

15 across a network while compressing image data only to the degree necessary to maintain that 
download time. In other words, a method of adjustably compressing data in response to the 
available network bandwidth. 

Another shortcoming of existing PACS is their failure to encapsulate audio information 
in DICOM objects. Audio information is often used in medical practices to record reports, 

20 clinical sounds, and the hke. However, unhke image data, the DICOM standard provides no 
support for sound data encapsulation in DICOM objects. Typically, DICOM compliant 
systems store and interpret audio data separately, with the respective DICOM image object 
containing a pointer to the present audio data location. The main deficiency of this approach is 
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that the audio data is separated from the rest of the DICOM information. Thus, the audio data 
can be lost, it is not available at the same time as the image, and its retrieval involves additional 
processing steps. However, the generality of the DICOM standard allows representation of any 
information as a part of a DICOM object. Therefore, it would be a significant advancement in 
the art to provide a method for encapsulating audio information in a DICOM object. 

Ray Tracing is another software tool commonly used in medical imaging. Ray tracing 
is a method of analyzing three-dimensional data in order to produce a properly shaded three 
dimension appearing image on a monitor. As described in more detail below, ray tracing 
performs two basic steps, ray generation and data volume traversal, for all of (or at least a large 
number of) the pixels on the monitor displaying the image. This repetitive computational 
processing thus requires unusually high computing power and consumes an undesirable amount 
of processing time. Improving the speed at which ray generation and data volume traversal are 
performed would significantly speed up ray tracing image production because of the repetitive 
nature of these two operations. 

SUMMARY OF THE INVENTION | 

The present invention provides a method of lossless image compression comprising the | 

I 

steps of (a) taking a sample of pixel neighborhoods from an image file, (b) using the sample of | 
pixel neighborhoods to determine a series of predictive coefficients values related to the pixel 
neighborhoods, (c) determining prediction residual values based on the coefficients values, and 

i 

(d) losslessly compressing the prediction residual values. I 

The invention also provides a method of adjusting the quality parameter in a quality 
controlled compression routine in order to compress image data a predetermined compression 
ratio. The method comprises the steps of: (a) receiving a desired compression ratio, (b) 
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selecting an estimated quality value, (c) compressing the image data based on the quality value 
and calculating an intermediate compression ratio from the compressed image data, (d) 
adjusting the quality value in iterative steps and recalculating the intermediate compression 
ratio, (e) returning a final quality value after a predetermined time period or when the 
predefined ratio is achieved, and (f) compressing the image data to the final quality value using 
the quality controlled compression routine. 

The invention also includes a method of adjusting the compression ratio of image data 
based upon the available bandwidth of a network link across which the image is transmitted. 
The method comprises the steps of: (a) determining the size of an image to be transmitted, (b) 
selecting a desired download time for downing loading the image fi*om a network link, (c) 
determining a current download time based upon current network conditions, and (d) 
compressing the image if the current download time is greater than the desired download time. 

The invention also includes a method of encapsulating audio data m a DICOM object 
and selectively retrieving the data. The method comprises the steps of: (a) providing a DICOM 
compliant recording function having parameters representing a recording time and a record size 
of the audio data, and (b) providing a DICOM compliant playback function having a parameter 
representing a playback start position. 

The invention also includes an improved integer based ray tracing method for 
constructing two-dimensional images from three-dimensional data. The ray tracing method 
comprises the steps of: (a) receiving a set of three-dimensional image data containing an object 
of interest, (b) receiving an observer position, (c) establishing a ray angle from the observer 
position, through the three-dimensional data, to a two-dimensional image plane, (d) adjusting 
the ray angle such that the directional components of the ray angle are rational numbers, (e) 



back projecting from a selected number of picture elements on the two dimensional image 
plane a series of rays parallel to the ray angle, the rays passing though the three-dimensional 
image data to origin points, (f) for each ray intersecting the object of interest^ determining a 
relative distance between the origin point and a point of contact where a ray intersects the 
object of interest, (g) determining a surface angle relative to the origin point for each of the 
points of contact, and (h) adjusting the intensity of the picture elements on the two dimensional 
image plane relative to the surface angle of the points of contact. 

The invention also includes a method of reducing flicker caused by a magnifying 
window moving across an image on the display screen. The method comprises the steps of: (a) 
storing the image in the memory, (b) storing a first window position in the memory, (c) reading 
a second window position, which overlaps the first window position, (d) determining what 
portion of the first window position is not covered by the new window position, and (e) 
restoring from memory that portion of the image which corresponds to the portion of the first 
window not covered by the second window. 
BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 is an illustration of a pixel neighborhood. 

Figure 2 is a pseudocode segment illustrating the predictive lossless compression 
method of the present invention. 

Figure 3 is a pseudocode segment illustrating the ratio based lossy compression method 
of the present invention. 

Figure 4 is a pseudocode segment illustrating the method for determining ciirrent 
network bandwidth for appUcation entities. 
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Figure 5 is a pseudocode segment illustrating the method for determining if 
compression is necessary and to what degree compression should be carried out. 

Figure 6 is a pseudocode segment illustrating a timing method employed in the present 
invention. 

Figure 7 is a pseudocode segment illustrating a sound recording function employed in 
the present invention. 

Figure 8 is a pseudocode segment illustrating the method for implementing the 
SoundRecoder object of the present invention. 

Figure 9 is a conceptual representation of a three-dimensional data set. 

Figure 10 is a schematic representation of prior art ray tracing methods. 

Figure 1 1 is a detail of multiple rays striking the surface of an object of interest. 

Figure 12 is an graphical illustration of a prior art method used to determine the surface 
angle orientation of the object of interest at the point of ray impact. 

Figure 13(a) is a graphical representation of a three-dimensional data set being traversed 
by a ray. 

Figure 13(b) is a graphical representation of an individual cell within a three- 
dimensional data set being traversed by a ray. 

Figure 14 is a graphical illustration of the ray tracing method of the present invention. 

Figure 15(a) is a graphical representation of a three-dimensional data set being traversed 
by a ray in the method of the present invention. 

Figure 15(b) is a graphical representation of an individual cell within a three- 
dimensional data set being traversed by a ray in the method of the present invention. 
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Figure 16 is a graphical illustration of the parabolic interpolation method of the present 
invention. 

Figure 17 is a graphical illustration of the known pixel values used to interpolate the 
unknown pixel values in the present invention. 

Figure 18 is a graph illustrating an optimum step size d when using the race tracing 
method of the present invention. 

Figure 19 is an illustration of an image on a view screen with a magnified window 
appearing on the screen. 

Figures 20(a)-20(c) illustrates how a prior art magnifying window proceeds through 
successive steps to update the window position. 

Figure 21 illustrates the improved method of updating the magnifying window in 
accordance with the present invention. 

Figure 22 is a flow chart of the improved method of updating the magnifying window in 
accordance with the present invention. 

Figures 23(a)-23(c) illustrate methods of optimizing contrast in the magnified image of 
the present invention. 
DETAILED DESCRIPTION 

Where appropriate, the terminology used in the following description is a part of the 
DICOM standard and is well known to persons of ordinary skill in the medical imaging art. For 
the embodiments described herein, the defmitions of various DICOM classes and functions are 
presented in C++ object-oriented syntax and the fianctional interface of these classes is 
illustrated in the fimction definitions and pseudocode appearing herein. 
Enhanced (predictive) lossless compression. 
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One aspect of the present invention is to provide an improved lossless compression 
method. Lossless compression is the compression of data without any informational loss - i.e., 
the original data (for example an image) can be completely recovered from its compressed 
version. One advantageous method of implementing a lossless compression method for images 
is to use natural inter-pixel correlation, i.e. the tendency for neighboring pixels in an image to 
have close numerical values. If an NxM digitized image is represented as an NxM matrix 
I(x,y), where the value of I(x,y) represents pixel's intensity at the point (x,y), a predictive model 
for each pixel's intensity can be written as: 

I{^.y)= J^c,jI(x-Uy-j) + eix,y), (1) 

0<ij<a 

where are coefficients, and e(x,y) is the prediction residual. 

Figure 1 illustrates a set of pixels, which may be referred to as a pixel neighborhood. 
The left-bottom neighborhood adjacent to the reference pixel (x,y) will be considered the Ifx- 
iy-j) neighborhood where / and j are equal to the neighborhood size a. In Figure 1, a is equal 
to 3. 

If are known, equation (1) illustrates how I(x,y) can be losslessly recovered from its 
left-bottom pixel neighborhood I(x-hy-j), and a small error e(x,y). Thus, the only information 
needed to represent the compressed image is the values e(x,y) and the coefficients cq. Since the 
values of e(x,y) can usually be efficiently and losslessly encoded with entropy-based 
compression (such as Huffinan compression), a significant degree of compression of the 
original image may be realized using the method of the present invention. 

Modem lossless compression techniques such as JPEG and JPEG-LS use predefined 
coefficient values and relatively small neighborhoods of a=l or a^l pixels. However, it has 
been discovered that extending the neighborhood size (increasing the a value) to a=3 and aM, 
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and choosing Cij based on the given image produces substantially better compression ratios. 
These superior compression ratios are on the order of a 20%-30% increase over JPEG 
techniques. This is a significant improvement when dealing with lossless compression. 

The compression technique of the present invention generally comprises four steps. First, 
the image will be sampled for a series of pixel neighborhoods from which the prediction 
coefficients Cij will be calculated. Second, the coefficients dj will be determined by linear 
regression. Third, equation (1) will be used to compute e(x,y) for each pixel. Lastly, the values 
for e(x,y) will be losslessly compressed. 

Sampling the image for pixel neighborhoods. 

In order to compute Cij in equation (1), a population of pixel neighborhoods must be 
chosen. Naturally, the minimum number of independent samples required must be at least the 
number of coefficients sought to be calculated. While the maximum number of samples could 
equal the number of pixels in the entire image, this sampling strategy would become 
excessively time-consuming. A preferred alternative is to choose a set of sampling 
neighborhoods (xs,ys). where S is the total number of samples and s represents a particular 
sampling index ranging from 1 to S, The set of S samples may be obtained by sampling the 
image in a uniform manner using a predetermined sampling step d. Thus, it will be readily 
apparent how the following pseudocode would operate to select a set of samples: 

s=l; 

for(x=l; x<N; x+^d) 
{ 

for(y=l;y<M;y+=d) 
{ 

Consider the current point (x,y) as the right-top point of 
the next neighborhood sample # s; 
Increment s=s-^l; 

} 

} 
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This routine will produce S^NM/d^ samples with each sample being an [(a+1) x (a^l)]-! set 
of adjacent pixels from the original image. As suggested above, the value of must be chosen 
to insure a sufficient number of samples to solve for the number of coefficients Cij to be 
computed from equation (1). This requires that S obey the inequality 

S = NMId^ >{a + \)\ (2) 
which in turn leads to the constraint 

d<d^=4NM l{a^\y (3) 
For practical purposes, and with large images, one may choose smaller values of d (i.e. more 
neighborhood samples) to insure a more accurate approximation of from the samples apphed 
to equation (1). One preferred embodiment of the invention uses a sampUng step d governed 
by the relationship d^max(l, do/ 10), 

Finding C jj with linear regression 

Equation (1), taken over all samples s, results in a typical linear regression problem that 

can be resolved with the well-known least-squares approach. The coefficient values coj , c^o . 

C}j , ..^^ , Ca^a may be chosen to minimize the sum of squared errors e(xs,ys) in equation (1) over 

all the neighborhood samples. The steps of solving for the coefficients may be best 

visuahzed using matrices with the following notations: 

Vector C = [ cqj , cio > cij , .... , Ca,a]~ unknown prediction coefficients 

Vector V = fl(xi,yj) , /feja) , ... /fey^^y^- left-hand parts of (1) for each sample s. 

Vector Wij =[I(xrhyH) . I(x2<y2-j) , ... I(xs-i Js-j)]^- right-hand parts of (1) for each sample s 

and each (ij) pair. 

Equation (4) illustrates how equation (1) may be rewritten as the matrices 
V = C[Wq^ , fTj 0 , fTj 1 W^^a ] = C'^, and, after multiplication by W^, may be written as 

VW^ ^C{WW^) = CF (4) 
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after which C may be solve for as 

C = (VW'XWWy = (VW')iF)-' (5) 
Matrix F has yk/coefficients Fp^q, where f=(a+ if -1. Computing C has two basic steps. First, 
the inversion of this matrix F is determined. Once is found, coefficients C may be 
determined firom equation (5). Typically, the calculations may be simpUfied by quantizing the 
coefficients dj into an integer form represented by kj. This may be accomphshed by 
multiplying aj by 2'° or 1024. Thus, kj =[1024* aj ] or Cij=kj/1024. or in matrix notation, 
C=^1024. 

Most practically, the step of actually determining will not be carried out, but instead 
equation (4) will be solved using Integer Gaussian elimination. As above, C is first quantized 
by multiplying both sides in equation (4) by 1024: 

(1024 * VW^ ) = 1024 *CF = KF 

and solving 

(1024* VW'') = KF 

for K with traditional Gaussian ehmination techniques well known in the art. One suitable 
software routine for Gaussian elimination is found in "Numerical Recipes in C", 2nd Ed., Press, 
Teukolosky, Vetterling, and Flannery, Cambridge University Press, 1992, the relevant portions 
of which are incorporated herein by reference. All vectors in the equation 
(1024*VW^) = KFha-ve integer components, which ensures very fast convergence. A good 
initial approximation of .S: may be ^:=/"572, 512, 0, 0, ... , 0] (corresponding to C=[0.5, 0.5, 0, 
0, ... , 0]). It is noted that these values for C are the fixed values used in JPEG compression. 
Therefore, all iterations of Gaussian elimination beyond this initial estimate of C insure that the 
resulting coefficients will produce compression ratios superior to JPEG. 
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Those skilled in the art will recognize it may also be practical to find the coefficients 
from direct inversion of the F matrix is small (i.e. /<4). For example, if F' would be 
found as: 
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While this approach can be used efficiently for f<4. Once / exceeds 3, it is more practical to use 
the Gaussian elimination method described above. 
Applying equation iW to c ompute e(x.v) , 

Once coefficients Cy=it//1024 are determined, the most efficient manner of determining 
e(x,y) is to utilize the quantized equivalent of equation (1): 



»\^-ve{x,y). 



(6) 



where » stands for a 10-bit right shift operation, which is equivalent to division by 1024, but 
computationally faster in binary systems than standard division operations. The pseudocode 
seen in Figure 2 implements the predictive lossless image compression in a manner readily 
followed by a person of ordmary skill in the programming arts. Note comments indicated by 
7/". 

Losslessly compressing and decom pressing e(x.v) 



Once the integer sequence far e(x,y) has been calculated as above, the e(x,y) sequence 
will be encoded with any entropy-based coding scheme, such as Huffman compression. The 
encoded e(x,y) sequence will form the basis of the compressed image file. Additionally, the 
sequence oikij is stored as a header of the compressed image. 
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It will be obvious that decompressing the image file is substantially the reverse of the 
above described steps. To decompress the image file, one first reads the sequence of kj 
coefScients firom the compressed image file header. Then the remaining sequence of e(x,y) is 
then decoded with the entropy based scheme (e.g. Huffinan decoding). Finally, the original 
image I(x,y) may be recovered from e(x,y) and kj using equation (6) and a procedure 
substantially the reverse of that seen in the pseudocode. 

Real-Time JPEG. Another aspect of the present invention is providing an improved 
JPEG Compress function. The Compress function should be capable of compressing an image 
to a predefined compression ratio. This compression ratio-based JPEG is implemented similarly 
to traditional JPEG, but takes a compression ratio parameter {ratio) instead of the quality 
parameter. The parameters other than ratio are the same as described above for traditional 
JPEG Compress function. In the description below, the new function is denominated 
CompressR: 

int RJPEG::CompressR(BYTE* input, BYTE* output, double ratio, int bpp=l, bool 
rgb=false). 

Thus, when a compression ratio is provided, the fimction will return an integer value that is the 

original image size compressed by the given ratio. For example, ratio=2.0 means that the 

original image must be reduced in size by at least one half of its original size. 

The present invention also includes a further improvement upon the standard JPEG 

Compress fiinction. This second modification includes also a time constraint hmiting the time 

during which the function may operate to achieve the desired compression ratio. 

int RTJPEG::CompressRT(BYTE* input, BYTE* output, double ratio, double maxtime, 
int bpp=l, bool rgb=false). 
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where maxtime gives the maximum time in seconds in which the routine is allowed to perform 
the compression. Of course, given CompressRT function, the previous, CompressR function 
can be always expressed as 

CompressR(BYTE* input, BYTE* output, double ratio, int bpp=l, tool rgb=false) 
{ 

return CompressRT(input, output, ratio, 1000000, bpp, rgb); 

} 

where some very large maxtime value (e.g. 1,000,000) is used to indicate that the time 
constraint is not required. 

One manner in which the CompressRT function may be implemented is by using the 
standard JPEG Compress with an appropriate quality value estimated iteratively to ensure the 
proposed compression ratio. One example of implementing the CompressRT function in a 
software routine may be illustrated with the pseudo code seen in Figure 3. 

It will be understood that in the pseudo code of Figure 3, comment lines are preceded 
by the 7/" symbol. Those skilled in the art will recognize many standard functions presented in 
C++-type pseudocode; for example the dockQ function discussed below. The other functions 
like SizeQ can be easily implemented by those skilled in the art. These standard functions are 
well known in the software programming art and need not be elaborated upon further. 

As indicated above, the CompressRT function will take the parameters ratio and 
maxtime and return an integer value equal to the size of the compressed image. Viewing Figure 
3, the first step in the CompressRT xoMXinQ is to determine the size of the original image with a 
SizeQ function. Next, minimum and maximum quality values {qO and ql) are set. For 
illustration purposes only, these values have been set to 5 and 95 respectively. While (qO and 
ql) could be initially set to any percentages, 5 and 95 are good initial values and selecting a 
narrower range should not materially enhance computational speed. Using the standard JPEG 
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Compress function with qO and qU respective compression ratios {rO and rl) corresponding to 
the minimum and maximum quality values may be determined. This is accomplished by 
dividing the size of the original image by the size of the image compressed to the qualities qO 
and qL It will be understood that the lowest quality value results in the highest compression 
ratio rO. Similarly, the highest quality value results in the lowest compression ration rL 

The routine determines whether the desired or predetermined ratio is either lower than 
the lowest compression ratio {rl) or higher than the highest compression ration (rO), If the first 
condition of ratio<rl is satisfied, then even the most quality-preserving compression at 
q^qj=95% already achieves ratios higher than the desired ratio, therefore the image is 
compressed to this level, and the CompressRT function exits. If ratio>rO is true, then lossy 
JPEG can provide at most a rO compression ratio. Since the compression ratio ratio is 
impossible to achieve, the image is compressed to the highest possible rO level, and the 
CompressRT function exits. 

However, assuming the parameter ratio is within vO and rl, the routine will begin the 
steps required to estimate a quality q which corresponds with the desired compression ratio, 
ratio. Two variables, start and finish of the type clockj, will be declared. Start will be 
initialized to the present clock value by a standard function such as clockQ, A variable 
duration will be initialized to zero and a variable r will be initialized to the value of ratio, r 
will serve as an intermediate value of the compression ratio while the routine performs the 
iterative steps governed by the condition while(duration < maxtime). The first step in the while 
loop is the estimate of the quality value q. This estimate may be made by any number of 
methods, with two preferred methods being shown in the pseudo code. The linear estimate 
uses the parameters q, qO, ql, r, rO, and rl in the equation q = qO^(r-rO)''(ql-qO)l(rl-rO), 
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Alternatively, a simpler bi-section estimate may be obtain by the equation q = (ql+q0)/2. 
Obtaining an estimate of q allows an updated intermediate compression ratio r to be found by 
dividing the size of the original image by the size of the image compressed to the intermediate 
quality q. 

The intermediate compression r is then compared to the desired compression, ratio. If r 
is less than ratio, the lowest ratio rl is set equal to r. If ql is equal to q, then the routine will 
exit the if loop, otherwise ql will be set equal to q before another iteration is performed within 
the z/loop. Alternatively, if r is greater than ratio, the highest ratio rO is set equal to r. If qO is 
equal to q, then the routine will exit the z/loop, otherwise qO will be set equal to q before 
another iteration is performed within the if loop. It will be understood that this loop provides 
an iterative process where the changing integer values of ql and qO will converge upon the 
intermediate value of q. In fact, it can be derived mathematically that the bisection iterative 
process will take at most [log2(95-5)]=7 iterative steps to converge. 

The point of convergence will provide a quality value integer q which produces the \ 
compression value r closest to the desired compression value, ratio. It should be noted that | 

! 

after each iteration, the variable duration is recalculated by subtracting the start variable from | 
the finish variable and dividing by the clock frequency (i.e. CLOCKS_PER_SEQ. If the | 
duration of the iterative process exceeds maxtime, the iterative loop will be exited with the best ! 
compression ratio r and quality q estimates found up to this point in the program's execution. 

Once the iterative loop is exited, the last intermediate quahty value q will be passed to | 
the standard JPEG Compress fvmction. This value of q will be used to compress the input 
image and the size of the input image will be returned to the main function RTCompess. In this 
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maimer, the function RTCompress determines the size of an input image compressed to a 
desired compression value, ratio. 

This version of CompressRT just described uses the entire image to estimate a 
compression quality sufficient to achieve the desired compression ratio. This is practical when 
the estimation process on local computer (i.e. server) can be run fast enough not to interfere 
with other operations (such as transferring images across a network). If greater computational 
speed is required, then a smaller sub-sample of the original image may be used to estimate the 
ratio and quality with CompressRT, and then the estimated quality value may be used to 
compress the original, fiill-sized image. 

The following example illustrates how this sub-sample method reduces computational 
time. In the above code, each step requires one CompressQ call to update the current estimated 
compression ratio r, and two more calls are made with q0=5 and ql=95 quaUty values before 
the iterations start. That means that with the worst case scenario (using the bisection estimate 
method), CompressRTQ will take approximately 7+1+1=9 times longer to execute compared to 
standard JPEG CompressQ. When network bandwidth is low, this computational time overhead 
will have negligible effect on the total image download time. However, where bandwidth is 
high and download time comparatively fast, the computational overhead may be reduced by 
using a smaller image sub-sample to estimate the ratio in CompressRTQ. One suitable 
technique is to use the central part of the original image, with 1/7 of the original image size in 
each dimension. In this case, the number of pixels in this sample will be 1/7 * 1/7 = 1/49 of that 
of the original image size. Since JPEG compression complexity is proportional to the number 
of pixels operated upon, 9 iterations for 1/49 of the original data will take 9*(l/49) = 0.18- 
reducing time overhead to at most only 18% of the full image JPEG compression time. 
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Dynamic DICOM Image Compression. Another embodiment of the present invention 
provides a method of adjustably compressing data in response to the available network 
bandwidth. This method will be referred to herein as "dynamic compression". Dynamic image 
compression can be implemented on top of the DICOM standard as a set of classes/services 
fiilly compUant with DICOM object-oriented design. Where appropriate, the terminology used 
in the following description is a part of the DICOM standard. The definitions of dynamic 
DICOM compression classes are presented in C++ object-oriented syntax and the fimctional 
interface of these classes is illustrated in the pseudocode reference in connection therewith. 

n DTCOMOhiect Class 

The DICOMObject class represents a DICOM Data Set defined in the part PS3.5, 
Section 7 of the DICOM standard. The DICOMObject class will support the following 
functions which are utilized in the dynamic compression program of the present invention: 

int - GetSizeO - This function returns the size of a DICOM object in bytes. The 
returned size is defined as the total size of all DICOM data element values and data element 
tags, as specified in part PS3.5 of the DICOM standard. 

int Compress(bool lossless, double ratio, double maxtime^ 1000000) - JPEG-compresses 
the image data inside the DICOM object. If the lossless parameter is set to true, then either the 
improved losseless compression described above may be used or_standard lossless JPEG 
compression may be used (DICOM PS3.5, Section 8.2.1), and the ratio parameter is ignored. If 
the lossless parameter is set \o false, then lossy JPEG compression is used (also DICOM PS3.5, 
Section 8.2.1) as described above with the novel CompressRTQ method. The ratio parameter 
will define the required compression ratio, which should be greater than 1.0. Moreover, the 
third parameter, maxtime, can also be used fi-om the described CompressRTQ maplementation if 
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limiting compression time of a specific duration is desired. In such a case, the compression 
ratio would be the ratio achieved at the expiration of maxtime. The Compressfbool lossless, 
double ratio, double maxtime) function returns a positive integer number, which is the new size 
of the DICOM Object after its image part is compressed as specified. This new size is 
approximately equal to the original data size divided by ratio. The method returns -1 if JPEG 
compression fails for any reason. 

2) ApplicationEntitv Class 



This class implements a DICOM "appHcation entity", as described in DICOM PS3.7. An 
appUcation entity is any device within the network (e.g. PC, printer, disk storage etc.) which 
can be involved in a DICOM image exchange. An instance of the ApplicationEntity class is 
primarily defined by its internet protocol (IP) address and port (socket) number, at which the 
DICOM networking occurs; this data is stored in the class' private variables. The 
ApplicationEntity class must also implement the following functions: 

bool CanAcceptCompressedQ - This function returns true if this application entity can 
accept JPEG-compressed images. This is equivalent to supporting the "1.2.840.10008.1.2.4.50" 
- "1.2.840.10008.1.2.4.66" and "1.2.840.10008.1.2.4.70" DICOM unique identifiers as set out 
in part PS3.6, Annex A of the DICOM standard. If CanAcceptCompressedQ VQtums false, only 
uncompressed data can be sent to this application entity. 

bool CanAcceptLossyQ - Provided that JPEG compression is permitted (i.e. 
CanAcceptCompressedQ returns true), this function verifies whether lossy JPEG compression 
is permitted at this appHcation entity. The return value of true means that images with lossy 
JPEG compression may be accepted, which is equivalent to supporting the 
1.2.840.10008.1.2.4.50" -"1.2.840.10008.1.2.4.56" and "1.2.840.10008.1.2.4.59" - 
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1.2.840.10008.1.2.4.64" DICOM unique identifiers (part PS3.6, Annex A of the DICOM 
standard). The return value of false indicates that that only the images with lossless JPEG 
compression are accepted, which is equivalent to supporting the unique identifiers 
"1.2.840.10008.1.2.4.57", "1.2.840.10008.1.2.4.58", "1.2.840.10008.1.2.4.65", 

"1.2.840.10008.1.2.4.66" and "1.2.840.10008.1.2.4.70". 

void SetCurrentBandwidth(double bwidth) - This function writes the bandwidth value, 
bwidth, to the corresponding private member of the ApphcationEntity class (with units of 
bytes/second). This function has no influence on the actual network bandwidth; rather, it 
simply records that the bandwidth was found to be equal to bwidth, and stores this value into a 
private variable oi the ApphcationEntity class. 

double GetCurrentBandwidthQ - This function returns the network bandwidth bwidth, 
associated with the apphcation entity, and which was previously recorded with the 
SetCurrentBandwidthQ function. If no bandwidth value was previously recorded, the function 
returns -1 . 

void SetMaximumCompressionRatio(bool lossless, double ratio) - This function records 
the compression type and maximum compression ratio that is acceptable at the apphcation 
entity. The lossless=true type indicates that only images compressed with a lossless algorithm 
can be sent to this apphcation entity, and in this case the ratio parameter is ignored. The 
lossless=false type indicates that the apphcation entity can accept lossy image compression, 
with the maximum compression ratio being equal to ratio. Whether the application entity 
accepts compression and to what ratio compression is accepted, may depend on the use of the 
application entity. For example, if the application entity is a computer and monitor from which 
physicians will view the image for diagnosis purposes, it will not be acceptable to lose 



22 



significant amounts of information in the transmitted image. Therefore, no compression may 
be allowed or only a limited degree of compression allowed. 

double GetMaximumCompressionRatioO - This function returns the maximum image 
compression ratio, ratio, accepted at the application entity and which was previously recorded 
with the SetMaximumCompressionRatioQ function. 

void SetDownloadTime(int time) - This function sets the maximum download time (in 
seconds) in which the application entity is required to receive any DICOM object over the 
network. This is a download time constraint which will be set for each application entity by an 
operator (e.g. the network administrator) and will act as a "real-time" network requirement 
imposed on these particular application entities. 

int GetDownloadTimeQ — This function returns the maximum object download time 
previously set SetRequiredTimeQ, 

An alternative way to control real-time networking would be specifying download time per 
information unit size (i.e., sec/Kbytes), which is equivalent to specifying desired network 
bandwidth. The choice between time and time per size will depend on specific application 
needs. 

3) ApplicationEntityArray Class 

This class may be defined as an array of ApphcationEntity instances: 
ApplicationEntity[MAX_AENUMJ, where MAX_AENUM is a constant specifying the 
maximum number of application entities possible on the given DICOM network (i.e., the total 
number of PCs, printers etc. at the current installation site). It also may implement the 
following methods: 
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void SetCurrentEntity(int index) - This function sets the current remote network 
application entity to entity number index. From the moment this function is called, all images 
and data will be sent from the local archive to the particular entity identified by index. This 
will continue to be the case until SetCurrentEntity is called again for a different apphcation 
5 entity. 

ApplicationEntity GetCurrentEntityQ - returns the cxirrent remote application entity to 
which data is presently sent over the DICOM network, 

4) PDU Class 

This class implements the DICOM Protocol Data Unit (PDU), as described in the PS3.8 
10 part of the DICOM standard. The PDU class estabUshes the network connection parameters 
(e.g. packet headers, portion of network band over which image is sent, and data modality - e.g. 
CT, MRI, Ultra Sound) between the server and the apphcation entity receiving the object or 
image being transmitted. As a part of this standard DICOM implementation, the class must 
include the following function: 
15 bool Send(DICOMObject& d, ApplicationEntity& ae) - sends DICOM object d to 

application entity ae over DICOM network, as specified in DICOM PS3.5-PS3.8. This 
function returns true if the object successfully sent false otherwise. 

5) NetworkTimer Class 

The NetworkTimer class is responsible for timing current network performance. It 
20 implements the following functions: 

void StartTimerQ - starts network timer for the current DICOM network connection. 
double EndTimerQ - stops network timer for the current DICOM network connection. 
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These two functions, as well as the timer itself, can be implemented based on C time- 
processing functions such as localtimeQ and ctimeQ, which are well known in the art. Because 
network bandwidths will vary over time due to use conditions and other factors, it is necessary 
to periodically update the current bandwidth measurement. To compute the current network 
5 bandwidth, the following fimctions are used: 

int GetDataSize(DICOMObject& d) - This function takes a reference to any DICOM 
object d (i.e. an image) to be sent over the network, and computes the object's size in bytes. 
This size is computed with d, GetSizeQ function previously defined as part of the 
DICOMObject class. 

10 void EstimateCurrentBandwidth(ApplicationEntity& ae) - This function updates the current 
bandwidth value for the application entity ae based on observed network performance. The 
current bandwidth bwidth is computed by dividing the size, provided by the last call of 
GetDataSizeQ function, by time elapsed from the last call of the StartTimerQ function (the time 
elapsed can be found inside the EstimateCurrentBandwidthQ fimction by calling the 

15 EndTimerQ fimction). Once bwidth is computed, this value is passed to the application entity 
variable ae with a call to the function ae.SetCurrentBandwidth(bwidth). 

Once the above classes and functions are established, it is possible to implement a 
program which will accept and maintain a maximum allowable time for downloading an image 
over a network. The program will monitor the bandwidth or all apphcation entities in that 

20 network; and then when an application entity requests an image, to compress the image to the 
degree necessary for the application entity to download the image in less than the maximum 
allowable time. Such a program may be illustrated with the following segment of pseudo code 
seen in Figure 4-6 and written in C-H- syntax. It will be understood that language following the 
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"//" notation are comments. The current network bandwidth for all application entities may be 
monitored with the pseudo code seen in Figure 4. 

It can be seen in this code how ApplicationEntity ae=ael.GetCurrentEntity() identifies 
to which application entity an image is to be transmitted over the network. A PDU connection 
is then created between the server and the appUcation entity. Next, from the NetworkTimer, the 
function GetDataSize(d) instructs the timer to prepare timing the network transmission of 
d.GetSizeQ bytes. Then the StartTimerQ function will initiate the clock sequence. The PDU 
class function Send(d,ae) will transmit object d to the application entity ae. When the object 
has been downloaded by the application entity, the EstimateCurrentBandwidthQ function will 
stop the clock sequence (with EndTimerQ call). It will be readily apparent that the fimction 
EstimateCurrentBand(ae) may calculate the current bandwidth in bytes/sec. by dividing the 
size of the image by the time elapsed during transmission of the image. This measure of 
bandwidth will be made each tune an object is transmitted to an apphcation entity, thereby 
allowing a recent bandwidth measurement to be used when determining the compression ratio 
of the next object to be transmitted to that apphcation entity. The pseudo code segment of 
Figure 5 illustrates this procedure. 

The code seen ui Figure 5 will determine if compression is necessary and allowable and 
if so, to what degree compression should be carried out. The function GetSizeQ determines the 
size of the object d and assigns the size value to the variable dsize. The maximum allowable 
download time for the apphcation entity ae is retrieved with GetDownloadTimeQ and assigned 
to the variable ntime. A variable representmg the tune needed to download the object d with 
the current bandwidth, ctime, is assigned the value obtained by dividing the object size dsize by 
the current bandwidth for apphcation ae (returned by ae.GetCurrentBandwidth). If the 
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condition if(ctime>ntime) is false, then the objected is transmitted with no compression. If the 
condition is true, the program first determines whether the application entity ae accepts lossy 
compression {ae.CanAcceptLossyQ). If this condition is true, the lossy compression ratio will 
be determined by selecting the lesser (using the standard C function min()) of ctime divided by 
ntime or the maximum allowable compression ration for that apphcation entity 
(ae.GetMcamumCompressionRatioO). The object will be compressed to the degree of ratio. 
If the apphcation entity does not accept lossy compression but does accept lossless 
compression, lossless compression will be apphed to the object. If the apphcation entity does 
not accept any type of compression, the object will be transmitted over the network in an 
uncompressed forniat, even if the object may not be downloaded within the desired time 
constraints. 

From the above disclosure, it will be readily apparent that this embodiment of the 
present invention provides a method of adjusting the compression ratio of image data based 
upon the available bandwidth of a network across which the image is transmitted 

The invention also encompasses an alternative method for implementing the time 
fvmctions StartTimerQ and EndTimerQ. Above, the standard C localtimeQ and ctimeQ 
fiinctions were utilized, but these ftinctions only measure time as an integer (i.e. as a whole 
second). An alternative implementation, which would measure time within fractions of a 
second, is possible with Windows API. The class is designated AccurateTimer and is 
illustrated with the pseudo code seen m Figure 6. However, it is noted that the AccurateTimer 
class is known in the prior art and is shown here as an example, and not as part of the present 
invention. 
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Sound Encoding. The present invention further mcludes a method of encapsulating 

audio data in a DICOM object such as an image. This is accompUshed by creating a 

SoundRecorder object which performs sound recording and playback. The sound is captured 

and played by the sound recording hardware, including PC sound card, microphone and 

speakers. When the sound is recorded, it is sampled to the optimal digital frequency chosen by 

the recording clinician. The following methods must be implemented: 

hool Record(int sf, bool stereo, int maxjime=300, int max _size^ 1000000, int 
format=WAV) 

This function records sound input with the following specified digital sampling parameters: 

sf- Sampling Frequency, KHz 

stereo - Stereo (yes or no) 

maxjime - Maximum recording time in seconds 

maxjsize - Maximum record size in bytes 

format - Digital sound format 

This sound-recording function may be implemented based on many conventional operating 
system sound interface supports well known in the art. For instance, Windows implementation 
for basic sound recording would appear as seen in Figure 7. Playing back the recorded sounds 
may readily be accompHshed by a ftinction such as: 

bool Playback(intfrom, int to) - play back recorded sound, from a first XmvQfrom to 
second time to. In other words, the function parameters are: 

from - Playback start position 
to - Playback end position 

For instance, on a Windows platform, a simple playback implementation may be accomphshed 
using the standard Windows PlaySoundQ function. 
SoundRecoder Object. 
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After the sound has been recorded, it may be advantageous to convert the sound into a 
different format (for instance, from WAV to MPS format). For example, conversion from 
WAV to MPS format may reduce the size of sound data by a factor of approximately 10 
without any perceivable loss of quality. This conversion may be made (after the sound is 
5 recorded) with an appropriate codec (e.g., an MPS encoder), incorporated into the below 
described SoundRecoder object. 

This object encodes/decodes digitized sound in the well-known MPS format. For 
encoding process, the original digitized sound is received as SoundRecorder object output after 
recording. For decoding process, the sound is converted back from MPS to the digital format 
10 accepted by SoundRecorder (for instance, WAV format on Windows platform), and is played 
back. Therefore, the following fimctionality must be implemented: 

BYTE"^ GetSoundQ - returns the pointer to the current sound (stored as a BYTE 

buffer). 

int GetFormatQ - returns the current sound format {y^AV, MPS, etc.) 

15 bool Insert (DICOMObject& dob) - insert this sound into DICOM Data Set. The return 

value of true confirms successfial insertion, and false corresponds to failed insertion. The 
implementer will have to specify a 4'byte group/element tag number (PSS,5 part of DICOM 
standard) to identify the sound entry in his DICOM dictionary - since there is no sound entry in 
the standard DICOM dictionary. 

20 bool Encode(BYTE^ input, int inputFormat, BYTE^ output) - this function takes a byte 

stream input, which represents a digitized sound in inputFormat format (such as WAV), and 
encodes it into MPS stream output. The function returns true if encoding process was 
successful, and false otherwise. 
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bool Decode(BYTE'^ input, int outputFormat, BYTE"^ output) - opposite to Encode, 
decodes MP3 stream input into output stream output with outputFormat format. The 
SoundRecoder::Insert() fimction is implemented as seen in Figure 8. 

It may also be desirable at some point in time to remove a previously inserted sound 
5 from an object. This removal may be accomplished with the following function: 

bool Extract(DICOMObject& dob, bool remove) - extract digitized sound buffer from 
DICOM Data Set dob. If the remove parameter is set to true, the sound is removed from dob 
after it is extracted; otherwise, an original copy of the sound buffer will remain in dob. 

Thus, with the above described code, audio data may be encapsulated into a DICOM 
10 object such as a patient study, the data converted to more compact formats, and if desired, the 
audio data may also be removed. 
Integer-Based Ray Tracing 

Ray tracing or ray casting is a well known technique for using three-dimensional (3-D) 
image data to draw a 3-D appearing object on a two dimensional (2-D) imaging device (e,g. the 
15 screen of a computer monitor). To give the object displayed on the 2-D screen the appearance 
of depth, different areas of the object must be shaded. Ray tracing uses information from the 3- 
D data to determine what areas of the object on a 2-D screen should be shaded and to what 
degree the areas should be shaded. Such prior art methods of Ray Tracing are set out in 
Radiosity and Realistic Image Synthesis^ Cohen and Wallis, Academic Press, Inc., 1993, which 
20 is incorporated by reference herein. 

One typical example of a 3-D data set could be a series of CT scan images as suggested 
in Figiare 9. Each of the three images in Figure 9 represents a "sKce" taken at a certain level of 
a human head. A complete series of CT scan images for a human head may comprise 100 to 
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200 such slices. It will be understood that each slice provides information in two dimensions, 
for example the x-y plane. By supplying multiple shoes, the series of CT scans in effect 
provide information in the third dimension or the z direction. Different tissues on the CT 
image are represented by different color and/or intensity (i.e. brightness). For every position {x, 
y, z) in the 3-D image data, there is a corresponding intensity value (X). Thus, the 3-D image 
data may be represented by the equation F(x, y, z) = L(x, y, z). When it is desired to view a 
certain tissue type or object of interest (e.g. a suspected tumor) corresponding to a constant 
intensity of Z in the CT image, this may be accomplished by identifying all {x, y, z) points in 
the 3-D data where V{x, y, z) = L. 

Figure 10 schematically illustrates a 3-D data set 10 having an object of interest 12 
("object 12") located within 3-D data set 10. A 2-D image plane 14 is shown with several hues 
of sight or "rays" 18 extending between 2-D unage plane 14 and observer position 16, while 
also passing through 3-D data set 10. While not shown, it is presumed for the purposes of this 
explanation that the hght source is directly behind observer position 16. A ray 18 will be back 
projected from the picture elements or pixels on 2-D image planel4 to observer position 16. 
While this process of "ray generation" could be performed for each pixel on 2-D image plane 
14, it is generally sufficient to generate rays from every nth pixel (e.g. every third or fourth 
pixel) in order to save computational time. Where a ray 18 (viewed from observer position 16) 
intersects object 12, it is known that the corresponding pixel on the 2-D image plane 14 will 
have an intensity value related to the brightness or shading of object 12 as seen from observer 
position 16. Pixels associated with those rays 18 not intersecting object 12 will have 
predetermined background intensity, such as zero representing a completely black pixel. 
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To determine the proper shading of those pixels on 2-D image plane 14 associated with 
object 12, it must be determined what the angle of the surface of object 12 is relative to the ray 
18 impacting object 12 at that point. As noted above, the light source is presumed to be 
directly behind observer position 16. Thus, if the surface of object 12 at the point of ray impact 
is normal to that ray (and thus observer position 16), then the maximum light will be reflected 
back from that point to observer position 16. The pixel on 2-D image plane 14 corresponding 
to that ray 18 will consequently be assigned the highest intensity value. On the other hand, if 
the surface at a point of impact of a ray 18 is parallel to that ray, then virtually no hght will be 
reflected and the pixel associated with that ray 18 will have very low intensity value. 

To determine the surface angle at a point of impact, it is necessary to determine the 
distance from the surface of the object to observer position 16 (or another point along the 
ray 18) and compare that to the same distance for adjacent points of impact. Figure 11 
illustrates an enlarged section of object 12 with several rays 18 impacting its surface. The 
length t for each ray is shown as taken from an arbitrary point W along the rays 18. It is 
irrelevant whether point W is observer position 16 or a point much closer to object 12. It is 
only necessary that point W be displaced from the surface of object 12 such that it is possible to 
measure the relative distances between point W and the point of impact for neighboring ray 18. 
This method of determining where along ray 18 object 12 is encounter (i.e. the length of t) is a 
form of data volume traversal and is described further below. 

Once t is determined for a ray 18 and several neighboring rays, it is possible to 
determine the surface angle at ray 18's point of impact. Figure 12 is a graphical representation 
illustrating how the surface angle of a point of impact T will be calculated using the relative 
distance between observer position and points of impact T, A, B, C, and D. Points A, B, C, and 
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D are points of impact neighboring point T. Points A, B, C, and D have relative distmces to 
the observer position of a, b, c, and d respectively. Tl, Al, Bl, CI, and Dl are points at 
distances t, a, b, c, and d respectively above the surface of object 12, It can be seen that points 
Tl, Al, and Dl form a triangular plane (shown in dashed lines) and this triangular plane has a 
vector 20 which is normal to the surface of the triangular plane. While not shown in Figure 12 
in order to maintain simplicity, it will be xmderstood that similar triangular planes and normal 
vectors 20 will be computed for triangles Tl Al B1,T1 Bl CI, and Tl CI Dl. The normal at 
point T is then approximated as the average normal of the four normal vectors 20, The 
estimated normal vector at T will be the vector {(a-c)/2, {d-b)l2, 1}. It is this normal vector at 
point T, which is considered the normal to the surface angle at the point of impact. 

As alluded to above, the intensity of a pixel on the 2-D image plane is determined by 
that pixel's associate ray 18 and the surface angle on the object relative to that ray 18, In other 
words, the intensity of a pixel will be related to the angle between the associated ray 1 8 and the 
normal vector at the point of impact. If the ray 18 and normal vector are parallel, the surface 
directly faces the observer point (and light source) and the point of impact reflects maximum 
light (i.e. the pixel is assigned a high intensity value). If the ray 18 and normal vector or 
perpendicular, the point of impact reflects very little or no light and the associated pixel is 
assigned a low intensity value. When the angle (a) between ray 18 and the normal vector is 
between 0° and 90°, the intensity is determined as the maximum intensity multiphed by cosine 
a. 

The two main components of the above described prior art method of ray tracing (ray 
generation and volume traversal) are computationally very demanding and often require 
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excessive amounts of computer processing time. With ray generation, each ray must be defined 

by a set of equations such as: 

xray = a + 
yray = b + f^l2 
zray = c + f^l3 

where xray, yray, zray are the components of a ray 18 (such as to the point of impact), a, b, c 
are the coordinates of the observer position, t is the relative distance (i.e. xray, yray, zray to the 
point of impact), and 11, 12, 13 are values representing the direction of ray 18. Generally, these 
numbers will be large floating point values and considering a ray is generated for large number 
of pixels, the size of the numbers will greatly add to the processing time required to ray trace an 
image. 

When finding the distance '7" from the surface of object 12 to observer position 16 as 
described above, prior art ray tracing techniques typically use a form of volume traversal. As 
illustrated conceptually in Figure 13(a), a 3-D data set 10 is provided with a ray 18 beginning 
at observer point (plane) 16 and extending through data set 10. Data set 10 may be viewed as 
being sub-divided into a series of cells 26. Figure 13(b) illustrates how each cell 26 will be 
formed from a 8 points T1-T8. It will be understood that each point T1-T8 is a known data 
point. For example, referring back to Figure 9, T1-T4 would be adjacent pixels on one CT 
image or slice and T5-T8 would be the same pixels on an adjacent slice. In the volume 
traversal method, each cell 26 which is intersected by ray 18 must be analyzed. It must first be 
determined whether a cell 26 contains any portion of the object of interest. If so, and if further 
the ray 18 actually intersects the object within the cell, then it must be determined exactly 
where along the length of ray 18 (within cell 26) that the object is intersected. This point of 
intersection provides the length 'V". Of course, if the cell 26 does not contain part of object 12, 
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then the next cell along ray 18 is analyzed and this process is continued for all cells 26 (along 
ray 18) until object 12 is encountered or ray 18 exits 3-D data set 10. It will be apparent that 
carrying out this data volume traversal for many thousands of rays is a computationally 
expensive procedure, particularly when carried out with floating point values as practiced in the 
5 prior art. 

The prior art has made attempts to reduce the processing time expended on ray 
generation and data volume traversal One alternative developed is to project rays from every 
nth pixel (say every 3rd, 4th or 5th pixel) rather than every pixel. Once a determination of the 
intensity of every nth pixel is made, an interpolation may be made for the values between every 

10 nth pixel. Naturally, the larger the value of n is, the more error possibly introduced into the 
final image. Additionally, the various methods of interpolation have their own disadvantages. 
Two manners of interpolation known in the art are Gouraud's linear interpolation and complex 
Fong interpolation. However, Gouraud interpolation produces artifacts on the square 
boundaries. While complex Fong interpolation provides more accurate results, its complexity 

15 expends much of the computation savings gained by choosing every nth pixel. Moreover, even 
when generating rays only for every nth pixel, it is still necessary to generate many thousands 
of rays to accurately portray an image. 

The present invention provides a much more computationally efficient method of ray 
tracing than hereto known in the art. This method effectively replaces the large floating point 

20 numbers with integers, allowing all calculations to be integer based and therefore much faster. 
Figure 14 illustrates another example of a 3-D data set 10 having an object of interest 12 and a 
2-D image plane 14 conceptually positioned behind 3-D data set 10. However, Figure 13 
differs from the previous example illustrated by Figure 10 in that there are not multiple rays 
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from observer position 16 to each pixel on 2-D image plane 14. Rather, there is a single 

observer ray 23 which extends from image plane 14 to observer position 16. As in the example 

above, observer ray 23 may be defined by the equations: 

xray = a + 
yray = b + 
zray = c + 

Now however, for purposes explained below, xray will be set equal to /, resulting in the set of 
equations: 

xray = / 

yray = b + {i-aYl2/ll Equation (4) 

zray = c + {i-aYl3/ll 

Next, the values a, b, c, together with the ratios 12/11 and 13/11 will be converted to 
rational numbers (i.e. numbers which are a ratio of two integers) which closely approximate the 
original floating point values. By changing the values a, b, c, together with the ratios 12/11 and 
13/11 to rational numbers, the computational expense of operating upon floating point numbers 
may be eliminated. While this will slightly change the observer position and ray angle 
represented by the values 11, 12, 13, the changes are far too small to adversely affect the final 
results of the ray tracing. For example, a floating point value of a=2. 3759507. . . could be 
represented by the rational number 2.37 (i.e. the ratio of the integers 237 and 100), Because the 
substituted rational numbers are such close approximations to the original floating point values, 
the change in observer position cannot be noticed by a user and the ray angle still allows the 
rays to impact the same pixel on the 2-D image plane. 

As additional rays are back projected from image plane 14, the method of the present 
invention does not converge these rays on observer point 16. Rather these rays 24 travel 
parallel to observer ray 23 (i.e., have the same values for 11, 12, and 13). These parallel rays 24 
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will extend to origin points 22 in the same plane in which observer point 16 lies and which is 
perpendicular to rays 24. Like observer point 16, each origin point 22 will have it's a, b, c 
coordinates adjusted to integer values. This process is repeated for all other pixels on image 
plane 14 from which rays 24 will be back propagated. 
5 The main practical outcome of this method of substituting rational values for floating 

point values is that it allows using only integer additions for ray generation and data volume 
traversal. This process is described by equation (4), where fractions like 12/11, 13/11 or 12/13 
were assumed to be rational. This is identical to considering 11, 12 and 13 as integers, since in 
the case of using rational numbers, both sides of the equation (4) can be multiplied by the least 

10 common denominator of /7, 12 and 13, which will ehminate any fractional parts. Note that 
numbers 11, 12 and 13 are constants, and so is their common denominator, therefore the 
conversion from rational to integer is carried out only once, and does not need to be 
recalculated for each particular ray. 

Figure 15(a) shows with a 3-D data set 10 and an individual cell 26 within data set 10. 

15 As with Figure 14(b), Figure 15(b) shows an enlarged view of cell 26 with comers T1-T8 
representing known data points. It will be understood that the component of a ray 24 along the 
X-axis (i.e. the xray value from Equantion (4)) will be set equal to xray=i. Equation (4) is 
written for the case where xray-i results in the ray intersecting the side of cell 26 closest to 
origin 22. In Figure 15(b), point A illustrates the point where ray 24 intersects this side of cell 

20 26 upon entry of cell 26 and point B illustrates the cell side where ray 24 exits cell 26. It will 
be understood that because equation (4) is composed of rational numbers, the position of points 
A and B must also be rational numbers with the same denominator, which also permits 
consideration of all these numbers as integers. 
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The fact that rays produced by equation (4) are traced through to a point located on a 
cell side has its own benefit of minimizing the complexity of linear interpolation. If, for 
instance, the point A was not located on a cell side, one would have to use all 8 cube vertices 
T1-T8 for linear volume interpolation of F(A), But when A is a side point we use only 
5 two-dimensional linear interpolation of F(A) involving 4 points T1-T4 that cuts calculation cost 
and time by more than twice. Because the function F(x,y,z) was chosen as integer on the integer 
grid points (x,y,z)^ its value is rational at a rational point A and has therefore the form of 
F(A)=F1(A)/F2(A), where integer numbers F](A) and F2(A) can be found with integer 
arithmetic directly fi*om the linear interpolation formula. 

10 The location of each point A on a cell is defined by three distaaces AAl, AA2 and 

AA3, measured fi-om A to the closest cell side in the y, z and x dimension respectively. 
Because A resides on a cell side, at least one of these coordinates (e.g., AA3 on the opposite 
cell wall) is equal to the cell size in this dimension. The size of the cell in all dimensions is an 
integer value. The remaining coordinates (AAl and AA2) are integers as well. When the ray 

15 point A needs to be traced to the next position B, it's equivalent to solving Equation (4) for 
another integer point (Bl,B2,B3)='(xray,yray,zray), which also implies that (B1,B2,B3) is 
obtained as an integer offset of (A1,A2,A3). Thus, ray tracing becomes a purely integer based 
calculation, and volume traversal is reduced to simple and time-efficient integer subtraction. 

The next step is the computation of ray intersections with the surface F(x,y,z)= L (the 

20 intensity value of the object of interest). For this equation and linear interpolation properties, a 
cell 26 will contain an intersection point if and only if some of F(T1), F(T8) have different 
values greater than or less than L, In other words, if F(T1), F(T8) are all values either 
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greater than L or less than Z, it will be presumed that the cell does not contain a point having a 
value of L. This simple criterion is used to efficiently reject the cells with no intersections. 
Once some of F(T1), .... F(T8) have different values greater and less than L, an intersection 
point has to be inside the cell, and may be on the [AB] segment. In this case, the values of F(A) 
and F(B) are also computed, and compared to Z. lfF(A) and F(B are both smaller or both larger 
than L, the segment [AB] contains no intersection point, and the tracing continues to the next 
cell. Otherwise an intersection point belongs to [AB], and its distance from the ray origin must 
be computed with a proper interpolation. It will be understood that a 3-dimensional linear 
interpolation, used to compute F(x,y,z) at any volumetric point, taken along a ray, becomes 
one-dimensional cubic interpolation. Thus, the prior art method of solving for the root of 
F(jc,j,z)=I requires the solution of a third-order equation. A typical approach taken in the prior 
art to reduce the complexity of this solution was to replace the cubic equation by its linear 
approximation. However, this approach creates visible surface distortions. The present 
invention utilizes a simple second-order approximation, and not to the original third-order 
equation, but to the formula for its root (inverse interpolation) as suggested in Figure 16, To 
perform this approximation, the method must: 

• Compute F(M) , where M is the midpoint of the segment [AB]; 

• Consider three points (tA, F(A)), (tM, F(M)) and (tB, F(B)) and pass a parabola through 
them. Since all values are integers, the parabola will have rational coefficients (where 
tA, tM, and tB are distances to points A, M, and B respectively); and 

• Take the lower-order (constant) term of this parabola, as the approximation to the root 

to. 
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where ^0 is the value which will represent the distance to the object surface (i.e. distance 'V" 
discussed above. This yields the following rational root approximation formula: 



FjMXtA - tB) + F{A){tB ~ tM) + F{B){tA ■ tM) 

~ F(M)F(B)(F(M) - F(B)) + F(A)F(B)(F(B) ~ F{A)) + F{M)F{A){F{A) - F{M)) 
This interpolation proved to be more accurate than the linear one, but still requires only integer 

computations. The parabolic interpolation was found to take only 7-10% more time compared 

to the linear interpolation, but produces much less distortion. 

As discussed above, rays need not be traced for each point, but rather may be taken at some 

predefined step d in each dimension, where d is optimally chosen (for example, only each J-th 

ray is traced in each dimension). However, rather than employing the prior art Gouraud's 

linear interpolation or complex Fong interpolation, the present invention uses a simple but 

sufficient bi-quadratic interpolation for shading or pixel intensity. Figure 17 represents a grid 

of pixels where d^ A and A, B, C, D, and pl-p8 are intensity values from rays traced at every 

fourth pixel. The purpose of the pixel intensity interpolation is to compute the intensity for all 

pixels (in this case nine) inside the t/x^/ ABCD square, which correspond to the "skipped" rays. 

As mentioned above, Linear Gouraud's interpolation performs this computation based only on 

four intensities at points A, B, C and D, thus producing well-known artifacts on the square 

boundaries. The present invention uses a second order 2-D approximation polynomial: 

where the coefficients are chosen by a conventional least squares regression technique which 
gives the exact intensities at points A-D, and still produce the closest least-squares match to the 
intensity values at pl-p8. This method gives a smoother interpolation on the square boundary 
with marguial processing time overhead. 
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As d is increased, tracing becomes faster (since only each J-th ray must be fired in each 
dimension), but parabolic intensity interpolation becomes generally slower. Experimentation 
was carried out with different d values from 2 to 15, observing the shading times for different 
test objects. The results are shown in Figure 18. It can be seen that the most substantial time 
reduction occurs before d=4. Increasing d further not only starts to consume more execution 
time, but also produces visible image artifacts. Therefore, a step size of d=A is beheved to be 
most efficient both in terms of quality and speed of ray tracing. Submitted with this apphcation 
is a source code hsting which implements the novel ray tracing method described above. 
Advanced Magnifying Glass Tool 

Because radiological images must be so carefully scrutinized, it is common for prior art 
software used in viewing such images to provide a magnifying window. Figure 19 illustrates a 
viewing screen 30 (such as a high resolution computer monitor) having a medical image 31 
displayed thereon. A magnifying window 32 is shown displaying an enlarged portion of image 
31. When in use, magnifying window 32 is typically moved with a "mouse" or similar device 
by conventional "click and drag" techniques. When window 32 is moved to a new position, the 
center of the window marks the center of original image region to be magnified. Based on the 
power of the magnification and the widow size, the magnifying window program computes the 
area of the original image to be magnified. For example, if the magnifying window is 3"X 3", 
and the power of magnification is 2x, the region on the original image to be magnified will be 
1.5 "xl.5 ". 

When the user moves the window to a new position, the prior art magnifying software 
updates the window position by performing a series of steps as illustrated in Figures 20(a)- 
20(c). Figure 20(a) shows an initial position of window 32 designated as Pq. When the user 
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begins to drag the window to a new position, the program first removes the initial window Pq. 
Next, the program restores to the screen the original image region covered by window Po 
(dashed area 33 in Figure 20(b)). After calculating the next region of the original image 
covered by the new window position Pi, the program magnifies that region and displays it 
5 within the window position Pi. Although Figures 20(a)-20(c) can only illustrate this updating 
process as two distinct window positions, it will be understood that the updating process occurs 
continuously as the user moves the magnifying window 32 across the viewing screen. The 
actual speed at which the individual updates occur will depend on factors such as the 
processing speed of the computer and the complexity of the image. If the updates do not 

10 occur with sufficient rapidity, the user will be able to detect discontinuities in successive 
window positions as the window moves across the screen. This phenomenon is commonly 
referred to as "flicker." Flicker is not only aesthetically undesirable, but for health care 
providers who must view medical images during an entire work day, flicker can significantly 
contribute to viewer distraction and fatigue. Additionally, magnifying an image may tend to 

15 blur or distort the image. Prior art magnifying programs typically fail to optimize the contrast 
of the enlarged portion of the image and fail to filter distortions caused by the magnification. A 
magnifying window program which reduces flicker and reduces distortions cause by 
magnification would be a significant improvement in the art. 

Figure 21 illustrates an improved update method for a magnifying window and Figure 

20 22 shows a flow chart for carrying out this method. As a simphfied example, Figure 21 
represents a 500 x 500 pixel screen 30 with an initial window position Po and an updated 
window position Pi moved 50 pixels upwards and to the left. It will be xmderstood that in 
actual operation, the window Pi would be updated after moving only a small distance equal to a 
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few pixel positions, since mouse positions are sampled very frequently. However, to make the 
illustration clearer, Figure 21 is shown with an exaggerated change in distance between 
windows Po and Pi. Figure 22 illustrates the first step 35 in the method is to store the original 
image in memory. When the magnifying window routine is called, the program will first 
5 determine the region (Ro) of the original image to be magnified (step 36) and then display the 
region Rq (as magnified) in initial window position Pq (step 37). When the user next moves 
the magnifying window to a new position, the program will receive the new window position 
Pi and then calculate new region Ri to be magnified (steps 38 and 39). Next the program 
determines in step 40 which comer of Pi is found in Pq. As suggested in Figure 21, the comer 

10 located at the pixel position (100,100) is the comer of Pi found in Pq. With this information 
and the pixel positions of the Po comers, the program in step 41 is able to define two 
rectangular regions A and B which are the portions of Po no longer covered by Pi. The 
program then retrieves fi-om memory the original image information for the regions A and B 
and only needs to restore the original image to these areas rather than to the entire area of Pq. 

15 With fi*equent magnifying window updates, the areas of rectangles A and B are much smaller 
compared to that of Po . Therefore, this method of restoring only the regions A and B greatly 
reduces the likelihood that any type of flicker will be perceived by the magnifying window 
user. 

Additionally, the magnifying window of the present invention allows further processing 
20 of the image as indicated by steps 43-47 in Figure 22. When the user wishes to optimize the 
contrast and filter the magnified image, he or she may select this further processing option by 
activating the appropriate indicator which will appear on or next to the magnifying window. 
As indicated in steps 43-47, this processing will include optimizing the contrast by removing 
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outlying pixels and redistributing the pixels over the intensity range of the display system. 
Figures 23(a)-23(c) graphically illustrate this processing. In Figure 23(a), a histogram of the 
image region being magnified is produced by plotting pixel intensity versus the frequency at 
which pixels of that intensity occur. In these figures, the intensity scale ranges from 0 to 255. 
Figure 23(b) represents how a given percentage of the total pixels will be removed from the 
extreme ends of the intensity scale, hi the iUusfrated example, the outlying 1% of the pixels are 
removed, however, a lesser or greater percentage of the outlying pixels could be removed 
depending on the degree to which it is desired to enhance contrast. Figure 23(c) illusfrates how 
the image region is re-scaled to distribute the remaining pixel over the entire 0 to 255 intensity 
range. After enhancing the confrast of the image region, step 47 in Figure 22 shows how 
filtering of the image region will take place before the image region is displayed in window Pi. 
While various forms of filtering may be implemented, it has been found that a conventional 
median filter provides favorable results. As those skilled in the art will recognize, median 
filters operate by examining the neighborhood intensity values of a pixel and replacing that 
pixel with the median intensity value found in that neighborhood. The apphcation of different 
fihers transforms a conventional magnifying glass into a more powerfixl image analysis 
instrument. This is particularly beneficial when large images are analyzed, and processing the 
entire image becomes a time-consuming and unnecessary process. 

Computer programs based on all of the methods and pseudo code disclosed above can 
be run on any number of modem computers systems having a suitable computer processor and 
a sufficient quantity of computer-readable storage medium. Although certain preferred 
embodiments have been described above, it will be appreciated by those skilled in the art to 
which the present mvention pertains that modifications, changes, and improvements may be 
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made without departing from the spirit of the invention as defined by the claims. All such 
modifications, changes, and improvements are intended to come within the scope of the present 
invention. 
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I Claim: 

1. A computer-readable storage medium containing computer executable code for instructing a 
computer to perform a method of lossless image compression comprising the steps of: 

a. taking a sample of pixel neighborhoods from an image file; 

b. using said sample of pixel neighborhoods to determine a series of predictive 
coefficients values related to said pixel neighborhoods; 

c. determining prediction residual values based on said coefficients values; and 

d. losslessly compressing said prediction residual values. 

2. The computer-readable storage medium according to claim 1, wherein coefficient values ctj 
and said prediction residual values e(x,y) are determined from the equation: 

Q<ij<a 

3. A computer-readable storage medium containing computer executable code for instructing a 
computer to perform a method of adjusting the quality parameter in a quality controlled 
compression routine in order to compress image data a predetermined compression ratio, said 
method comprising the steps of: 

a. receiving a desired compression ratio; 

b. selecting an estimated quaUty value; 

c. compressing said image data based on said quahty value and calculating an 
intermediate compression ratio from said compressed image data; 

d. adjusting said quality value in iterative steps and recalculating said intermediate 
compression ratio; and 

e. returning a final quaUty value after a predetermined time period or when said 

predefined ratio is achieved; 
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f. compressing said image data to said final quality value using said quality controlled 
compression routine. 

4. The computer-readable storage medium according to claim 3, wherein said estimated quality 
value is selected fi-om a predetermined maximum quality and a predetermined minimum 
quality. 

5. The computer-readable storage medium according to claim 4, wherein said intermediate 
compression ratio during an iteration is the dividend of an original image size divided by the 
size of an image compressed according to the quality value of said iteration. 

6. A computer-readable storage medium containing computer executable code for instructing a 
computer to perform a method of adjusting the compression ratio of image data based upon the 
available bandwidth of a network link across which said image is transmitted, said method 
comprising the steps of: 

a. determining the size of an image to be transmitted; 

b. selecting a desired download time for downing loading said image from a network 

link; 

c. determining a current download time based upon current network conditions; 

d. compressing said image if said current download time is greater than said desired 
download time. 

7. The computer-readable storage medium according to claim 6, wherein said image is 
compress by a ratio greater than or equal to a ratio of said current download time divided by 
said desired download time. 
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8. A computer-readable storage medium containing computer executable code for instructing a 
computer to perform a method of encapsulating audio data in a DICOM object and selectively 
retrieving said data, said method comprising the steps of: 

a. providing a DICOM compliant recording function having parameters representing a 
recording time and a record size of said audio data; 

b. providing a DICOM compHant playback function having a parameter representing a 

playback start position. 

9. The computer-readable storage medium according to claim 8, further comprising the step of 
providing a DICOM compHant function for converting audio data from a first format into a 
second format. 

10. A computer-readable storage medium containing computer executable code for instructing 
a computer to perform an improved integer based ray tracmg method for constructing two- 
dimensional images from three-dimensional data, said ray tracmg method comprising the steps 
of: 

a. receiving a set of three-dimensional image data containing an object of interest; 

b. receiving an observer position; 

c. establishing a ray angle from said observer position, through said three-dimensional data, to 
a two-dimensional image plane; 

d. adjusting said ray angle such that the directional components of said ray angle are rational 
numbers; 

e. back projecting from a selected number of picture elements on said two dimensional image 
plane a series of rays parallel to said ray angle, said rays passing though said three-dimensional 
image data to origin points; 
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f. for each ray intersecting said object of interest, determining a relative distance between said 
origin point and a point of contact where a ray intersects said object of interest; 

g. determining a surface angle relative to said origin point for each of said points of contact; 
and 

h. adjusting the intensity of said picture elements on said two dimensional image plane relative 
to said surface angle of said points of contact. 

11. The computer-readable storage medium of claim 10, further including the step of adjusting 
the origin point of each ray such that the coordinates of said origin point are rational numbers. 

12. The computer-readable storage medium of claim 10, wherein said step of determining a 
relative distance between said origin point and said point of contact includes the step of making 
a parabolic interpolation. 

13. The computer-readable storage medium of claim 10, wherein said step of adjusting the 
intensity of said picture elements further includes an interpolation based on a second order 
polynomial 

14. In a computer system including a computer processor, a memory, and a display screen, a 
method of reducing flicker caused by a magnifying window moving across an image on said 
display screen, said method comprising the steps of: 

a. storing said image in said memory; 

b. storing a first window position in said memory; 

c. reading a second window position, which overlaps said first window position; 

d. determining what portion of said first window position is not covered by said new window 
position; 
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e. restoring from memory that portion of said image which corresponds to said portion of said 
first window not covered by said second window. 

15. The method according to claim 14, further including the step of filling said first and 
second window positions with a magnified portion of said image. 

16. The method according to claim 14, wherein said step of determining what portion of said 
first window position is not covered by said new window position further includes the step of 
dividing said uncovered portion into two rectangles. 

17. The method according to claim 14, further including the step of removing outlying pixel 
values from a region of said image to be magnified and redistributing remaining pixel values of 
said region across an intensity spectrum of said computer system. 

18. The method of claim 17, further including the step of applying a median filter to said 
region of said image to be magnified, 

19. A radiologist workstation stored on a computer-readable storage medium containing 
computer executable code for instructing a computer to perform the methods of: 

a. losslessly compressing an image by using a sample of pixel neighborhoods to determine a 
series of predictive coefficients values related to said pixel neighborhoods; 

b. lossy compressing an image to a predetermined ratio by adjusting the quality parameter in a 
quality controlled compression routine; 

c. adjusting the compression ratio of image data based upon the available bandwidth of a 
network link across which said image is transmitted; 

d. encapsulating audio data in a DICOM object and selectively retrieving said data; 
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e. performing an improved integer based ray tracing method by establishing a ray angle from an 
observer position and adjusting said ray angle such that the directional components of said ray 
angle are rational numbers; and 

f. reducing flicker caused by a magnifying window moving across an image on said display j 

I 

screen by determining what portion of a first window position is not covered by a new window | 

i 

position and restoring jfrom memory that portion of said image which corresponds to said 
portion of said first window not covered by said second window. 
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ABSTRACT 

A radiologist workstation program capable of performing the methods of: (a) losslessly 
compressing an image by using a sample of pixel neighborhoods to determine a series of 
predictive coefficients values related to the pixel neighborhoods; (b) lossy compressing an 
image to a predetermined ratio by adjusting the quality parameter in a quality controlled 
compression routine; (c) adjusting the compression ratio of image data based upon the 
available bandwidth of a network link across which the image is transmitted; (d) encapsulating 
audio data in a DICOM object and selectively retrieving the data; (e) performing an improved 
integer based ray tracing method by estabUshing a ray angle from an observer position and 
adjusting the ray angle such that the directional components of the ray angle are rational 
numbers; and (f) reducing flicker caused by a magnifying window moving across an image on 
the display screen by determining what portion of a first window position is not covered by a 
new window position and restoring from memory that portion of the image which corresponds 
to the portion of the first window not covered by the second window. 
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FIGURE 1 



// for each pixel in the NxM image 
for(x=l; x<N; x+=l) 

{ 

for(y=l;y<M;y+=l) 
{ 

// Consider I(x,y), I(x-l,y), I(x,y-1),... neighborhood of (x,y) 

//If some if I(x-I,y-j) fall out of image boundaries, replace them by 0 

// Do not consider reference pixels (I(x-i,y-j) where ij=0) 

// Apply (6) to compute e(x,y) 

sumjd=0; 

for(i-0; i<a; i+=l) 

{ 

forO=0;J<a;j+=l) 

{ 

if(I(x-Uy-j)^^out of bounds pixel) l(x'i,y-j)^0; 
if(i~-0 && j~0) continue; 
sum_kl=sumjcl-^kif^l(x-i,y'j); 

} 

} 

sumjcl=sum_kl> > 1 0; 
e(x,y) =I(x,y)-sumJd; 

} 

} 
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int RTJPEG::CompressRT(BYTE* input, BYTE* output, double ratio, double maxtime, 

int bpp=l, bool rgb=false) 

{ 

int sizejorig = Size(input); II original image size in bytes 
// Set max and min quality values 
int q0^5; II 5% quality 

int ql =95; II 95% quality 

// Find respective compression ratios. Higher ratio corresponds to lower quality 
double rO - size_prig/Compress(input,output,qO, intbpp=l, bool rgb -false); 
II highest ratio 

double rl = sizejorig/Compress(input,output,ql, intbpp=J, bool rgb— false); 
II lowest ratio 

// Return if proposed ratio is smaller than the smallest possible 
if(ratio<rl) return JPEG: :Compress(input, output, ql); 
II Return if proposed ratio is larger than the largest possible 
if(ratio>rO) return Compress (input, output, qO); 
II Start timer 
clock J start, finish; 
start = clockQ; 

II Start iterative process to estimate the quality value 
double duration=0; double r = ratio; 

while (duration<maxtime) 

{ 

II Use linear quality estimate 

int q = qO+(r'rO)''(ql-qO)/(rl'rO); 

II Alternatively, a bi-section estimate can be used in the previous line: 
//intq = (q0+ql)/2; 

// Update estimated corresponding compression ratio value 

r = size_prig/Compress(input,output,q); 

II Update compression and quahty boundaries 

if(ratio>r) 

{ 



} 

else 

{ 



rl = r; if(<li-=(j) break; II convergence 



rO-r; if((}0==q) break; II convergence 

qO=q; 

} 

II Update timer 

finish = clockO; duration = (double) (finish - start) / CLOCKS _PER_SEC; 

} II end of iterative process 
// Compress 

return Compress(input, output, q); 

} 
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// It is assumed that ApplicationEntityList ael and DICOMObject d variables 
// have been akeady initialized based on the present network 
// configuration and the data to be sent. 

// Find current remote application entity, to which data must be sent 
ApplicationEntity ae = aelGetCurrentEntityQ; 

II Create PDU connection 
PDUpdu; 

II Start network performance timer 
NetworkTimer nt; 

II Find data size to be sent 
nt GetDataSize(d); 
ntStartTimerQ 

II Send data to current application entity 
pdu.Send(dae); 

II Stop the timer, evaluate observed network bandwidth, and store it into ae 
nt EstimateCurrentBandwidth(ae); 
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// It is assumed that ApplicationEntityList ael and DICOMObject d variables 
// have been aheady initialized based on the present network 
// configuration and the data to be sent. 

// Compress DICOM object to accommodate current network bandwidth 
int dsize = dGetSizeQ; 

int ntime = ae.GetDownloadTimeQ; II maximum allowable download time 

int ctime - dsize / ae.GetCurrentBandwidthQ; //time we'll spend with current bandwidth 

if(ctime > ntime) II low bandwidth, we need compression 

{ 

if(ae. CanAcceptLossyQ) II we can use lossy compression 

( 

// Compress with maximum, ratio allowed 

double ratio = min(ctime/ntime, ae.GetMaximumCompressionRatioQ); 
d. Compress(false,ratio); 

} 

else if(ae. CanAcceptCompressedQ) II only lossless, try our best 
d. Compress (true, /HgnoredVLO); 

} 

else It no JPEG compression allowed, do nothing 

{ 
} 

} 

else II network is fast enough, do not have to compress 
{} 

II Create PDU connection 
PDUpdu; 

II Send compressed data to current application entity 
pdu.Send(d,ae) ; 
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class AccurateTimer 

{ 

private : 

int Initialized; 

int64 Frequency; 

int64 BeginTime; 

public : AccurateTimerQ // constructor 

{ 

II get the frequency of the counter 

Initialized = QueryPerformanceFrequency( (LARGE INTEGER 
'^)&Frequency ); 

} 

void StartTimerO // start timing 

{ 

if( ! Initialized ) return 0; II error - couldn't get frequency 
// get the starting counter value 

QueryPerformanceCounter( (LARGE JNTEGER '^)&BeginTime ); 
return 

} 

double EndTimerO II stop timing and get elapsed time in seconds 

{ 

if( ! Initialized ) return 0.0; II error - couldn't get frequency 
// get the ending counter value 
int64 endtime; 

QueryPerformanceCounter( (LARGE JNTEGER "^j&endtime ); 
II determine the elapsed counts 

int 64 elapsed = endtime - BeginTime; 

II convert coimts to time in seconds and return it 
return (double) elapsed / (double)Frequency; 

} 
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bool SoundRecord€r::Record(int sf, hool stereo, int max_time=300, int 
max jsize^l 000000, int format^WAV) 

{ 

DWORD dwReturn; 

II Open a waveform-audio device with a new file for recording. 
if (lOpenMCIQ) return; 

MCI_RECORDJARMS mciRecordParms; 

II Set recording parameters here as fields in mciRecordParms 

mciRecordParms.dwFrom = 0; 

mciRecordParms. dwTo = maxjime; 

mciRecordParms,dwCallback = (DWORD) (thiS'>GetSafeHwnd()); 
II Record 

if (dwReturn = mciSendCommand(m_Device.wDeviceID, MCI_RECORD, 
MCIJFROM\MCI_NOTIFY, (DWORD) (LP VOID) &mciRecordParms)) 
{ 

AfxMessageBox(ErrorMCI(dwReturn, "Recording error: ")); 
mciSendCommand(mJDevice,wDeviceID, MCIjCLOSE, 0, NULL); 
return false; 

} 

return true; 

} 
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\oid SoundRecorder::Insert(DICOMObiect& dob) 
{ 

BYTE* sound; 

if(GetFonnatQ !- MPS) II we have to encode the sound 

{ 

SoundEncoder se; 

if(se.Encode(GetSound(), GetFormat(), sound) 

{ 

return false; II we failed to encode 
// Store sound bytes into odb object 



return true; 

} 
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APPENDIX 1 
Inventor: Pianykh, et al. 
Title: Radiologist Workstation 

Atty. Doc. # 6451.064 
Source Code Listing (Volume 1) 



/* 

* jcapimin- c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains application interface code for the compression half 

* of the JPEG library. These are the "minimum" API routines that may be 

* needed m either the normal full-compression case or the transcoding-only 

* 

* Most of the routines intended to be called directly by an application 

* are in this file or in jcapistd.c. But also see jcparam.c for 

* parameter-setup helper routines, jcomapi.c for routines shared by 

* compression and decompression, and jctrans.c for the transcoding case. 
*/ 

tdefine JPEG_INTERNALS 
tinclude "j include, h" 
# include "jpeglib.h" 



/* 

* Initialization of a JPEG compression object. 

* The error manager must already be set up (in case memory manager fails) . 
GLOBAL (void) 

jpeg_CreateCompress ( j_compress_ptr cinfo, int version, size_t structsize) 
int i; 

^ Guard against version mismatches between library and caller. */ 
a|nfo->mem = NULL; /* so jpeg_destroy knows mem mgr not called */ 

|tef (version != JPEG_LIB_VERSION) 

^,ERREXIT2 (cinfo, JERR_BAD_LIB_VERSION, JPEG_L I BUYERS ION, version); 
il (structsize != SIZEOF (struct jpeg_compress_struct) ) 
^^JERREXIT2 (cinfo , JERR_BAD_STRUCT_SI2E, 

(int) SIZEOF (struct jpeg„compress_struct) , (int) structsize); 

|1 ^or debugging purposes, we zero the whole master structure. 

But the application has already set the err pointer, and may have set 

client_data, so we have to save and restore those fields. 

Note: if application hasn't set client_data, tools like Purify may 

v. ? complain here . 

a 

fljstruct jpeg_error_mgr * err = cinfo->err; 

.; ;void * client_data = cinf o->client_data; /* ignore Purify complaint here */ 
j^MEMZERO( cinfo, SIZEOF{struct jpeg_compress_struct) ) ; 
rlicinf o->err = err; 

~;cinf o->client_data = client_data; 
cinfo->is_decompressor = FALSE; 

/* Initialize a memory manager instance for this object */ 
j ini t_memo3ry__mgr ( { j _c ommon_p t r ) cinfo); 

/* Zero out pointers to permanent structures. */ 
cinfo->progress = NULL; 
cinfo->dest = NULL; 

cinfo->comp_info = NULL; 

for (i = 0; i < NUM_QUANT_TBLS; i++) 
cinfo->quant_tbl_ptrs[i] = NULL; 

for (i = 0; i < NUM_HUFF_TBLS ; i++) { 

cinfo->dc_huff_tbl_ptrs[i] = NULL; 
^ cinfo->ac_huf f_tbl_ptrs [i] = NULL; 

cinfo->script_space = NULL; 

cinfo->input_gamma = 1.0; /* in case application forgets */ 

/* OK, I'm ready */ 
cinfo->global__state = CSTATE_START; 
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/* 

* Destruction of a JPEG compression object 
*/ 

GLOBAL (void) 

jpeg_destroy_c empress { j_compress_^tr cinfo) 

jpeg_destroy ( (j_common_:ptr) cinfo); /* use common routine */ 

} 



/* 

* Abort processing of a JPEG compression operation, 

* but don't destroy the object itself. 
*/ 

GLOBAL (void) 

jpeg__abort_compress ( j_compress_ptr cinfo) 

jpeg_abort ( ( j_common_ptr) cinfo); /* use common routine */ 

} 



* Forcibly suppress or \in-suppress all quantization and Huffman tables. 

* Marks all currently defined tables as already written (if suppress) 

* or not written (if ! suppress ) . This will control whether they get emitted 

* by a subsequent jpeg„start_compress call. 
* 

^::^:This routine is exported for use by applications that want to produce 
*^=^abbreviated JPEG datastreams. It logically belongs in jcparam.c, but 

ilsince it is called by j peg_s tar t_c empress, we put it here otherwise 

jcparam.o would be linked whether the application used it or not. 

%l 

Gi^QBAL{void) 

jjilg_s'uppress_tables ( j„compress_^tr cinfo, boolean suppress) 

^int i; 

iaQUANT_TBL * qtbl; 
^■yrHUFF_TBL * htbl; 

[^for (i = 0; i < NUM_QUANT_TBLS ; i++) { 

if ((qtbl = cinfo->quant_tbl_ptrs[i] ) 1= NULL) 
O qtbl->sent_table = suppress; 

m 

""-ior (i = 0; i < NUM_HUFF_TBLS ; i++) { 
p if ((htbl = cinfo->dc_huff_tbl_:ptrs[i] ) 

htbl->sent_table = suppress; 
if ((htbl = cinfo->acJiuff_tbl_ptrs[i] ) 

htbl->sent_table = suppress; 

} 

} 



!= NULL) 
1= NULL) 



* Finish JPEG compression. 
* 

* If a multipass operating mode was selected, this may do a great deal of 

* work including most of the actual output. 
*/ 

GLOBAL (void) 

jpeg_f inish_compress ( j_compress_ptr cinfo) 
{ 

JDIMENSION iMCU_row; 

if (cinfo->global_state == CSTATE_SCANNING | ] 
cinfo->global_state == CSTATE_RAW_OK) { 
/* Terminate first pass */ 

if (cinf o->next_scanline < cinf o->image_height) 
ERREXIT (cinfo , JERR__TOO_LITTLE_DATA) ; 

(*cinfo->master->f inish„pass) (cinfo) ; 
} else if {cinfo->global_state 1= CSTATE_WRCOEFS ) 

ERREXITl ( cinfo , JERR_BAD_STATE , cinf o->global_state ) ; 
/* Perform any remaining passes */ 
while (! cinf o->master->is_last_pass) { 
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{*cinfo->master->prepare_for_pass) (cinfo) ; 

for (iMCU^row = 0; iMCU__row < cinf o->total_iMCU_rows ; iMCU„row-i-+) { 

if (cinf o->progress != NULL) { 
cinf o->progress->pass_counter = (long) iMCU_row; 
cinfo->progress->pass_limit = (long) cinf o->total_iMCU_rows; 
(*cinf o->progress->progress_monitor) ( { j_coinmon_ptr) cinfo); 

/* We bypass the main controller and invoke coef controller directly; 
* all work is being done from the coefficient buffer. 
*/ 

if (! (*cinfo->coef->compress_data) (cinfo, (JSAMPIMAGE) NULL)) 
ERREXIT ( cinfo , JERR_CAKT_SUSPEND) ; 

(*cinfo->master->f inish_pass) (cinfo) ; 

/* Write EOI, do final cleanup */ 

{*cinf o->xaarker->write__f ile_trailer) (cinfo) ; 

(*cinf o->dest->term_destination) (cinfo) ; 

/* We can use jpeg_abort to release memory and reset global_state */ 
jpeg_abort( (j_common_ptr) cinfo); 



/* 

* Write a special marker. 

* This is only recommended for writing COM or APPn markers, 

* Must be called after j peg_s tar t„c empress ( ) and before 

* first call to jpeg_write_scanlines ( ) or jpeg_write_raw_data() . 

*/ 

GLOBAL (void) 

jpeg_write_marker ( j_compress_:ptr cinfo, int marker, 
^:=J const JOCTET *dataptr, unsigned int datalen) 

^l|rMETHOD(void, write_marker_byte , ( j_compress_ptr info, int val) ) ; 

yilf (cinf o->next_scanline != 0 | | 

(cinfo->global_.state 1= CSTATE_S CANNING && 

cinfo->global_state != CSTATE_RAW__OK && 

cinfo->global_state I = CSTATE JArRCOEFS ) ) 
■J5 ERREXITK cinfo, JERR_BAD_STATE , cinfo->global_state) ; 

ni^*cinfo->marker->writejaarkerJieader) (cinfo, marker, datalen); 

s write_marker_byte = cinf o->marker->write_marker_byte; /* copy for speed */ 

i :While (datalen — ) { 

tr (*write„marker_byte) (cinfo, *dataptr) ; 
11 J dataptr++ ; 

^ Same, but piecemeal. */ 

cliJ3BAL(void) . ^ . ^ . . ^ 4_ -1 X 

jpeg„write_m„header ( j_compress_ptr cmfo, mt marker, unsigned mt datalen) 

if {cinfo->next_scanline 1=0 j | 

(cinfo->global_state 1= CSTATE_SCANNING && 
cinfo->global_state != CSTATE_RAW_OK && 
cinfo->global_state \^ CSTATE_WRCOEFS) ) 
ERREXITK cinfo, JERR_BAD_STATE , cinfo->global_state) ; 

(*cinfo->marker->write_marker_header) (cinfo, marker, datalen); 

} 

GLOBAL (void) 

jpeg_write_m_byte ( j„compress_ptr cinfo, int val) 
(*cinfo->marker->write_marker_byte) (cinfo, val); 

} 



/* 

* Alternate compression function: just write an abbreviated table file. 

* Before calling this, all parameters and a data destination must be set up. 
* 

* To produce a pair of files containing abbreviated tables and abbreviated 

* image data, one would proceed as follows: 
* 

* initialize JPEG object 

* set JPEG parameters 
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* set destination to table file 

* jpeg_write_tables (cinf o) ; 

* set destination to image file 

* jpeg„start_corapress {cinf o, FALSE) ; 

* write data. . . 

* jpeg_f inish_compr ess (cinf o) ; 



* 

* ipeg write_tables has the side effect of marking all tables written 

* (same as jpeg_suppress_tables ( . . , , TRUE)). Thus a subsequent start_compress 

* will not re-emit the tables unless it is passed write„all_tables=TRUE. 
*/ 

GLOBAL (void) 

jpeg_write_tables ( j_compress_ptr cinfo) 

if (cinfo->global_state != CSTATE_START) 

ERREXITl (cinfo, JERR_BAD_STATE , cinfo->global_state) ; 

/* (Re) initialize error mgr and destination modules */ 

(*cinfo->err->reset_error_mgr) ( ( j_common_jE>tr) cinfo) ; 

(*cinfo->dest->init_destination) (cinfo); ^ 

/* Initialize the marker writer ... bit of a crock to do it here. / 

jinit_marker_writer (cinfo) ; 

/* Write them tables I */ 

(*cinfo->marker->write„tables_only) (cinfo) ; 
/* And clean up. */ 

(*cinfo->dest->term_destination) (cinfo) ; 

* In library releases up through v6a, we called jpeg_abort ( ) here to free 

* any working memory allocated by the destination manager and marker 

* writer. Some applications had a problem with that: they allocated space 
of their own from the library memory manager, and didn't want it to go 

O* away during write_tables . So now we do nothing. This will cause a 

^^"^* memory leak if an app calls write_tables repeatedly without doing a full 
compression cycle or otherwise resetting the JPEG object. However, that 
seems less bad than unexpectedly freeing memory in the normal case 

Jl* An app that prefers the old behavior can call jpeg_abort for itself after 

C -^i* each call to jpeg_write_tables ( ) . 
3*/ 



* jcapistd.c 
* 

* Copyright (C) 1994-1996, Thomas G, Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains application interface code for the compression half 

* of the JPEG library. These are the "standard" API routines that are 

* used in the normal full-compression case. They are not usedby a^ 

* trans coding- only application. Note that if an application links m 

* jpeg_start_compress, it will end up linking in the entire compressor. 

* We thus must separate this file from jcapimin.c to avoid linking the 

* whole compression library into a transcoder. 
*/ 

tdefine JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 



* Compression initialization. ^ ^ ^ ^ 

* Before calling this, all parameters and a data destination must be set up. 
* 

* We require a write_all_tables parameter as a failsafe check when writing 

* multiple datastreams from the same compression object. Since prior runs 

* will have left all the tables marked sent_table=TRUE, a subsequent run 

* would emit an abbreviated stream {no tables) by default. This may be what 

* is wanted, but for safety's sake it should not be the default behavior: 

* programmers should have to make a deliberate choice to emit abbreviated 
*^-images Therefore the docvimentation and examples should encourage people 
^:fto pass write_all_tables=TRUE; then it will take active thought to do the 
IJwrong thing. 

& 

GM<iBAL(void) , ^ ^ ^ . n 4-^-k-i^^\ 

jH9-Start_compress ( j_compress_ptr cmfo, boolean write_all_tables) 

^^If {cinfo->global_state != CSTATE_START) 
yi ERREXITKcinfo, JERR^AD_STATE , cinfo->global_state) ; 

''if (write_all_tables) ^ ^ . ^ 

- jpeg_suppress_tables(cinfo, FALSE}; /* mark all tables to be written */ 

(Re) initialize error mgr and destination modules */ 
C;|[*cinfo->err->reset_error_mgr) ( { j„common_j5tr) cinfo) ; 
nji[*cinfo->dest->init_destination) (cinfo) ; 
L7* Perform master selection of active modules */ 
23 init_compress_master (cinfo) ; 
Ll* Set up for the first pass */ 

^K*cinfo->raaster->prepare_for_jpass) (cinfo); ^ _ 

Ready for application to drive first pass through 3peg_jwrite_scanlines 
* or jpeg_write_raw_data. 
*/ 

cinfo->Sal!sStr-^ ? CSTATE_RAW_OK : CSTATE_SCANNING) 

} 



/* 
* 



Write some scanlines of data to the JPEG compressor. 

^ The return value will be the number of lines actually written. 

* This should be less than the supplied num_lines only in case that 

* the data destination module has requested suspension of the compressor, 

* or if more than image_height scanlines are passed m. 

* Note- we warn about excess calls to jpeg_write_scanlines ( ) since 

* this likely signals an application programmer error. However,^ 

* excess scanlines passed in the last valid call are * silently* ignored, 

* so that the application need not adjust num_lines for end-of-image 

* when using a multiple-scanline buffer. 
*/ 

GLOBAL (JDIMENSION) 

jpeg_write_scanlines ( j_compress^tr cinfo, JSAMPARRAY scanlines, 
JDIMENSION num_lines) 

^ JDIMENSION row_ctr, rows_left; 
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if (cinfo->global_state != CSTATE_SCANNING} 

ERREXITKcinfo, JERR__BAD_STATE , cinf o->globaLstate) ; 

if {cinfo->next_scanline >= cinf o->image_height) 
WARNMS(cinfo, JWRN_TOO„MUCH„DATA) ; 

/* Call progress monitor hook if present */ 

if (cinfo->progress != NULL) { 

cinfo->progress->pass„counter = (long) cinf o->next_scanline; 
cinfo->progress->pass_limit = (long) cinf o->image_height; 
(*cinf o->progress->progress_monitor) { ( j„coinmon_j)tr) cinfo) ; 

} 

/* Give master control module another chance if this is first call to 

* jpeg„write_scanlines. This lets output of the frame/scan headers be 

* delayed so that application can write COM, etc, markers between 

* jpeg_start_corapress and jpeg_write„scanlines . 
*/ 

if (cinfo->master->call_pass_startup} 
(*cinf o->master->pass_startup) (cinfo) ; 

/* Ignore any extra scanlines at bottom of image. */ 
rows„left = cinfo->image_height - cinf o->next_scanline; 
if (niim_lines > rows_left) 
ntmi_lines = rows„left; 

row_ctr = 0; . ^ -, * ^ 

(*cinfo->main->process_data) (cinfo, scanlines, &row_ctr, num_lxnes) ; 

cinfo->next_scanline += row_ctr; 

return row_ctr; 



*=if^lternate entry point to write raw data. 

^iProcesses exactly one iMCU row per call, unless suspended. 
GL&AL ( JDIMENSION) 

j^^_write_raw_data ( j_compress_ptr cinfo, JSAMPIMAGE data, 
J% JDIMENSION num_lines) 

Dimension lines_per„iMCU_row; 

=if (cinfo->global_state != CSTATE_RAW_0K) 

ir ERREXITK cinfo, JERR_BAD_.STATE , cinfo->global_state) ; 

3f (cinfo->next_scanline >= cinf o->image_height) { 

WARNMS( cinfo, JWRN_T00^CH_DATA) ; 
V'l return 0; 

2 

~|* Call progress monitor hook if present */ 

Mf (cinfo->progress I = NULL) { 

cinfo->progress->pass„counter = (long) cinf o->next_scanllne; 
cinf o->progress->pass_limit = (long) cinf o->image_height; 
(*cinfo->progress->progress_monitor) ( ( j_common_ptr) cinfo) ; 

} 

/* Give master control module another chance if this is first call to 

* jpeg_write_raw_data. This lets output of the frame/scan headers be 

* delayed so that application can write COM, etc, markers between 

* jpeg_start_compress and jpeg_write_raw_data. 

*/ 

i f ( cinf o->master->cal l_pass_s tar tup ) 

{*cinf o->master->pass_startup) (cinfo) ; 

/* Verify that at least one iMCU row has been passed. */ 
lines_per„iMCU_row = cinf o->max__v_samp_f actor * DCTSIZE; 
if {niim_lines < lines_per„iMCU_row) 
ERREXIT( cinfo, JERR_BUFFER_SIZE) ; 

/* Directly compress the row. */ 

if (! {*cinf o->coef->compress_data) (cinfo, data)) { • */ 

/* If compressor did not consume the whole row, suspend processing. / 
return 0; 

} 

/* OK, we processed one iMCU row. */ 
cinfo->next_scanline += lines_^er_iMCU_row; 
return 1 ines_per_iMCU_row ; 
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/* 

* jccoefct,c 
* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 
* 

* This file contains the coefficient buffer controller for compression. 

* This controller is the top level of the JPEG compressor proper. 

* The coefficient buffer lies between forward-DCT and entropy encoding steps. 
*/ 

#define JPEG_INTERNALS 
# include "jinclude.h" 
# include "jpeglib.h" 



/* We use a full-image coefficient buffer when doing Huffman optimization, 

* and also for writing multiple-scan JPEG files. In all cases, the DCT 

* step is run during the first pass, and subsequent passes need only read 

* the buffered coefficients. 

*/ 

#ifdef ENTROPY_OPT_SUPPORTED 
#define FULL_COEF_BUFFER_SUPPORTED 
#else 

#ifdef C_MULTISCAN_FILES„SUPPORTED 
#define FULL_COEF_BUFFER_SUPPORTED 
#endif 
#endif 



/t^=|Private buffer controller object */ 

t^edef struct { 
fltruct jpeg_c„coef_controller pub; /* public fields */ 

DIMENSION iMCU_row__num; /* iMCU row # within image */ 

■"■4DIMENSI0N mcu_ctr; /* counts MCUs processed in current row */ 

,jint MCU_vert_of fset; /* counts MCU rows within iMCU row */ 

"^^^fnt MCU_rows_per_iMCU_row; /* number of such rows needed */ 

fl4* For single-pass compression, it's sufficient to buffer just one MCU 

(although this may prove a bit slow in practice). We allocate a 

^- * workspace of C_MAX__BLOCKS_IN_MCU coefficient blocks, and reuse it for each 

Li.* MCU constructed and sent. (On 80x86, the workspace is FAR even though 

^■:;:r. * It's uot really very big; this is to keep the module interfaces unchanged 

* when a large coefficient buffer is necessary.) 

rtj * In multi-pass modes, this array points to the current MCU's blocks 

L :: * within the virtual arrays, 

Z? */ 

CItBLOCKROW MCU^buffer [C_MAX_BL0CKS_IN_MCU] ; 

In multi-pass modes, we need a virtual block array for each component. */ 
jvirt„barray_ptr whole_image [MAX_COMPONENTS] ; 
} my„coef_contr oiler; 

typedef my_coef_controller * my„coef_ptr; 



/* Forward declarations */ 
METHODDEF (boolean) compress_data 

JPP( ( j_compress_ptr cinfo, JSAMPIMAGE input_buf ) ) ; 
#ifdef FULL_C0EF_BUFFER_SUPP0RTED 
METHODDEF (boolean) compress_f irst_pass 

JPP( (j-Compress_ptr cinfo, JSAMPIHAGE input_buf ) ) j 
METHODDEF (boolean) compress_output 

JPP( ( j_compress^tr cinfo, JSAMPIMAGE input_buf ) ) ; 
#endif 



LOCAL (void) 

start_iMCU__row ( j__compress_ptr cinfo) 

/* Reset within-iMCU-row counters for a new row */ 

{ 

itiy_coef_ptr coef = {my__coef_ptr) cinfo->coef; 

/* In an interleaved scan, an MCU row is the same as an iMCU row. 

* In a noninter leaved scan, an iMCU row has v„samp_f actor MCU rows. 

* But at the bottom of the image, process only what's left. 
*/ 
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if (cinf o->coinps_in_.scan > 1) { 

coef ->MCU__rows_per_iMCU_row 1; 
} else { 

if (coef->iMCU_row_num < (cinf o->total_iMCU_rows-l) ) 

coef->MCU__rows_per„iMCU__row = cinf o->cur_comp_inf o [0] ->v_saitip_f actor ; 
else 

coef ->MCU_rows_per_iMCU_row = cinf o->cur_conip_inf o [ 0 ] ->last„row_height ; 

} 

coef->mcu_„ctr - 0; 
coef->MCU_vert__of fset = 0; 

} 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF{void) 

start_pass„coef ( j_compress_ptr cinfo, J_BUF_MODE pass_inode) 
{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 

coef->iMCU_row_num = 0; 
start__iMCU__row( cinfo) ; 

switch (pass_mode) { 
case JBUF_PASS_THRU: 

if (coef->whole_iniage[0] NULL) 

ERREXIT (cinfo, JERR_BAD_BUFFER_MODE) ; 

coef ->pub.compress_data = compress_data; 
fl break; 

ttildef FULL_COEF_BUFFER_SUPPORTED 
%kse JBUF_SAVE_AND_PASS : 
ni if (coef->whole_image [0] == NULL) 

ERREXIT ( c info , JERR_BAD_BUFFERJ10DE ) ; 
!;^'t coef->pub.corapress_data - coinpress_f irst_pass ; 
'^i break ; 

,aease JBUF_CRANK_DEST: 

T: if (coef->whole_imageEO] == NULL) 

ERREXIT (cinfo, JERR_BAEL_BUFFER_JK)DE ) ; 
flj coef->pub.compress_data = coinpress_output ; 
break; 
#lndif 
Ldef ault : 

f-, ERREXIT (cinfo, JERR_BAD_BUFFER_MODE ) ; 
i;! break; 

m 

^"Process some data in the single-pass case, 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v_sainp_f actor block rows for each component in the image. 

* Returns TRUE if the iMCU row is completed, FALSE if suspended, 
* 

* NB: lnput_buf contains a plane for each component in image, 

* which we index according to the component's SOF position. 

*/ 

METHODDEF (boolean) 

compress_data ( j_compress_ptr cinfo, JSAMPIMAGE input_buf) 

{ 

my__coef_ptr coef = {my_coef_ptr) cinfo->coef; 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
JDIMENSION last_MCU_col - cinf o->MCUs_per_row - 1; 
JDIMENSION last_iMCU_row = cinf o->total„iMCU_rows - 1; 
int blkn, bi, ci, yindex, yoffset, blockcnt; 
JDIMENSION ypos, xpos; 
jpeg_component_inf o *compptr; 

/* Loop to write as much as one whole iMCU row */ 

for (yoffset = coef ->MCU_vert_off set; yoffset < coef->MCU_rows_per„iMCU„row; 
yoffset++) { 

for (MCU_col_num = coef ->mcu_ctr ; MCU_col_num <= last_MCU__col; 
MCU_c o l_num+ + ) { 

/* Determine where data comes from in input_buf and do the DCT thing. 

* Each call on forward_DCT processes a horizontal row of DCT blocks 

* as wide as an MCU; we rely on having allocated the MCU_buffer[] blocks 
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* sequentially. Dummy blocks at the right or bottom edge are filled in 

* specially. The data in them does not matter for image reconstruction, 

* so we fill them with values that will encode to the smallest amount of 

* data, viz: all zeroes in the AC entries, DC entries equal to previous 

* block's DC value. (Thanks to Thomas Kinsman for this idea.) 
*/ 

blkn = 0; 

for (ci = 0; ci < cinf o->coinps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 

blockcnt = {MCU_col„n\am < last_MCU_col) ? compptr- >MCU_width 

: compptr->last_col_width; 
xpos = MCU_col_nuin * compptr->MCU_sample_width; 

ypos = yoffset * DCTSI2E; /* ypos (yof f set+yindex) * DCTSIZE */ 
for (yindex = 0; yindex < compptr->MCU_height; yindex++) { 
if (coef->iMCU_row_num < last„iMCU_row | | 

yof f set+yindex < compptr->last_row__height) { 
{*cinf o->f dct->f orward__DCT) (cinfo, compptr, 

input_buf [compptr->component_index] , 
coef->MCU_buffer[blkn] . 
ypos, xpos, (JDIMENSION) blockcnt); 
if (blockcnt < compptr- >MCU_width) { 

/* Create some dummy blocks at the right edge of the image, */ 
jzero_far ( (void *) coef ->MCU„buf f er [blkn + blockcnt], 

(compptr->MCU__width - blockcnt) * SIZEOF (JBLOCK) ) ; 
for (bi = blockcnt; bi < compptr ->MCU_width; bi++) { 
coef->MCU„bufferEbllcn+bi] [0] [0] = coef ->MCU_buf f er [bl3cn+bi-l] [0] [0] ; 
} 

} 

} else { 

/* Create a row of dummy blocks at the bottom of the image. */ 
jzero^far { (void *) coef->MCU_buf f er [blkn] , 

compptr- >MCU_width * SIZEOF (JBLOCK) ) ; 
for (bi = 0; bi < compptr- >MCU_width; bi++) { 

coef->MCU_buffer[blkn+bi] [0] [0] = coef->MCU_buf f er [blkn-1] [0] [0] / 

m ) 

blkn += compptr~>MCU_width; 
ypos += DCTSIZE; 

} 

"4i /* Try to write the MCU. In event of a suspension failure, we will 
F; . * re-DCT the MCU on restart (a bit inefficient, could be fixed...) 
*/ 

if { [ (*cinf o->entropy->encode_mcu) (cinfo, coef ~>MCU__buf fer) ) { 
L:; /* Suspension forced; update state counters and exit */ 

coef ->MCU__vert„off set = yoffset; 
jj^' coef->mcu_ctr = MCU_col_num; 
■ "".] return FALSE; 

J > 

i,j /* Completed an MCU row, but perhaps not an iMCU row */ 
r"„ coef->mcu_ctr = 0; 

/* Completed the iMCU row, advance counters for next one */ 
c o e f - > iMCU_r ow_num+ + ; 
s tart_iMCU_row (cinfo ) ; 
return TRUE; 



#ifdef FULL_COEF_BUFFER_SUPPORTED 

/* 

* Process some data in the first pass of a multi-pass case. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v_samp_f actor block rows for each component in the image. 

* This amount of data is read from the source buffer, DCT'd and quantized, 

* and saved into the virtual arrays. We also generate suitable dummy blocks 

* as needed at the right and lower edges. (The dummy blocks are constructed 

* in the virtual arrays, which have been padded appropriately.) This makes 

* it possible for subsequent passes not to worry about real vs. dummy blocks. 

* We must also emit the data to the entropy encoder. This is conveniently 

* done by calling compress_output () after we've loaded the current strip 

* of the virtual arrays. 

* 

* NB: input__buf contains a plane for each component in image. All 

* components are DCT'd and loaded into the virtual arrays in this pass. 

* However, it may be that only a subset of the components are emitted to 

* the entropy encoder during this first pass? be careful about looking 
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* at the scan- dependent variables {MCU dimensions, etc) . 

*/ 

METHODDEF (boolean) 

compress_f irst_pass ( j_compress_ptr cinfo, JSAMPIMAGE input^buf) 

{ 

niy„coef_ptr coef = (my_coef_ptr) cinfo->coef; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
JDIMENSION blocks_across/ MCUs_across, MCUindex; 
int bi, ci, h_sainp_factor , block_row, block_rows, ndummy; 
JCOEF lastDC; 

jpeg_coinponent_info *compptr; 
JBLOCKARRAY buffer; 

JBLOCKROW thisblockrow, lastblockrow; 

for (ci = 0, compptr = cinf o->coinp_inf o; ci < cinfo ->num_component s ; 
ci++, compptr ■»-+) { 
/* Align the virtual buffer for this component. */ 
buffer = (*cinf o->mem->access_virt_barray) 

( ( j_coxEimon_^tr) cinfo, coef -'>whole„image [ci] , 
coef->iMCU__row„num * compptr->v_sainp_f actor^ 
(JDIMENSION) compptr->v„sainp_f actor, TRUE) ; 
/* Count non-dummy DCT block rows in this iMCU row. */ 
if (coef->iMCU_row„num < last_iMCU_row) 

block_rows = corapptr->v_samp_f actor ; 
else { 

/* NB: can't use last_row__height here, since may not be setl */ 
block__rows = (int) ( compptr -->height_in_blocks % compptr->v_samp_f actor) ; 
if (block_rows == 0) block_rows = compptr->v„sa2np_factor; 

} 

blocks„across = compptr->width„in„blocks; 
p| h_samp„f actor = compptr->h__samp„f actor ; 

/* Count n\imber of dummy blocks to be added at the right margin. */ 
^^J ndummy = (int) {blocks_across % h„samp_f actor) ; 
01 if (ndummy > 0) 

ndummy = h_„samp_f actor - ndummy; 
%s /* Perform DCT for all non- dummy blocks in this iMC0 row. Each call 
%J! * on forwardJ^CT processes a complete horizontal row of DCT blocks. 
*/ 

^ for {block_row = 0; block_row < block_rows; block„row++) { 
y;l thisblockrow = buf f er [block_row] ; 

{*cinf o->f dct->f orward_DCT) (cinfo, compptr, 
' input_buf [ci] , thisblockroW/ 

- (JDIJIENSIOW) (block__row * DCTSIZE) , 

L,^ (JDIMENSION) 0, blocks_across) ; 

L,. if (ndummy > 0) { 

/* Create dxammy blocks at the right edge of the image. */ 
ffj thisblockrow blocks_across; /* => first dummy block */ 
L'^; jzero__far ( (void *) thisblockrow, ndummy * SIZEOF ( JBLOCK) ) ; 

lastDC - thisblockrow[-l] [0] ; 
O for (bi = 0; bi < ndummy; bi++) { 
thisblockrow [bi] [0] = lastDC; 

} 

} 

} 

/* If at end of image, create dummy block rows as needed. 

* The tricky part here is that within each MCU, we want the DC values 

* of the dxammy blocks to match the last real block's DC value. 

* This squeezes a few more bytes out of the resulting file... 
*/ 

if (coef->iMCU_row_niim == last_iMCU_row) { 

blocks_across += ndummy; /* include lower right corner */ 
MCUs^across = blocks_across / h„samp„f actor; 

for {block_row - block__rows; block_row < compptr->v„samp_f actor ; 
block_row++) { 
thisblockrow = buf fer [blocker ow] ; 
lastblockrow = buffer [blocker ow-1] ; 
jzero_far ( (void *) thisblockrow, 

(size„t) (blocks„across * SIZEOF ( JBLOCK) ) ) ; 
for (MCUindex = 0; MCUindex < MCUs_across; MCUindex++) { 
lastDC = lastblockrow [h_samp_factor-l] [0] ; 
for (bi = 0; bi < h_samp„f actor; bi++) { 
thisblockrow [bi 3 [0] = lastDC; 

} 

thisblockrow += h„samp„f actor ; /* advance to next MCU in row */ 
lastblockrow += h_samp_f actor; 

} 

} 

} 

} 
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/* NB: coinpress_output will increment iMCU„row_num if successful. 
* A suspension return will result in redoing all the work above next time, 
*/ 

/* Emit data to the entropy encoder, sharing code with subsequent passes */ 
return corapress_output (cinf o, input_buf ) ; 

} 



/* 

* Process some data in subsequent passes of a multi-pass case. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v„samp_f actor block rows for each component in the scan. 

* The data is obtained from the virtual arrays and fed to the entropy coder. 

* Returns TRUE if the iMCU row is completed, FALSE if suspended. 

* NB: input_buf is ignored; it is likely to be a I^ULL pointer. 
*/ 

METHODDEF (boolean) 

compress_output ( j_compress_ptr cinfo, JSAMPIMAGE input_buf) 

{ 

i'^y_coef_ptr coef = (ray_„coef_ptr) cinfo->coef; 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
int blkn, ci, xindex, yindex, yoffset; 
JDIMENSION start_col; 

JBLOCKARRAY buf f er [MAX_C0MPS_IN_SCA1S[] ; 

JBLOCKROW buffer_ptr? 

3 peg— c omponen t_inf o * c ompp t r ; 

/* Align the virtual buffers for the components used in this scan. 
NB: during first pass, this is safe only because the buffers will 
already be aligned properly, so jmemmgr.c won't need to do any I/O. 

&/ 

rtpT {ci = 0; ci < cinf o->comps_in„scan; ci++) { 
"^!J compptr = cinfo ->cur_comp_info [ci] ; 

buffer [ci] = { *cinf o->mem->access_virtjDarray) 

{ ( j_cominon_ptr) cinfo, coef->whole_image[compptr->coinponent_index] , 
.J coef ->iMCU_row_n\am * compptr->v_samp_f actor , 
%S (JDIMENSION) compptr->v_samp_f actor, FALSE) ; 

/* Loop to process one whole iMCU row */ 
-for {yoffset = coef ->MCU_vert_off set ; yoffset < coef ->MCU_rows_jper_iMCU_row 
yoffset++) { 

, for (MCU„col_num = coef->mcu_ctr ; MCU„col_num < cinf o->MCUs_per„row; 
MCU_col_n\am++ ) { 

ni /* Construct list of pointers to DOT blocks belonging to this MCU */ 

^ J blkn = 0; /* index of current DCT block within MCU */ 

2^ for (ci = 0; ci < cinf o->comps_in„scan; ci++) { 

lJ compptr = cinf o->cur„comp_inf o [ci] ; 

;S1 start_col = MCU„col_n\am * compptr->MCU__width; 

for (yindex = 0; yindex < compptr- >MCU__height; yindex++) { 
buffer_ptr = buffer [ci] [yindex+yof f set] + start_col; 
for (xindex = 0; xindex < compptr->MCU_.width; xindex++) { 
coef->MCU„buf f er [blkn-t-+] = buf fer_ptr++; 

} 

} 

} 

/* Try to write the MCU. */ 

if (! (*cinf o->entropy->encode_mcu) (cinfo, coef->MCU_buf fer) ) { 
/* Suspension forced; update state counters and exit */ 
coef->MCU_vert_of f set = yoffset ; 
coef->mcu_ctr = MCU_col__num; 
return FALSE; 

} 

} 

/* Completed an MCU row, but perhaps not an iMCU row */ 
coef->mcu_ctr = 0; 

} 

/* Completed the iMCU row, advance counters for next one */ 
c oe f - > iMCU_r ow_num+ + ; 
start_iMCU_row{ cinfo) ; 
return TRUE; 



#endif /* FULL_COEF„BUFFER_SUPPORTED */ 



/* 
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* Initialize coefficient buffer controller. 
V 

GLOBAL (void) 

jinit_c_coef„controller { j_coinpress__ptr cinfo, boolean need_full_buf f er) 
{ 

my_coef_ptr coef; 

coef = (my_coef_ptr) 

{*cinfo->mein->alloc_,small) ( ( j_coinmon_ptr) 
SIZEOF (my_coef_controller) ) ; 
cinfo->coef = (struct jpeg_c_coef_controller 
coef ->pub*s tar t_j>ass = start_^ass_coef ; 

/* Create the coefficient buffer, */ 

if {need„full_buffer} { 
#ifdef FULL_COEF„BUFFER„SUPPORTED 

/* Allocate a full-image virtual array for each component, */ 

/* padded to a multiple of samp_f actor DCT blocks in each direction, */ 

int ci; 

jpeg— component_inf o *compptr; 

for (ci = Q, compptr = cinf o->coinp_inf o; ci < cinf o->num__components ; 
ci++, compptr ++) { 

coef->whole_image [ci] = {*cinf o->mem->request_virt_barray} 
( ( j_common_ptr) cinfo, JPOOL„IMAGE, FALSE, 
{ JDIMENSION) j round„up ( (long) compptr- >width_in_blocks , 

(long) compptr->h_samp_factor) , 
(JDIMENSION) jround„up ( (long) compptr->height_in_blocks , 

(long) compptr- >v„samp_f actor) , 
(JDIMENSION) compptr->v_samp„f actor) ; 

} 

B ERREXIT ( c info , JERR_BAD_BUFFER_J![ODE ) ; 
#fiidif 

else { 

/* We only need a single-MCU buffer. */ 
%J JBLOCKROW buffer; 
int i? 

buffer = (JBLOCKROW) 

rS'l (*cinfo->mem->alloc__large) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

C_MAX_BLOCKS„IN_MCU * SIZEOF (JBLOCK) ) ; 
s for (i = 0; i < C_MAX_BLOCKS_IN_MCU; i++) { 
= coef ->MCU_buf f er [i] = buffer + i; 
} 

I:. J coef->whole_image[0] = NULL; /* flag for no virtual arrays */ 

m 



cinfo, JPOOL_IMAGE, 
*) coef; 



* jccolor.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains input colorspace conversion routines. 
V 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 



/* Private subobject */ 

typedef struct { 

struct jpeg_color_converter pub; /* public fields */ 

/* Private state for RGB->YCC conversion */ 

INT32 * rgb_ycc_tab; /* => table for RGB to YCbCr conversion */ 

} my__co 1 or_c onver t e r ; 

typedef my_color_converter * my_cconvert_ptr; 



j^Q£ _> YCbCr conversion: most coimnon case **************/ 



* YCbCr is defined per COIR 601-1, except that Cb and Cr are 
^^ormalized to the range 0 . .MAXJSAKPLE rather than -0.5 0.5. 
*''^he conversion equations to be implemented are therefore 

Y ~ 0.29900 * R + 0.58700 * G + 0.11400 * B 
m Cb = -0.16874 * R - 0,33126 * G + 0.50000 * B + CENTERJSAMPLE 

Cr = 0.50000 * R - 0.41B69 * G - 0.08131 * B + CENTERJSAMPLE 
MJ(These niombers are derived from TIFF 6.0 section 21, dated 3-June-92.) 
"*?^JNote: older versions of the IJG code used a zero offset of MAXJSAMPLE/2 , 
*4xather than CENTERJSAMPLE, for Cb and Cr, This gave equal positive and 
^feegative swings for Cb/Cr, but meant that grayscale values CCb=Cr=0) 
fjwere not represented exactly. Now we sacrifice exact representation of 
^jmaximum red and maximum blue in order to get exact grayscales. 

^ To avoid floating-point arithmetic, we represent the fractional constants 
^^as integers scaled up by 2^16 (about 4 digits precision) ; we have to divide 
51 the products by 2'^16, with appropriate rounding, to get the correct answer. 

For even more speed, we avoid doing any multiplications in the inner loop 
by pre calculating the constants times R,G,B for all possible values. 
For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table) ; 
for 12 -bit samples it is still acceptable. It's not very reasonable for 
S 16-bit samples, but if you want lossless storage you shouldn't be changing 
^ colorspace anyway. 

* The CENTERJSAMPLE offsets and the rounding fudge-factor of 0.5 are included 

* in the tables to save adding them separately in the inner loop. 

*/ 

#define SCALEBITS 16 /* speediest right-shift on some machines */ 

tdefine CBCR^OFFSET {(INT32) CENTERJSAMPLE « SCALEBITS) 

#define ONE_HALF ((INT32) 1 « ( SCALEBITS- 1) ) 

#define FIX(x) ((INT32) { (x) * { 1L« SCALEBITS) + 0.5)) 

/* We allocate one big table and divide it up into eight parts, instead of 

* doing eight alloc^small requests. This lets us use a single table base 

* address, which can be held in a register in the inner loops on many 

* machines (more than can hold all eight addresses, anyway) . 
*/ 



#def ine 
#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



R_Y_OFF 

G„Y_OFF 

B_Y_OFF 

R_CB„OFF 

G_CB„OFF 

B„CB„OFF 

R_CR_OFF 

G_CR„OFF 

B„CR_OFF 



/* offset 



(1* (MAXJSAMPLE+1) ) 
(2*(MAXJSAMPLE+1) ) 
(3* (MAXJSAMPLE+l) ) 
(4*CMAXJSAMPLE+1)) 
(5* (MAXJSAMPLE+l) ) 
B_CB_OFF /* 
(6* (MAXJSAMPLE+l) ) 
(7* (MAXJSAMPLE+l) ] 



to R => Y section 
' offset to G => Y 
' etc. */ 



*/ 

section */ 



B=>Cb, R=>Cr are the same */ 



#define TABLE_SI2E (8* (MAXJSAMPLE+l ) ) 
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* Initialize for RGB->yCC colorspace conversion. 
*/ 

METHODDEF(void) 

rgb_ycc„start ( j_c empress jtr cinfo) 
{ 

niy_cconvert_ptr cconvert = (my_cconvert_ptr) cinf o->cconvert; 
INT32 * rgb__ycc„tab; 
INT32 i; 

/* Allocate and fill in the conversion tables. */ 
cconvert->rgb_ycc_tab = rgb_ycc_tab = (INT32 *) 

{*cinf o->mem->alloc__small} ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

{TABLE_SIZE * SIZEOF (INT32 ) ) ) ; 

for (i = 0; i <= MAXJSAMPLE; i++) { 

rgb_ycc_tab[i+R_Y_OFF] = FIX(0. 29900) * i; 
rgb_:ycc_tab[i+G_Y_OFF] = FIX (0.587 00) * i; 

rgb_ycc„tab[i+B_Y_OFF] = FIX(0. 11400) * i + ONE_HALF; 

rgb_ycc_tab[i+R_CB„OFF] = (-FIX{0. 16874) ) * i; 
rgb_ycc_tab[i+G_CB„OFF] = (-FIX(0. 33126) ) * i; 
/* We use a rounding fudge-factor of 0.5-epsilon for Cb and Cr. 

* This ensures that the maximum output will round to MAXJSAMPLE 

* not MAXJSAMPLE+l, and thus that we don't have to range-limit. 
*/ 

rgb_ycc_tab[i+B„CB_OFF] = FIX(0. 50000) * i + CBCR_OFFSET + 0NE_HALF-1; 
/* B=:>Cb and R=>Cr tables are the same 

rgb_ycc„tab[i+R„CR_OFF] = FIX(0. 50000} * i + CBCK_OFFSET + 0NE_HALF-1; 

*/ 

rgb_^cc_tab[i+G_CR„OFF] = {-FIX(0 . 41869) ) * i; 
f=^= rgb_ycc_tabti+B_CR_OFF] = {-FIX(0 . 08131) ) * i; 

} m 



^jiConvert some rows of samples to the JPEG colorspace. 

*s 

*^fNote that we change from the application's interleaved-pixel format 

f'Jto our internal noninterleaved, one-plane-per-component format. 

S;The input buffer is therefore three times as wide as the output buffer. 

* A starting row offset is provided only for the output buffer. The caller 
|^.:,can easily adjust the passed input_buf value to accommodate any row 
of f set required on that side, 

i^Ihoddef {void) 

r§fe_ycc„convert ( j_compress_ptr cinfo, 

Q JSAMPARRAY input_buf, JSAMPIMAGE output jDuf, 

JDIMENSION output_row, int num_rows) 

my_cconvert^tr cconvert - {my_cconvert^tr) cinf o->cconvert; 
register int r, g, b; 

register INT32 * ctab = cconvert ->rgb_ycc_tab; 
register JSAMPROW inptr; 

register JSAMPROW outptrO, outptrl, outptr2; 

register JDIMENSION col; 

JDIMENSION num_cols = cinf o->image_width; 

while ( — nvmu.rows >= 0) { 
inptr = *input_buf ++; 
outptrO = output_buf [0] [output__row] ; 
outptrl = output_buf [1] [output_row3 ; 
outptr2 = output„buf [2] [output_row] ; 
output_row++ ; 

for (col = 0; col < num_cols; col+-{-) { 
r = GETJSAMPLE (inptr [RGB_RED] ) ; 
g = GETJSAMPLE ( inptr [RGB_GREEN] ) ; 
b = GETJSAMPLE (inptr [RGB„BLUE] ) ; 
inptr += RGB^PIXELSIZE; 

/* If the inputs are 0 . .MAXJSAMPLE, the outputs of these equations 

* must be too; we do not need an explicit range -limiting operation. 

* Hence the value being shifted is never negative, and we don't 

* need the general RIGHT_SHIFT macro. 

*/ 
/* Y */ 

outptrO [col] = (JSAMPLE) 

{ (ctab[r+R Y_OFF] + ctab[g+G_Y_OFF] + ctab[b+B_Y„OFF] ) 
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» SCALEBITS) ; 
/* Cb */ 

outptrl[col] = (JSAMPLE) 

{ {ctab[r+R_CB_OFF] + ctabCg+G_CB_OFF] + ctab[b+B_CB_0FF3 ) 
» SCALEBITS) ; 
/* Cr */ 

outptr2[col] = (JSAMPLE) 

( (ctab[r+R_CR_OFF] + ctab [g-l~G_CR_OFF] + ctabtb+B_CR_OFF] ) 
» SCALEBITS) ; 

} 

} 

} 



Cases other than RGB -> YCbCr **************/ 



/* 

* Convert some rows of samples to the JPEG colorspace. 

* This version handles RGB->grayscale conversion, which is the same 

* as the RGB->Y portion of RGB->YCbCr. 

* We assume rgb_^cc_.start has been called (we only use the Y tables) . 
*/ 

METHODDEF(void) 

^£rb_gray_convert (j_compress_j)tr cinfo, 

JSAMPARRAY input_buf, JSAHPIMAGE output_buf, 
JDIMENSION output_row, int num__rows) 

{ 

my_cconvert_ptr cconvert = (my„cconvert_ptr) cinf o->c convert ; 
register int r, g, b; 

fir^gister INT32 * ctab = cconvert->rgb_^cc_tab; 
'gegister JSAMPROW inptr; 
#^gister JSAMPROW outptr; 
[register JDIMENSION col; 

f^IDIMENSION nuia_cols = cinf o->image„width; 
''^ile ( — num^rows >= 0) { 

inptr = *input_buf ++; 
^7!' outptr = output„buf [0] Eoutput_row] ; 

output_row++; 
m for {col = 0; col < nuin_cols; col++) { 

r = GETJSAMPLE ( inptr [RGB^RED] ) ; 
- g = GETJSAMPLE (inptr [RGB_GREEN] ) ; 
U b = GETJSAMPLE (inptr [RGB_BLUE] ) ; 
inptr += RGB^PIXELSIZE; 
/* Y */ 

fll outptr [col 3 = (JSAMPLE) 

l^'l ( (ctab[r+R_Y„OFF] + ctab [g+G„Y„OFF] + ctab [b+B_Y_OFF] ) 

J » SCALEBITS) ; 

?l 



/* 

* Convert some rows of samples to the JPEG colorspace. 

* This version handles Adobe-style CMYK->ycCK conversion, 

* where we convert R=l-C. G=:l-M, and B=l-Y to YCbCr using the same 

* conversion as above, while passing K (black) unchanged. 

* We assiame rgb_ycc„start has been called. 
*/ 

METHODDEF{void) 

cmYk_ycc]c_„convert ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf , JSAMPIMAGE output„buf, 
JDIMENSION output_row, int num_rows) 

{ 

my_cconvert_ptr cconvert = {my_cconvert^tr ) cinf o->cconvert ; 
register int r, g, b; 

register INT32 * ctab = cconvert->rgb_ycc_tab; 
register JSAMPROW inptr; 

register JSAMPROW outptrO, outptrl, outptr2, outptrB ; 

register JDIMENSION col; 

JDIMENSION num„cols = cinf o->image„width; 

while { — n\am_rows 0) { 
inptr - *input_buf ++; 
outptrO = output_buf [0] [output_row] ; 
outptrl = output_buf [1] [output_row3 ; 
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outptr2 = output„buf [2] toutput_row] ; 
outptr3 = output_bTaf [3] [output_row] ; 
output_row++ ; 

for (col = 0; col < num^cols; col++) { 
r = MAXJSAMPLE - GETJSAMPLE {inptr [0] ) ; 
g = MAXJSAMPLE - GETJSAMPLE (inptr [1] ) ; 
b = MAXJSAMPLE - GETJSAMPLE (inptr [2 ]) ; 
/* K passes through as-is */ 

outptr3[col] = inptr [3]; /* don't need GETJSAMPLE here */ 
inptr += 4; 

/* If the inputs are 0 . .MAXJSAMPLE, the outputs of these equations 

* must be too; we do not need an explicit range -limiting operation. 

* Hence the value being shifted is never negative, and we don't 

* need the general RIGHT_SHIFT macro, 

*/ 
/* y */ 

outptrO[col] = (JSAMPLE) 

{ {ctab[r+R_Y_„OFF] + ctab [g+G_V_0FF3 + ctab [b+B„Y_0FF3 ) 
» SCALEBITS) ; 
/* Cb */ 

outptrlCcol] = (JSAMPLE) 

( (ctab[r+R_CB„OFF] + ctab [g+G_CB_OFF] + ctab [b+B_CB„OFF] ) 
» SCALEBITS) ; 
/* Cr */ 

outptr2[col] = (JSAMPLE) 

{ (ctab[r+R„CR_OFF] + ctab Ig+G_CR_0FF3 + ctab [b+B_CR__OFF] ) 
» SCALEBITS) ; 

} 

} 

} 

\^=fconvert some rows of samples to the JPEG colorspace. 

^;^This version handles grayscale output with no conversion. 

*lJThe source can be either plain grayscale or YCbCr (since Y == gray) . 

f/; 

MEilHODDEF(void) 

gl^yscale„convert ( j_compress_ptr cinfo, 
y:j JSAMPARRAY input^uf , JSAMPIMAGE outputjouf , 

i^ii JDIMENSION output_row, int num_rows) 

^register JSAMPROW inptr; 
Lregister JSAMPROW outptr; 
^-.register JDIMENSION col; 

^^iIdiMENSION niom^cols = cinf o->image„width; 
p;int instride = cinf o->input„components ; 

^While C — num_rows 0) { 
Q: inptr - *input_buf ++; 

outptr = output_buf [03 [output_row] ; 

ou tpu t_r ow+ + ; 

for (col = 0; col < num_cols; col++) { 

outptrtcol] = inptr[03; /* don't need GETJSAMPLE () here */ 
inptr += instride; 

} 

} 

} 



/* 

* Convert some rows of samples to the JPEG colorspace. 

* This version handles multi -component colorspaces without conversion, 

* We assiJime input__components == num_components . 
*/ 

METHODDEF(void) 

null_convert ( j„compress jtr cinfo, 

JSAMPARRAY input_buf, JSAMPIMAGE output_buf, 
JDIMENSION output^row, int num„rows) 

{ 

register JSAMPROW inptr; 

register JSAMPROW outptr; 

register JDIMENSION col; 

register int cij 

int nc = cinf o->num„components; 

JDIMENSION num_cols = cinf o->image_width; 

while (--n\Ha_rows 0) { 
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/* It seems fastest to make a separate pass for each component. */ 
for {ci = 0; ci < no; ci++) { 
inptr = *input_buf; 

outptr = output_buf [ci] [output_row] ; 

for (col = 0; col < num_cols; col++) { 
outptrEcol] = inptr[ci]; /* don't need GETJSAMPLEO here */ 
inptr += nc; 

} 

} 

input_buf++; 
output_row++; 

} 

} 



/* 

* Empty method for start_pass. 

*/ 

METHODDEF(void) 

null_method ( j_compress_ptr cinfo) 
{ 

/* no work needed */ 

} 



/* 

* Module initialization routine for input colorspace conversion. 

*/ 

GLOBAL (void) 

jimt_color_converter ( j„compress_ptr cinfo) 

'^Sy„cconvert _ptr cconvert; 

"<^convert = {my_cconvert_ptr) 

{*cinf o->mem->alloc„small) { ( j„common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_color_converter) ) ; 
„qinf o->cconvert = (struct jpeg„color_converter *) cconvert; 
V* set start_pass to null method until we find out differently */ 
?i|G}convert->pub,start_pass = null_method; 

'7* Make sure input_components agrees with in_color_space */ 

^switch (cinf o->in„color_space) { 

L^ase JCS^GRAYSCALE: 

1= if (cinfo->input_components 1= 1) 

ERREXIT { cinfo , JERR_BAD_IN_COLORSPACE ) ; 
ni break? 

"tase JCS„RGBt 
#S RGB_PIXELSIZE != 3 

p:. if {cinfo->input_components 1= RGB_PIXELSIZE) 
™= ERREXIT (cinfo , JERR_BAD„IN„COLORSPACE ) ; 
break; 

#endif /* else share code with YCbCr */ 

case JCS_YCbCr: 

if (cinf o->input_components != 3) 

ERREXIT (cinf o , JERR„BAD_IN_COLORSPACE) ; 
break; 

case JCS^CMYK: 
case JCS_yccK; 

if {cinf o->input_components != 4) 

ERREXIT (cinfo, JERR_BAD„IN_COLORSPACE) ; 

break; 

defaults /* JCS_.UNIKNOWN can be anything */ 

if {cinf o->input_components < 1) 

ERREXIT { C inf O , JERR_BAD_IN_COLORS PACE ) ; 
break; 

} 

/* Check num_components, set conversion method based on requested space */ 
switch (cinf o->jpeg_color__space) { 
case JCS^GRAYSCALiE: 

if (cinf o->num_components i= 1) 

ERREXIT (cinfo, JERR„BAD_J_COLORSPACE) ; 
if (cinfo->in_color_space == JCS„GRAYSCALE) 

cconvert->pub. color„convert = grayscale_convert; 
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else if (cinf o->in„color_space == JCS_RGB) { 

cconvert->pub. start_:pass = rgb_ycc_start; 

cconvert->pub.color_convert = rgb_gray„convert ; 
} else if (cinfo->in_color_space == JCS^YCbCr) 

cconvert->pub. color_convert = grayscale_convert ; 
else 

ERREXIT ( cinf o , JERR_C01SIVERSI0N_N0TIMPL) ; 
break; 

case JCS„RGB: 

if (cinfo->nuin_coinponents != 3) 

ERREXIT { cinf o , JERR„BAD_J_COLORSPACE ) ; 
if (cinf o->in_color_space == JCS_RGB && RGB„PIXELSIZE == 3) 

cconvert->pub.color_convert = null_convert; 
else 

ERREXIT ( cinf JERR_CONVERSION„NOTIMPL) ; 
break; 

case JCS_YCbCr: 

if {cinf o->nurci„components != 3) 

ERREXIT ( cinf o . JERR_BAD_J__COLORSPACE ) ; 
if (cinf o->in_color_space =- JCS_RGB) { 

cconvert->pub.start_pass = rgb_ycc_start; 

cconvert->pub.color_convert = rgb_ycc_convert ; 
} else if (cinf o->in_color_space == JCS_YCbCr) 

cconvert->pub.color_convert = null_convert; 
else 

ERREXIT ( cinf O , JERR_CONVERSION_NOTIMPL) ; 
break; 

case JCS_CMYK: 

f1 if (cinf o->nunucomponents \- 4) 

'Z ERREXIT ( cinf o , JERR_-BAD^_COLORSPACE ) ; 

if (cinf o->in_color_space == JCS_CMyK) 
01 cconvert->pub. color_convert = null_convert ; 

else 

'^^ ERREXIT (cinf O, JERR_CONVERSION_NOTIMPL) ; 
"^=1 break; 

'lase JCS_yCQK: 

IJ if (cinf o->niiin„coit^onents != 4) 

flj ERREXIT ( cinf O, JERR„BAD_J_COLORSPACE) ; 

if (cinf o->in_color„space == JCS_CMYK) { 
f cconvert->pub. start__pass - rgb_^cc„start; 

cconvert->pub.color_convert - cinyk_ycck_convert; 
pq.; } else if (cinf o->in_color_space == JCS_YCCK) 

cconvert->pub, color_convert = null_convert; 
HJ else 

ERREXIT (cinf o, JERR_CONVERSIOIOfOTIMPL) ; 
^: break? 

piiefault: /* allow null conversion of JCS^UNKNOWN */ 

if (cinf o->jpeg_color„space != cinf o->in_color_space | | 
cinf o->num_components 1= cinf o->input„components) 

ERREXIT (cinf O , JERR„CONVERSION_NOTIMPL) ; 
cconvert->pub.color_convert = null_convert; 
break; 

} 

} 
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* jcdctmgr.c 

* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 
* 

* This file contains the forward-DCT management logic. 

* This code selects a particular DCT implementation to be used, 

* and it performs related housekeeping chores including coefficient 

* quantization, 
*/ 

#define JPEG_INTERNALS 
# include "jinclude.h" 
# include "jpeglib.h" 

#include "jdct.h" /* Private declarations for DCT subsystem */ 



/* Private subobject for this module */ 

typedef struct { 

struct jpeg__f orward_dct pub; /* public fields */ 

/* Pointer to the DCT routine actually in use */ 
f orwar d_DCT_me thod_p tr do_dc t ; 

/* The actual post-DCT divisors not identical to the quant table 

* entries, because of scaling (especially for an unnormalized DCT) . 

* Each table is given in normal array order. 
*/ 

flICTELEM * divisors [NUM^UANTJTBLS] ; 

#tfdef DCT_FLOAT_SUPPORTED 

Qfl* Same as above for the floating-point case. */ 

; Jll oa t„DCT„me thod_p tr do_f 1 oat_dc t ; 

!'1^AST_FL0AT * f loat_divisors ENUM_QUANT_TBLS] ; 
teridif 

} i||y_fdct_contr oiler ; 

t^edef my_fdct_controller * my_fdct_ptr; 

Initialize for a processing pass, 
f'^r; Verify that all referenced Q- tables are present, and set up 
2^ the divisor table for each one. 

Ml In the current implementation, DCT of all components is done during 

the first pass, even if only some components will be output in the 
jJ! first scan. Hence all components should be examined here, 

ll;THODDEF{void) 

start _^ass„f dctmgr ( j_compress_ptr cinfo) 
{ 

my_fdct_ptr fdct = (my_f dct_ptr) cinfo->fdct; 

int ci, qtblno, i; 

jp^g— component„inf o *compptr; 

JQUANT_TBL * qtbl ; 

DCTELEM * dtbl; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo ->num_c omponents ; 
ciH-+, compptr++) { 
qtblno = coiipptr->guant_tbl_no; 

/* Make sure specified quantization table is present */ 
if {qtblno < 0 1 | qtblno >= NUM„QUANT_TBLS | | 
cinfo->quant_tbi^trs [qtblno] == NULL) 

ERREXITK cinfo, JERR_NO_QUANT_TABLE , qtblno); 
qtbl = cinfo->Quant_tbl_ptrs [qtblno] ; 
/* Confute divisors for this quant table */ 

/* We may do this more than once for same table, but it's not a big deal */ 
switch {cinfo->dct_method) { 
#ifdef DCT_ISLOW_SapPORTED 
case JDCT^ISLOW:" 

/* For LL£^ IDCT method, divisors are equal to raw quantization 
* coefficients multiplied by 8 (to counteract scaling) . 
*/ 

if (fdct->divisors [qtblno] NULL) { 
fdct->di visors [qtblno] = (DCTELEM *) 

(*cinfo->mem->alloc_small) { ( j_coramon_ptr) cinfo, JPOOL_IMAGE, 
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DCTSIZE2 * SIZEOF(DCTELEM) ) ; 

} 

dtbl = fdct->divisors [qtbino] ; 
for (i = 0; i < DCTSIZE2; { 
dtblCi] = ((DCTELEM) qtbl->quantval[i] ) « 3; 
} 

break; 

#endif 

#ifdef DCT„IFAST_SUPPORTED 
case JDCT„IFAST: 
{ 

/* For AA&N IDCT method, divisors are equal to quantization 

* coefficients scaled by scalef actor [row] *scalef actor [col] , where 

* scalef actor [0] = 1 

* scalef actor [k] = cos(k*PI/16} * sqrt(2) for k=l . . 7 

* We apply a further scale factor of 8. 
*/ 

#define CONST__BITS 14 

static const INT16 aanscales [DCTSIZE2] = { 

/* precomputed values scaled up by 14 bits */ 
16384, 22725, 21407, 19266, 16384, 12873, 8867, 4520, 
31521, 29692, 26722, 22725, 17855, 12299, 6270, 
29692, 27969, 25172, 21407, 16819, 11585, 5906, 
26722, 25172, 22654, 19266, 15137, 10426, 5315, 
22725, 21407, 19266, 16384, 12873, 8867, 4520, 
17855, 16819, 15137, 12873, 10114, 6967, 3552, 
12299, 11585, 10426, 8867, 6967, 4799, 2446, 
6270, 5906, 5315, 4520, 3552, 2446, 1247 



22725, 
21407, 
19266, 
16384, 
12873, 
8867, 
4520, 
}; 

SHIFT 



TEMPS 



f'd if (fdct->divisors [qtbino] == NULL) { 
';z fdct->divisors [qtbino] = (DCTELEM *} 

(*cinf o->mera->alloc_small) ( ( j„coinmon_ptr) cinfo, JPOOL_IMAGE, 
m DCTSIZE2 * SIZEOF (DCTELEM) ) ; 

(Xthl = fdct->divisors [qtbino] ; 
'^^J for (i = 0; i < DCTSIZE2; i++) { 
dtbl[i] = (DCTELEM) 

DESCALE (MULTIPLY16V16 ( ( INT32 ) qtbl->quantval [ i ] , 
(INT32) aanscales [i] ) , 
C0NST_BITS-3) ; 

H } 

break; 

tendif 

#|idef DCT_FLOAT_SUPPORTED 
hI case JDCT_FLOAT: 

J! /* For float AA&N IDCT method, divisors are equal to quantisation 
l-l * coefficients scaled by scalef actor [row] *scalef actor [col] , where 

* scalef actor [0] - 1 

* scalef actor [k] = cos(k*PI/16) * sqrt(2) for k=1..7 

* We apply a further scale factor of 8. 

* What's actually stored is 1 /divisor so that the inner loop can 

* use a multiplication rather than a division. 
*/ 

FAST^FLOAT * fdtbl; 
int row, col; 

static const double aanscalef actor [DCTSIZE] = { 
1.0, 1.387039845, 1.306562965, 1.175875602, 
1.0, 0.785694958, 0.541196100, 0.275899379 

}? 

if (fdct->float_divisors [qtbino] == NULL) { 
fdct->float„divisors [qtbino] = (FAST_FLOAT *) 

{*cinf o->mem->alloc_small) { ( j_common_ptr) cinfo, JPOOL„IMAGE, 
DCTSIZE2 * SIZEOF (FAST_FLOAT) ) ; 

} 

fdtbl = fdct->f loat_di visors [qtbino] ; 
i = 0; 

for (row = 0; row < DCTSIZE; row++) { 
for (col = 0; col < DCTSIZE; col-t-+) { 
fdtbl [i] = (FAST_FLOAT) 

(1.0 / (((double) qtbl->quantval[i] * 

aanscalef actor [row] * aanscalef actor [col] * 8.0))); 

i++; 



} 



} 
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break; 

#endif 

default: 

ERREXIT ( Cinf o , JERR„NOT_COMPILED) ; 
break; 

} 

} 

} 



* Perform forward DCT on one or more blocks of a component. 

* 

* The input samples are taken from the sample_data [ ] array starting at 

* position start_row/start_col, and moving to the right for any additional 

* blocks. The quantized coefficients are returned in coef_blocks [ ] . 
*/ 

METHODDEF(void) 

forward_DCT ( j„compress_ptr cinfO/ jpeg_component_info * compptr, 

JSAMPARRAY sample_data, JBLOCKROW coef_blocks, 

JDIMENSION start_row, JDIMENSION start^col, 

JDIMENSION num_blocks) 
/* This version is used for integer DCT implementations. */ 
{ 

/* This routine is heavily used, so it's worth coding it tightly. */ 

my„fdct_ptr fdct = (my„fdct_ptr } cinfo->fdct; 

f orward_DCT__method_ptr do_dct = fdct->do_dct ; 

DCTELEM * divisors = f dct->divisors [compptr->quant_tbl_no] ; 

DCTELEM workspace [DCTSIZE2 ] ; /* work area for FDCT subroutine */ 

JDIMENSION bi; 

'^s^ample_data += start_row; /* fold in the vertical offset once */ 

rior (bi = 0; bi < nuin_blocks; bi++, start_col += DCTSIZE) { 

/* Load data into workspace, applying unsigned- >signed conversion */ 
v;!; { register DCTELEM *workspaceptr ; 

register JSAMPROW elemptr; 

register int elemr; 

=1-; workspaceptr = workspace; 

p'l for (elemr = 0; elemr < DCTSIZE; elemr++) { 

" " elemptr = sample_data [elemr] + start_col; 
#if DCTSIZE == 8 /* unroll the inner loop */ 

L: *workspaceptr++ = GETJSAMPLE (*elemptr++) - CENTERJSAMPLE ; 

I," *workspaceptr++ = GETJSAMPLE (*elemptr++) - CENTERJSAMPLE ; 

•Ul *workspaceptr++ = GETJSAMPLE ( *elemptr++) - CENTERJSAMPLE; 

r::i *workspaceptr++ = GETJSAMPLE {* elemptr ++) - CENTERJSAMPLE; 
*workspaceptr++ = GETJSAMPLE (* elemptr ++) - CENTERJSAMPLE; 

"--\ *workspaceptr++ = GETJSAMPLE (* elemptr ++) - CENTERJSAMPLE; 

C5; *workspaceptr++ = GETJSAMPLE ( *elemptr++) - CENTERJSAMPLE; 

r^: *workspaceptr++ = GETJSAMPLE (* elemptr ++) - CENTERJSAMPLE; 
#eise 

{ register int elemc; 

for (elemc = DCTSIZE; elemc > 0; elemc — ) { 

*workspaceptr++ = GETJSAMPLE (*elemptr++) - CENTERJSAMPLE; 

} 

} 

#endif 

} 

} 

/* Perform the DCT */ 
(*do_dct) (workspace); 

/* Quantize/descale the coefficients, and store into coef _blocks [ ] */ 
{ register DCTELEM temp, qval; 
register int i; 

register JCOEFPTR output_ptr = coef_blocks [bi] ; 

for (i = 0; i < DCTSIZE2; i++) { 
qval = divisors [i]; 
temp = workspace [i] ; 

/* Divide the coefficient value by qval, ensuring proper rounding. 

* Since C does not specify the direction of rounding for negative 

* quotients, we have to force the dividend positive for portability. 

* In most files, at least half of the output values will be zero 

* (at default quantization settings, more like three-quarters...) 

* so we should ensure that this case is fast. On many machines, 
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* a comparison is enough cheaper than a divide to make a special test 

* a win. Since both inputs will be nonnegative, we need only test 

* for a < b to discover whether a/b is 0. 

* If your machine's division is fast enough, define FAST„DIVIDE, 
*/ 

#ifdef FAST_DIVIDE 

#define DIVIDE_BY(a,b) a /= b 

^else 

#define DIVIDE„BY(a,b) if (a >= b) a /= b; else a = 0 
#endif 

if (temp < 0) { 
temp = -temp; 

temp += gval»l; /* for rounding */ 
DIVIDE^BY ( temp , qval ) ; 
temp = -temp; 
} else { 

temp -f= qval»l; /* for rounding */ 
DIVIDE_BY(temp, qval); 

} 

output_ptr ti] = (JCOEF) temp; 
} 

} 

} 

} 



#ifdef DCT_FLOAT_SUPPORTED 
METHODDEF (void) 

f orward_DCT_f loat ( j„c empress^ tr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY sample_data. JBLOCKROW coef„blocks, 
JDIMENSION start_row, JDIMENSION start_col, 
% JDIMENSION num_blocks) 

/Aift'his version is used for floating-point DCT implementations, */ 

{O 

7A* This routine is heavily used, so it's worth coding it tightly. */ 
%y_fdct_ptr fdct - (my„fdct_jptr) cinfo->fdct; 
M;loat_DCT_method_ptr do„dct = f dct->do_f loat_dct; 

,;iAST_FLOAT * divisors = fdct->f loat_divisors [compptr->quant_tbl_no] ; 
%'AST_FLOAT workspace [DCTS I ZE2 ] ; /* work area for FDCT subroutine */ 
^rfiDIMENSION bi; 

' '^ample„data += start__row; /* fold in the vertical offset once */ 

Lfor (bi = 0; bi < num^blocks; bi++, start„col += DCTSIZE) { 

L,, /* Load data into workspace, applying unsigned- >signed conversion */ 

{ register FAST„FLOAT *workspaceptr; 
fT; register JSAMPROW elemptr; 
l^l register int elemr; 

Ci workspaceptr = workspace; 

i^i; for (elemr = 0; elemr < DCTSIZE; elemr++) { 
elemptr = sample_data [elemr] + start_col; 

#if DCTSIZE ==8 /* unroll the inner loop */ 

*Workspaceptr++ = (FAST^FLOAT) ( GET JSAMPLE (* elemptr ++) 
*workspaceptr++ = (FAST^FLOAT) (GET JSAMPLE (* elemptr ++) 
*workspaceptr++ = (FAST_FLOAT) (GETJSAMPLE (*elemptr++) 
*workspaceptr++ = (FAST^FLOAT) (GETJSAMPLE(*elemptr++) 
*workspaceptr++ = (FAST^FLOAT) (GETJSAMPLE (* elemptr ++) 
*workspaceptr++ = (FAST^FLOAT) (GETJSAMPLE ( *elemptr++) 
*workspaceptr++ = (FAST„FLOAT) (GET JSAMPLE (* elemptr ++) 
*workspaceptr++ = {FAST_FLOAT) ( GET JSAMPLE (* elemptr ++) 

#else 

{ register int elemc; 

for (elemc = DCTSIZE; elemc > 0; elemc — ) { 
*workspaceptr++ = (FAST^FLOAT) 

(GETCrSAMPLE(*elemptr++) - CENTERJSAMPLE) ; 

} 

} 

#endif 

} 

} 

/* Perform the DCT */ 
(*do_dct) (workspace); 

/* Quantize/descale the coefficients, and store into coef„blocks [ ] */ 
{ register FAST_PLOAT temp; 
register int i; 

register JCOEFPTR output_ptr = coef_blocks [bi] ; 



- CENTER JSAMPLE) 

- CENTER JSAMPLE) 

- CENTER JSAMPLE) 

- CENTERJSAMPLE) 

- CENTERJSAMPLE) 

- CENTERJSAMPLE) 

- CENTERJSAMPLE) 

- CENTERJSAMPLE) 
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for (i = 0; i < DCTSI2E2; i++) { 
/* Apply the quantization and scaling factor */ 
temp = workspace [i] * divisors [i]; 
/* Round to nearest integer. 

* Since C does not specify the direction of rounding for negative 

* quotients, we have to force the dividend positive for portability. 

* The maximum coefficient size is +-16K (for 12-bit data) , so this 

* code should work for either 16-bit or 32-bit ints. 
*/ 

output_ptrtiJ = (JCOEF) ((int) (temp + (FAST„FLOAT) 16384.5) - 16384); 
} 

} 

} 

} 

#endif /* DCT_FLOAT_SUPPORTED */ 



/* 

* Initialize FDCT manager. 
*/ 

GLOBAL (void) 

jinit_forward_dct { j_compress_ptr cinfo) 

{ 

my„fdct_ptr fdct; 
int i; 

fdct = {my_f dct_ptr) 

{*cinfo->mem-->alloc_small) ( ( j_common„ptr) cinfo, JPOOL„IMAGE, 
SI ZEOF(my_fdct_contr oiler) ) ; 
'i^info->f dot ~ {struct jpeg_f orward_dct *) fdct; 
^&ct->pub.start_pass - start_pass_f dctmgr; 

~"switch (cinf o->dct_method) { 
#iidef DCT_ISL0W_SUPPORTED 
'"^Ciase JDCT„ISLOW: 

fdct->pub. f orward_DCT = forward_DCT; 
%S fdct->do_dct = jpeg„fdct_islow; 
break; 
#@xidif 

#ifdef DCT„IFAST_SUPPORTED 
scase JDCT_IFAST: 

L?, fdct->pub.forward_DCT = forward_DCT; 
l.^ fdct->do_dct = jpeg_f dct_i£ast; 
Li break; 

#;if def DCT_FLOAT_SUPPORTED 
''iase JDCT„FLOAT: 

fj fdct->pub. forward^DCT = f orward_Jx:T_-f loat; 
,^1 fdct->do„f loat_dct - jpeg_f dct„f loat; 

break; 
#endif 
default: 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 
break; 

} 

/* Mark divisor tables unallocated */ 
for (i = 0; i < NUM„QUANT_TBLS; i++) { 
fdct->divisors [i] = NULL; 
#ifdef DCT_FLOAT_SUPPORTED 

f dct->f loat__divisors [i] = NULL; 
#endif 
} 
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/* 

* jchuff.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane, 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy encoding routines. 

* Much of the complexity here has to do with supporting output suspension. 

* If the data destination module demands suspension, we want to foe able to 

* back up to the start of the current MCU. To do this, we copy state 

* variables into local working storage, and update them back to the 

* permanent JPEG objects only upon successful completion of an MCU. 
*/ 

#define JPEG_INTERNALS 
# include " j include . h " 
# include "jpeglib.h" 

#include "jchuff.h" /* Declarations shared with jcphuff .c */ 



/* Expanded entropy encoder object for Huffman encoding. 

* 

* The savable_state subrecord contains fields that change within an MCU, 

* but must not be updated permanently until we complete the MCU. 

*/ 

typedef struct { 

INT32 put_buffer; /* current bit-accumulation buffer */ 

int put_bits; /* # of bits now in it */ 

fiflt last_dc„val [MAX_COMPS_IN__SCAN] ; /* last DC coef for each component */ 
} ^l:avable_.state; 

/f^ltiThis macro is to work around compilers with missing or broken 
*ldStructure assignment. You'll need to fix this code if you have 
^%uch a compiler and you change MAX_COMPS_IN_SCAN . 

H 

#i¥ndef NO_STRUCT_ASSIGN 

#iSfine ASSIGN_STATE(dest,src) ( (dest) = (src) ) 
#^se 

#i^£ MAX_COMPS_IN_SCAN == 4 
#€efine ASSIGN_STATE (dest , src) \ 

y. ( (dest) .putjDuf f er = (src) .put_buffer, \ 
(dest) .put_bits = (src) .put_bits, \ 

U (dest) .las t_dc_val[0] = (src) . last„dc_val [0] , \ 

n| (dest) .last_dc_val[l] = (src) .last_dc_val [1] , \ 

L !- (dest) .last_dc_val[21 = (src) . last_dc_val [2] , \ 

J (dest) ,last_dc_val[3] = (src) . last_dc_yal [3] ) 
lllidif 
^^dif 



typedef struct { 

struct jpeg_entropy_encoder pub; /* public fields */ 

savable„state saved; /* Bit buffer & DC state at start of MCU */ 

/* These fields are NOT loaded into local working state. */ 

unsigned int restarts_to_go; /* MCUs left in this restart interval */ 

int next_restart_num; /* next restart number to write (0-7) */ 

/* Pointers to derived tables (these workspaces have image lifespan) */ 
c„derived__tbl * deader i ved_tbl s tNUM_HUFF_TBLS] ; 
c_derived_tbl * ac_derived_tbls lNUM_HUFF_TBLS] ; 

#ifdef ENTROPY_OPT_SUPPORTED /* Statistics tables for optimization */ 

long * dc_count_^trs[NUM_HUFF__TBLS] ; 

long * ac_count_ptrs[NUM„HUFF_TBLS] ; 
tendif 

} huf f_entropy_encoder; 

typedef huf f_entropy_encoder * huf f_entropy_ptr ; 

/* Working state while writing an MCU. 
* This struct contains all the fields that are needed by subroutines. 

*/ 

typedef struct { 
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JOCTET * next_output_byte ; /* => next byte to write in buffer */ 
size_t free__in_buf fer; /* # of byte spaces remaining in buffer */ 
savable_state cur; /* Current bit buffer & DC state */ 

j_compress_ptr cinfo; /* duKip„buffer needs access to this */ 

} working_state ; 



/* Forward declarations */ 

METHODDEF (boolean) encode_mcu_huf f JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF(void) f inish_pass_huf f JPP( { j_compress_ptr cinfo)); 
#ifdef ENTROPy_OPT„SUPPORTED 

METHODDEF (boolean) encode_nicu__gather JPP ( ( j„compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (void) f inish_pass_gath.er JPP ( ( j_coinpress _ptr cinfo)); 
#endif 



/* 

* Initialize for a Huffman- compressed scan. 

* If gather_statistics is TRUE, we do not output anything during the scan, 

* just count the Huffman symbols used and generate Huffman code tables. 
*/ 

METHODDEF (void) 

start_pass_huf f ( j_compress_j5tr cinfo, boolean gather_statistics) 

{ 

huf f„entropy__ptr entropy = (huf f_entropy_ptr ) cinf o->entropy; 
int ci, dctbl, actbl; 
jpe9_component_inf o * coitipptr; 

ri^ (gather^statistics) { 
#i-fdef ENTROPY__OPT_SUPPORTED 

viJ entropy->pub.encode_mcu = encode_mcu_gather; 
entropy- >pub. finish_pass = f inishjass_gather ; 
#4lse 

y^J ERREXIT( cinfo, JERR_NOT_COMPILED) ; 
#fendif 
, ll' else { 

entropy->pub.encode_mcu = encode_mcu_huf f ; 
ki\ entropy->pub. finish _pass = f inish_pass_huf f ; 

sfor {ci = 0; ci < cinf o->comps_in„s can; ci++) { 
La, compptr = cinf o->cur_comp_inf o [ci] ; 

dctbl = compptr->dc_tbl_no; 
k3 actbl = compptr->ac_tbl_no; 
ni if (gather_statistics) { 
#a:|def ENTROPY_OPT„SUPPORTED 

/* Check for invalid table indexes */ 
El /* (raake_c_derived_tbl does this in the other path) */ 
if (dctbl < 0 1 I dctbl >= NUI1.HUFF_TBLS ) 
ERREXITl (cinfo, JERR_NO_HUFF_TABLE , dctbl); 

if (actbl < 0 It actbl >= ^JUM_HUFF„TBLS ) 
ERREXXTl (cinfo , JERR__NO_HUFF__TABLE , actbl ) ; 
/* Allocate and zero the statistics tables */ 

/* Note that jpeg„gen_optimal„table expects 257 entries in each table! */ 

if ( entropy- >dc_count_ptrs [dctbl] == NULL) 
entropy->dc_count_ptrs [dctbl] = (long *) 

(*cinfo->mem->alloc_small) ( (j_coinmon_ptr) cinfo, JPOOL_IMAGE, 
257 * SIZEOFdong) ) ; 

MEMZERO {entropy->dc_count_ptrs [dctbl] , 257 * SIZEOFdong)); 

if ( entropy- >ac_count_ptrs [actbl] === NULL) 
entropy->ac_count__ptrs [actbl] = (long *) 

( *cinf o->mem->alloc_small) ( ( j_common_ptr ) cinfo, JPOOL_IMAGE, 
257 * SIZEOFdong) ) ; 

MEMZERO(entropy->ac„countjtrs[actbl] , 257 * SIZEOFdong)); 

tendif 

} else { 

/* Compute derived values for Huffman tables */ 

/* We may do this more than once for a table, but it's not expensive */ 
jpeg_make_c_derived„tbl (cinfo, TRUE, dctbl, 

& entropy- >dc_derived„t bis [dctbl] ) ; 
jpeg„make„c„derived_tbl ( cinfo , FALSE , actbl , 

Sc entropy->ac_derived_tbls [actbl] ) ; 

} 

/* Initialize DC predictions to 0 */ 
entropy- > saved .las t_dc_val [ c i ] = 0 ; 

} 
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/* Initialize bit buffer to empty */ 
entropy->saved.put_buf f er - 0; 
entropy->saved.put_bits = 0; 

/* Initialize restart stuff */ 

entropy->restarts_to_go = cinfo->restart_interval ; 
entropy- >next_res tar t„num = 0; 



/* 

* Compute the derived values for a Huffman table. 

* This routine also performs some validation checks on the table. 
* 

* Note this is also used by jcphuff .c. 
V 

GLOBAL (void) 

jpeg_malce„c__derived_tbl ( j_compress_ptr cinfo, boolean isDC, int tblno, 
c_derived_tbl ** pdtbl) 

{ 

JHUFF„TBL *htbl; 

c„derived__tbl *dtbl; 

int p, i, 1, lastp, si, maxsymbol; 

char huf fsizeC257] ; 

unsigned int huf f code [257] ; 

unsigned int code; 

/* Note that huffsize[] and huffcode[] are filled in code-length order, 
* paralleling the order of the symbols themselves in htbl->huf fval [] . 

J/ 

IC* Find the input Huffman table */ 

Wi (tblno < 0 I I tblno >= NUtOiUFPLTBLS ) 

0^ ERREXITl (cxnfo, JERiLJSfO_HUFF_TABLE , tblno); 

.'Ktbl = 

isDC ? cinfo->dc_huff_tbl_ptrs [tblno] : cinfo->ac_huff_tbl_^trs [tblno] ; 
%i|f (htbl == NULL) 

:j| ERREXITKcinfo, JERIU^O_HUFF_TABLE , tblno); 

Allocate a worlcspace if we haven't already done so. */ 
mt (*pdtbl NULL) 

*pdtbl = (c„derived_tbl *) 
- {*cinfo->mem->alloc_small) ( ( j_common_:ptr) cinfo, JPO0L_IMAGE, 
kh SIZEOF ( c_derived_tbl ) ) ; 

pftbl = *pdtbl; 

fli* Figure C.l: make table of Huffman code length for each symbol */ 
3 = 0; 

Clor (1 = 1; 1 <= 16; 1++) { 
fi i = (int) htbl->bits[l] ; 

if (i < 0 I I p + i > 256) /* protect against table overrun */ 

ERREXIT (cinf o , JERR„BAD„HUFF_TABLE ) ; 
while (i — ) 

huf f size [p++] = (char) 1; 

} 

huf f size Ip3 = 0; 
lastp = p; 

/* Figure C.2: generate the codes themselves */ 

/* We also validate that the counts represent a legal Huffman code tree. */ 

code = 0; 

si = huf f size [0] ; 

p = 0; 

while (huf f size [p] ) { 

while (((int) huffsize[p]) si) { 
huf fcode [p++] = code; 
code-i-+ ; 

} 

/* code is now 1 more than the last code used for codelength si; but 
* it must still fit in si bits, since no code is allowed to be all ones. 

*/ 

if {((INT32) code) >= (((INT32) 1) « si)) 

ERREXIT (cinf o, JERR_BAD„HUFF_TABLE) ; 
code «= 1; 
si++j 

} 
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/* Figure C.3: generate encoding tables */ 

/* These are code and size indexed by symbol value */ 

/* Set all codeless symbols to have code length 0; 

* this lets us detect duplicate VAL entries here, and later 

* allows emit_bits to detect any attempt to emit such symbols. 
*/ 

MEM2ER0{dtbl->ehufsi, SIZEOF (dtbl->ehuf si) ) ; 

/* This is also a convenient place to check for out-of -range 

* and duplicated VAL entries. We allow 0,.255 for AC symbols 

* but only 0..15 for DC. (We could constrain them further 

* based on data depth and mode, but this seems enough.) 
*/ 

maxsymbol = isDC ? 15 : 255; 

for {p = 0; p < lastp; p++) { 
i = htbl->huffvallp] ; 

if {i < 0 1 I i > maxsymbol || dtbl->ehuf si [i] ) 

ERREXIT ( cinf o , JERR_BAD_HUFP__TABLE ) ; 
dtbl->ehufcofi] = huffcode[p]; 
dtbl->ehuf si [i] = huffsize[p]; 

} 

} 



/* Outputting bytes to the file */ 

/* Emit a byte, taking 'action' if must suspend. */ 
#define emit_byte (state, val , action) \ 

£ * (state) ->next_output.byte++ = (JOCTET) (val) ; \ 
-i_f ( — (state) - >f re e_in_buffer ==0) \ 
"7^ if (i dump_buffer (state) ) \ 
{ action? } } 



Ld^AL (boolean) 

di^p_buffer (working_state * state) 

/*^':Empty the output buffer; return TRUE if successful, FALSE if must suspend */ 

V^truct jpeg_destination__mgr * dest = state->cinf o->dest ; 

''it (! ( *dest->empty_output_buf f er) (state->cinfo) ) 
return FALSE; 

'fj^ After a successful buffer dump, must reset buffer pointers */ 
^,state->next_outputjoyte = dest->next_output„byte; 
'™state->free_in_„buf f er = dest->free_in_buf f er; 
Hire turn TRUE; 

/f*=; Outputting bits to the file */ 

/* Only the right 24 bits of put_buffer are used; the valid bits are 

* left- justified in this part. At most 16 bits can be passed to emit_bits 

* in one call, and we never retain more than 1 bits in put_buffer 

* between calls, so 24 bits are sufficient. 
*/ 

INLINE 

LOCAL (boolean) 

emit„bits (working_state * state, unsigned int code, int size) 

/* Emit some bits; return TRUE if successful, FALSE if must suspend */ 

{ 

/* This routine is heavily used, so it's worth coding tightly. */ 
register INT32 put_buffer = (INT32) code; 
register int put_bits = state->cur .put„bits ; 

/* if size is 0, caller used an invalid Huffman table entry */ 
if (size == 0) 

ERREXIT(state->cinfo, JERR„HUFF_MISSING_CODE) ; 

put_buffer &= (({INT32) l)«size) - 1; /* mask off any extra bits in code */ 

put_bits += size; /* new number of bits in buffer */ 

put_buffer «= 24 - put__bits; /* align incoming bits */ 

put_buffer |= state->cur .put_buf f er ; /* and merge with old buffer contents */ 
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while (put^bits >= 8) { 

int c = (int) { {put„buf fer » 16) & OxFF) ; 



emi t_by te { s tate , c , return FALSE ) ; 

if (c == OxFF) { /* need to stuff a zero byte? */ 

emi t_byte (state, 0, return FALSE) ; 

} 

put__buffer «= 8; 
put_bits -= 8; 

} 

state->cur ,put_buf f er = put_buffer; /* update state variables */ 
state->cur .put_bits = put_bits; 

return TRUE; 

} 



LOCAL (boolean) 

flush_bits (working_state * state) 
{ 

if {I emi t„bits (state, Ox7F, 7)) /* fill any partial byte with ones */ 
return FALSE; 

state->cur .putjDuf fer =0; /* and reset bit-buffer to empty */ 
state->cur .put_bits = 0; 
return TRUE; 

} 



/* Encode a single block's worth of coefficients */ 
H|p^L (boolean) 

enGode_„one_block (working_state * state, JCOEFPTR block, int last_dc„val, 
c_derived_tbl *dctbl, c_derived_tbl *actbl) 

^'i^egister int terap, temp2; 
.%'egister int nbits; 
"idegister int k, r, i; 

\7* Encode the DC coefficient difference per section F. 1.2*1 */ 
fttemp = temp2 = block [0] - last_dc_val; 
^if (temp < 0) ( 

Lh temp = -temp; /* temp is abs value of input */ 

/* For a negative input, want temp2 = bitwise complement of abs (input) */ 
jf-' /* This code assumes we are on a two's complement machine */ 
D temp 2 — ? 

Li* Find the number of bits needed for the magnitude of the coefficient */ 
rtibits = 0; 
'whi 1 e ( temp ) { 

nbits++; 

temp »= 1; 

} 

/* Check for out-of -range coefficient values. 
* Since we're encoding a difference, the range limit is twice as much, 
*/ 

if (nbits > MAX_C0EF„BITS+1) 

ERREXIT(state->cinfo, JERR_BAD_DCT_COEF ) ; 

/* Emit the Huffman-coded symbol for the number of bits */ 
if (! emi t_bits (state, dctbl->ehufco [nbits] , dctbl->ehuf si [nbits] ) ) 
return FALSE; 

/* Emit that number of bits of the value, if positive, */ 
/* or the complement of its magnitude, if negative. */ 
if (nbits) /* emit_bits rejects calls with size 0 */ 

if (I emi t_bits (state, (unsigned int) temp2, nbits)) 
return FALSE; 

/* Encode the AC coefficients per section F.1.2.2 */ 

r = 0; /* r = run length of zeros */ 

for (k = 1; k < DCTSI2E2; k++) { 

if ((temp = block [jpeg_natural_order [k] ] ) == 0) { 

r++; 
} else { 
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/* if run length > 15, must emit special run-length-16 codes (OxFO) */ 
while (r > 15) { 

if (! emit_bits (state, actbl->ehuf co [OxFO] , actbl->ehuf si [OxFO] ) ) 

return FALSE; 
r -= 16; 

} 

temp 2 = temp; 

if {teit^ < 0) { 
temp = -temp; /* temp is abs value of input */ 

/* This code ass\ames we are on a two's complement machine */ 
temp2~-; 

} 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits =1; /* there must be at least one 1 bit */ 

while ((temp »= 1)) 
nbits++; 

/* Check for out-of -range coefficient values */ 
if (nbits > MAX_COEF_BITS) 
ERREXIT ( state->cinf o , JERR_BAD_DCT„COEF) ; 

/* Emit Huffman symbol for run length / number of bits */ 
i = (r « 4) + nbits; 

if (! emit_bits (state, actbl->ehuf co [i] , actbl->ehuf si [i] ) ) 
return FALSE; 

/* Emit that number of bits of the value, if positive, */ 
/* or the complement of its magnitude, if negative, */ 
if (! emit_bits (state, (unsigned int) temp2, nbits)) 
return FALSE; 

% r = 0; 
} 

tM 

'V* If the last coef (s) were zero, emit an end-of -block code */ 
'-if {r > 0) 

if (] emit^bits {state, actbl->ehuf co [0] , actbl->ehuf si [0] ) ) 
",r return FALSE; 

fTreturn TRUE; 



Emit a restart marker & resynchronize predictions, 
LiPpAL (boolean) 

as^t_restart (working_state * state, int restart__num) 

""'int ci; 

if (! flush_bits (state) ) 
return FALSE; 

emit_byte (state, OxFF, return FALSE); 

emit_byte (state, JPEG_RSTO + restart„num, return FALSE) ; 

/* Re-initialize DC predictions to 0 */ 
for (ci = 0; ci < state->cinf o->comps_in_scan; ci++) 
state->cur , last_dc_val [ci] = 0 ; 

/* The restart counter is not updated until we successfully write the MCU. */ 

return TRUE; 

} 



* Encode and output one MCU's worth of Huffman- compressed coefficients. 
*/ 

METHODDEF (boolean) 

encode_jncu_huf f {j_compress _ptr cinfo, JBLOCKROW *MCU„data) 
{ 

huf f„entropy^tr entropy = (huf f„entropy_j3tr) cinf o->entropy; 
working_state state; 
int blkn, ci; 
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jpeg"— component_inf o * compptr; 



/* Load up working state */ 

state.next_output_foyte = cinf o->dest->next_output„byte; 
state. free_in_buf f er = cinfo->dest->free_in„buf f er; 
ASSIGN_STATE (state . cur , entropy- >saved) ; 
state. cinfo = cinfo; 

/* Emit restart marker if needed */ 
if (cinf o->restart_interval) { 

if (entropy->restarts_to_go == 0) 

if {! emit_restart {&state, entropy- >next_res tar t_num) ) 

return FALSE; 

} 

/* Encode the MCU data blocks */ 

for {blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
ci = cinf o->MCtJ_meit\bership [blkn] ; 
compptr = cinf o->cur„comp_inf o [ci] ; 
if (J encode_one„block(&state, 

MCU_data[blkn] [0] , state. cur. las t„dc_val [ci] , 
entropy->dc„derived_tbls [convpptr->dc_tbl_no] , 
entropy->ac_derived_tbls [compptr ->ac_tbl_no] ) ) 
return FALSE; 
/* Update last„dc_val */ 

state.cur.last_dc_val[ci] = MCU__data [blloi] [0] [0] ; 

} 

/* Completed MCU, so update state */ 

cinfo->dest->next_output_byte - state. next_.output_byte; 
cinfo->dest->free_in_buf fer = state . free_in_buffer ; 
[^SSIGN_STATE {entropy- >saved^ state . cur) ; 

z'^* Update restart- interval state too */ 

fllf C cinf o->res tar t_interval) { 

"f^, if (entropy->restarts„to_go ==0) { 

entropy->restarts_to_go = cinf o->restart„interval ; 
"'^1 entropy->next„restartjruim++; 
,r\ entropy->next_restart_num &= 7; 
'% > 

entropy- >res tar ts_to_go — ; 

fll 

^ return TRUE ; 

m 

Finish up at the end of a Huffman-compressed scan. 
I)^HODDEF(void} 

fxhish__pass„huf f ( j_compress_ptr cinfo) 
{ 

huf f_.entropy_ptr entropy = (huf f_entropy_ptr) cinf o->entropy; 
working_state state; 

/* Load up working state . . . flush_bits needs it */ 
state. next_output„byte = cinf o->dest->next„output_byte; 
state.free_in_Jouf f er = cinf o->dest->free_in_buf fer; 
ASSIGN_STATE {state , cur , entropy- >saved) ; 
state. cinfo = cinfo; 

/* Flush out the last data */ 
if { 1 f lush_bits (&state) ) 

ERREXITl cinfo, JERR^CANT^SUSPEND) ; 

/* Update state */ 

cinf o->dest->next„output_byte = state. next_output_byte; 
cinf o->dest->free_in_buf fer = state, free_in_fouf fer ; 
ASSIGN_STATE(entropy->saved, state. cur) ; 



* Huffman coding optimization. 
* 

* We first scan the supplied data and count the number of uses of each symbol 

* that is to be Huf fman- coded, (This process MUST agree with the code above.) 

* Then we build a Huffman coding tree for the observed counts. 
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* Symbols which are not needed at all for the particular image are not 

* assigned any code, which saves space in the DHT marker as well as in 

* the compressed data. 
*/ 

#ifdef ENTROPY_OPT_SUPPORTED 



/* Process a single block's worth of coefficients */ 
LOCAL (void) 

htest_one_block ( j„compress_j>tr cinfo. JCOEFPTR block, int last_dc„val, 
long dc_counts [ 3 , long ac_counts [ ] ) 

{ 

register int temp; 
register int nbits; 
register int k, r; 

/* Encode the DC coefficient difference per section F, 1,2.1 */ 

temp = block [0] - last_dc_val; 
if {temp < 0) 
temp - -temp; 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits = 0; 
while (temp) { 

nbits++; 

temp »= 1; 

} 

/* Check for out-of -range coefficient values- 

Since we're encoding a difference, the range limit is twice as much. 

(nbits > MAX_C0EP_BITS+1) 
3l ERREXIT(cinfo, JERR_BADJ5CT_C0EF} ; 

Count the Huffman symbol for the number of bits */ 
Mc_counts [nbits ] + + ? 

Encode the AC coefficients per section F.1.2.2 */ 

far = 0; /* r = run length of zeros */ 

-for (k = 1; k < DCTSI2E2; k++) { 

if ((temp = block [ jpeg_natural__order [k] ] ) == 0) { 

r++; 
} else { 

FT' /* if run length > 15, must emit special run-length-16 codes (OxFO) */ 
r: while (r > 15) { 
ac_counts [OxFO] ++; 
f! r 16; 
} 

/* Find the niomber of bits needed for the magnitude of the coefficient */ 
if (temp < 0) 
temp - -temp; 

/* Find the nximber of bits needed for the magnitude of the coefficient */ 
nbits =1; /* there must be at least one 1 bit */ 

while {(temp 1)) 
nbits+-}-; 

/* Check for out-of -range coefficient values */ 
if (nbits > MAX_COEF_BITS) 
ERREXIT ( Cinf O , JERR_BAD_DCT_COEF ) ; 

/* Count Huffman symbol for run length / number of bits */ 
ac_counts[(r « 4) + nbits] ++; 

r = 0; 

} 

} 

/* If the last coef (s) were zero, emit an end-of -block code */ 
if (r > 0} 

ac_counts [ 0 ] ++ ; 

} 



* Trial-encode one MCU's worth of Huffman- compressed coefficients. 
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* No data is actually output, so no suspension return is possible, 
*/ 

METHODDEF (boolean) 

encode_mcu_gather { j„coinpress_ptr cinfo, JBLOCKROW *MCU_data) 
{ 

huf f_entropy__ptr entropy = (huf f_entropy_j>tr ) cinf o->entropy; 
int blkn, ci; 

jpeg— component^info * compptr; 

/* Take care of restart intervals if needed */ 
if {cinfo->restart_interval) { 

if {entropy->restarts_to_go ==0) { 

/* Re-initialize DC predictions to 0 */ 
for (ci s= 0; ci < cinf o->coinps_in_scan; ci++) 
entropy->saved. last_dc_val [ci] = 0; 
/* Update restart state */ 

entropy- >res tart s_to„go = cinf o->restart_interval; 

} 

entropy- >res tar ts_to_go — ; 

} 

for (blkn = 0; blkn < cinf o->blocks_.in_MCU; blkn-n-) ( 
ci = cinf o->MCU_meinber ship [blkn] ; 
compptr = cinf o->cur_comp_info [ci] ; 

htest_one_block{cinf o, MCU„data[blkn] [0], ent ropy- > saved. las t_dc_val [ci] , 

entropy- >dc_count_ptrs [compptr->dc_tbl„no] , 

entropy- >ac_count_ptrs [compptr->ac_tbl_no] ) ; 
entropy->saved. last_dc_val [ci] = iytCU_data[bllcn] [0] [0] ; 

} 

^ra^eturn TRUE; 

^JGenerate tlie best Huffman code table for tlie given counts, fill Iitbl. 
*,jNote tliis is also used by jcphuff .c. 

*r 

^^Tlie JPEG standard requires tliat no symbol be assigned a codeword of all 
if lone bits (so that padding bits added at the end of a compressed segment 
1": can't loolc like a valid code). Because of the canonical ordering of 
s^^-ii codewords, this just means that there must be an unused slot in the 
^ longest codeword length category. Section K,2 of the JPEG spec suggests 

J, reserving such a slot by pretending that symbol 256 is a valid symbol 
^I^with count 1. In theory that's not optimal; giving it count zero but 
1*1 including it in the symbol set anyway should give a better Huffman code. 
ffijBut the theoretically better code actually seems to come out worse in 

practice, because it produces more all-ones bytes (which incur stuffed 
"Ni zero bytes in the final file) . In any case the difference is tiny. 

S| The JPEG standard requires Huffman codes to be no more than 16 bits long. 
^ If some symbols have a very small but nonzero probability, the Huffman tree 

* must be adjusted to meet the code length restriction. We currently use 

* the adjustment method suggested in JPEG section K.2. This method is *not* 

* optimal; it may not choose the best possible limited- length code. But 

* typically only very- low- frequency symbols will be given less-than-optiraal 

* lengths, so the code is almost optimal. Experimental comparisons against 

* an optimal limited -length- code algoritlam indicate that the difference is 

* microscopic usually less than a hundredth of a percent of total size. 

* So the extra complexity of an optimal algoritlim doesn't seem worthwhile. 
*/ 

GLOBAL (void) 

jpeg_gen_optimal_table { j_corapress_ptr cinfo, JHUFF_TBL * htbl, long freq[]) 
{ 

#define MAX_CLEN 32 /* assumed maximum initial code length */ 

UINT8 bitS[MAX_CLEN+l] ; /* bits[k] = # of symbols with code length k */ 
int codesize[257] ; /* codesize[k] = code length of symbol k */ 

int others [257]; /* next symbol in current branch of tree */ 

int cl, c2; 
int p, i, j; 
long v; 

/* This algorithm is explained in section K.2 of the JPEG standard */ 

MEMZERO(bits, SIZEOF(bits) ) ; 
MEMZERO (codes ize, SIZEOF (codesize) ) ; 
for (i - 0; i < 257; i++) 

others [i] = -1; /* init links to empty */ 
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freq[2561 =1; /* make sure 256 has a nonzero count */ 

/* Including the pseudo- symbol 256 in the Huffman procedure guarantees 

* that no real symbol is given code-value of all ones, because 256 

* will be placed last in the largest codeword category. 
*/ 

/* Huffman's basic algorithm to assign optimal code lengths to symbols */ 
for (;;) { 

/* Find the smallest nonzero frequency, set cl = its symbol */ 
/* In case of ties, take the larger symbol number */ 
cl = -1; 

V = lOOOOOOOOOL; 

for {i = 0; i <- 256; i++) { 
if (freqCi] && freq[i] <= v) { 

V = f req[i] ; 
cl = i; 

} 

} 

/* Find the next smallest nonzero frequency, set c2 = its symbol */ 
/* In case of ties, take the larger symbol number */ 
c2 = -1; 

V = lOOOOOOOOOL; 

for (i = 0; i <= 256; i++) { 

if (freq[i] && freq[i] <= v i I- cl) { 

V = freq[i3 ; 
c2 = i; 

} 

} 

/-k Done if we've merged everything into one frequency */ 
11 if (C2 < 0) 
break; 

/* Else merge the two counts /trees */ 
■ I freqtcl] += freq[c2]; 
freq[c2] ^ 0; 

ii /* Increment the codes ize of everything in el's tree branch */ 

] codesize [cl]++; 

^ while {others [cl] >= 0) { 

cl = others [cl 3 ? 

codesize [cl 3 ++; 

: > 



others [cl] = c2; /* chain c2 onto el's tree branch */ 

/* Increment the codesize of everything in c2's tree branch */ 
codesize [c2 3 ++; 
t while (others [c2 3 >= 0) { 
i c2 = others [c2] ; 
codesize [c2 3 + + ; 

} 



/* Now count the number of symbols of each code length */ 
for (i = 0; i <= 256; i++) { 
if (codesize [i3 ) { 

/* The JPEG standard seems to think that this can't happen, */ 
/* but I'm paranoid,.. */ 
if (codesize [i3 > MAX_CLEN) 
ERREXIT{cinfo, JERR_HUFF_CLEN_OVERFLOW) ; 

bits [codesize [i] ]++; 

} 

} 

/* JPEG doesn't allow symbols with code lengths over 16 bits, so if the pure 

* Huffman procedure assigned any such lengths, we must adjust the coding. 

* Here is what the JPEG spec says about how this next bit works: 

* Since symbols are paired for the longest Huffman code, the symbols are 

* removed from this length category two at a time. The prefix for the pair 

* (which is one bit shorter) is allocated to one of the pair; then, 

* skipping the BITS entry for that prefix length, a code word from the next 

* shortest nonzero BITS entry is converted into a prefix for two code words 

* one bit longer, 
*/ 



for (i = MAX_CLEN; i > 16; i--) { 
while (bits[i] > 0) { 

j = i - 2; /* find length of new prefix to be used */ 

while (bits[j] =- 0) 

j — ? 

bits[i] -= 2; /* remove two symbols */ 

bits[i-l]++; /* one goes in this length */ 

bits[j+l} +=2; /* two new symbols in this length */ 

bits[j] — ; /* symbol of this length is now a prefix */ 

} 

} 

/* Remove the count for the pseudo-symbol 256 from the largest codelength */ 
while (bitsEi] ==0) /* find largest codelength still in use */ 

i--; 
bits [i] --; 

/* Return final symbol counts {only for lengths 0..16) */ 
MEMCOPY(htbl->bits, bits, SIZEOF (htbl->bits) ) ; 

/* Return a list of the symbols sorted by code length */ 

/* It's not real clear to me why we don't need to consider the codelength 

* changes made above, but the JPEG spec seems to think this works. 
*/ 

p = 0; 

for (i = 1; i <= MAX_CLEN; i++) { 
for (j = 0; j <= 255; j++} { 

if {codesizeEj] == i) { 
htbl->huffval[p3 = (UINT8) j; 

P++; 

... ) 

} 

W* Set sent_table FALSE so updated table will be written to JPEG file. */ 
^il?itbl->sent_table = FALSE; 

I'lFinish up a statistics-gathering pass and create the new Huffman tables . 

¥^ 

I#THODDEF(void) 

fa!iish_pass_gather { j_compress_ptr cinfo) 

Auf f_entropy_ptr entropy = (huf f_entropy_ptr) cinf o->entropy; 

'■int ci, dctbl, actbl; 

■--|peg_component_inf o * compptr; 

PiiJHUFF_TBL **htblptr; 

!::iDOolean did_dc [NUM„HUFF„TBLS] ; 

Lfooolean did_ac [NUM_HUFF_TBLS] ; 

/* It's important not to apply jpeg„gen_optimal_table more than once 

* per table, because it clobbers the input frequency counts! 
*/ 

MEMZERO (did_dc , SIZEOF (did_dc ) ) ; 
MEMZERO (did_ac , SIZEOF Cdid_ac ) ) ; 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
dctbl = compptr->dc_tbl_no; 
actbl - compptr- >ac„tbl_no; 
if (! did_dc [dctbl 1 ) { 

htblptr = & cinf o->dc_huff _tbl_ptrs [dctbl 3 ; 

if (*htblptr NULL) 
*htblptr = jpeg„alloc_huf f_table ( ( j_common_ptr) cinfo); 

jpeg_gsn„optimal_table (cinfo , *htblptr , entropy- >dc_count_ptrs [dctbl ] ) ; 

did_dc [dctbl] == TRUE; 

} 

if (! did_ac [actbl ] ) { 

htblptr = & cinfo->ac„huff_tbl_ptrs [actbl] ; 

if {*htblptr == NULL) 
*htblptr = jpeg„alloc_huf f_table ( (j_common_ptr ) cinfo); 

jpeg_-gen_optimal_table (cinf 0, *htblptr , entropy- >ac_count_ptrs [actbl] ) ; 

did_ac [actbl] = TRUE; 

} 

} 

) 
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#endif /* ENTROPY_OPT_SUPPORTED */ 



* Module initialization routine for Huffman entropy encoding. 
*/ 

GLOBAL (void) 

jinit_huf f_encoder ( j_compress_ptr cinfo) 

{ 

huf f__entropy^tr entropy? 
int i? 

entropy = (huf f_entropy_ptr) 

{*cinfo->inera->alloc_sinall) ( { j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF{huf f_entropy_encoder) ) ; 
cinfo->entropy = (struct jpeg_entropy_encoder *) entropy; 
entropy->pub. start_j)ass ~ start_^ass„huf f ; 

/* Mark tables unallocated */ 

for {i = 0; i < NUM_HUFF_TBLS ; i++) { 

entropy->dc_derived_tbls [i] = entropy->ac_derived_tbls [i] = NULL 
#ifdef ENTROPY_OPT„SUPPORTED 

entropy->dc_count_jptrs [i] = entropy->ac„count_ptrs [i] = NULL; 
#endif 
} 
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* jcinit.c 

* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 

* 

* This file contains initialization logic for the JPEG compressor. 

* This routine is in charge of selecting the modules to be executed and 

* making an initialization call to each one, 
* 

* Logically, this code belongs in jcmaster.c. It's split out because 

* linking this routine implies linking the entire compression library. 

* For a transcoding-only application, we want to be able to use jcmaster.c 

* without linking in the whole library. 
*/ 

ftdefine JPEG_INTEKNALS 
# include " j include .h" 
# include "jpeglib.h" 



/* 

* Master selection of compression modules. 

* This is done once at the start of processing an image. We determine 

* which modules will be used and give them appropriate initialization calls. 

*/ 

GLOBAL (void) 

jinit_compress_master { j_compress_ptr cinfo) 
{ 

f-4* Initialize master control (includes parameter checking/processing) */ 
'•'3init_c_master_control (cinfo, FALSE /* full compression */); 

\y 

^* Preprocessing */ 

""Iff ( ! cinfo->raw„data_in) { 

^iJ j init„color_converter {cinfo ) ; 

%| j init_downsampler (cinfo ) ; 

jinit_c_prep_controller (cinfo, FALSE /* never need full buffer here */); 

^ 

yj* Forxmrd DCT */ 

p j init„f orward_dct ( cinfo) ; 

''f* Entropy encoding: either Huffman or arithmetic coding. */ 
if (cinf o->arith_code) { 

ERREXIT ( cinfo , JERR_ARITHJNOTIMPL ) ; 
else { 

if (cinf o->pr ogres si ve_mode) { 
^fdef C„PROGRESSIVE__SUPPORTED 
v/ -; j init_phuff _6nc Oder (cinfo) ; 
#Mse 

O ERREXIT (cinfo, JERR_NOT_COMPILED) ; 
fiiadif 

} else 

jinit_huff_encoder (cinfo) ; 

} 

/* Need a full-image coefficient buffer in any multi-pass mode. */ 
j init„c„coef„cont roller (cinfo , 

(boolean) (cinf o->n\im_scans > 1 | | cinf o->optimize__coding) ) ; 
jinit_c„main_controller (cinfo, FALSE /* never need full buffer here */); 

jinit__marker„writer (cinf o) ; 

/* We can now tell the memory manager to allocate virtual arrays. */ 
(*cinfo->mem->realize_virt_arrays) ( { j„common_ptr) cinfo) ; 

/* Write the datastream header (SOI) immediately. 

* Frame and scan headers are postponed till later. 

* This lets application insert special markers after the SOI. 
*/ 

(*cinfo->marker->write_f ile_header) (cinfo) ; 
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* jcraainct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 

* 

* This file contains the main buffer controller for compression. 

* The main buffer lies between the pre-processor and the JPEG 

* conpressor proper; it holds downsampled data in the JPEG colorspace. 
*/ 

#define JPEG.INTERNALS 
# include "j include. h" 
# include "jpeglib.h" 



/* Note: currently, there is no operating mode in which a full -image buffer 

* is needed at this step. If there were, that mode could not be used with 

* "raw data" input, since this module is bypassed in that case. However, 

* we've left the code here for possible use in special applications. 

V 

#undef FULL_MAIN_BUFFER_SUPPORTED 



/* Private buffer controller object */ 

typedef struct { 

struct jpeg„c_,xtiain__controller pub; /* public fields */ 

JDIMENSION cur_iMCU_row; /* number of current iMCU row */ 
r-iiDIMENSION rowgroup_ctr ; /* counts row groups received in iMCU row */ 
'-^goolean suspended; /* remember if we suspended output */ 

y5'_BUF_M0DE pass„mode; /* current operating mode */ 

"J* If using just a strip buffer, this points to the entire set of buffers 
yj* (we allocate one for each component) , In the full -image case, this 
Vii* points to the currently accessible strips of the virtual arrays. 

-^^^SAMPARRAY buf f er [MAX_COMPONENTS] ; 

frlfdef FULL_MAIM__BUFFER_SUPPORTED 

"■f* If using full-image storage, this array holds pointers to virtual-array 
31 * control blocks for each component. Unused if not full-image storage. 

U. */ 

L3virt_sarray_ptr whole_image[MAX_COMPONENTS] ; 
^le&dif 

f||ny_main_controller; 

tjjjedef my„main_controller * my_main_ptr; 

M' Forward declarations */ 

METHODDEF (void) process_data_simple_main 

JPP( ( j_compress_ptr cinfo, JSAMPARRAY input_buf, 

JDIMENSION *in_row_ctr, JDIMENSION in_rows_avail ) ) ; 
#ifdef FULL„MAIN„BUFFER_SUPPORTED 
METHODDEF (void) process_data_buf f er_main 

JPP( ( j_compress_ptr cinfo, JSAMPARRAY input_buf, 

JDIMENSION *in_row„ctr, JDIMENSION in_rows_avail ) ) ; 

tendif 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF (void) 

start_pass_main ( j_compress_j)tr cinfo, J_BUF_MODE pass_mode) 

{ 

my_main_ptr main = (my_jcaain_ptr) cinf o->main; 

/* Do nothing in raw-data mode. */ 
if (cinf o->raw_data„in) 
return ; 

main->cur_iMCU_row =0; /* initialize counters */ 
main->rowgroup_ctr - 0; 
main->suspended = FALSE; 

main->pass_mode = pass_mode; /* save mode for use by process_data */ 
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switch (pass_mode) { 
case JBUF_PASS„THRU: 
#ifdef FULL_MAIN_BUFFER_SaP PORTED 

if {main->whole„iinage[0] 1= NULL) 

ERREXIT ( cinf o , JERR_BAD_BUFFER__MODE ) ; 

#endif 

main- > pub. process_data = process_data„siinple_main; 
break; 

#ifdef FULL_MAIN_BUFFER_SUPPORTED 
case JBUF_SAVE__SOaRCE: 
case JBUF_CRANK_DEST: 
case JBUF_SAVE_AND_PASS : 

if {main->whole„image [0] == NULL) 

ERREXIT { cinf o , JERR„BAD_BUFFER_MODE) ; 
main->pub.process_data = process„data_buf f er_main; 
break; 
#endif 
default: 

ERREXIT ( cinf O , JERR„BAD_BUFFER„MODE) ; 
break; 

} 

} 



/* 

* Process some data. 

* This routine handles the simple pass -through mode, 

* where we have only a strip buffer, 

KgfHODDEF(void) 

p2ocess_data_simple_main ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf, JDIMENSION *in_row_ctr, 

SI JDIMENSION iA-rows_avail) 

^™i|iy-_main_ptr main = (my_main_ptr) cinfo->main; 

y While (main->cur_iMCU_row < cinf o->total_iMCU_rows) { 

/* Read input data if we haven't filled the main buffer yet */ 
"4^= if (main->rowgroup_ctr < DCTSIZE) 
rfj { *cinf o->prep->pre_process„data) (cinfo , 

input„buf, in_row_ctr, in_rows_avail , 
^ main->buf f er / Scmain->rowgroup_ctr/ 

(JDIMENSION) DCTSIZE) ; 

Z.t /* If we don't have a full iMCU row buffered, return to application for 
ni * more data. Note that preprocessor will always pad to fill the iMCU row 
:•; * at the bottom of the image. 

2 */ 

if (main->rowgroup_ctr 1= DCTSIZE) 
Q return; 

/* Send the completed row to the compressor */ 

if (I (*cinfo->coef->compress„data) (cinfo, main->buf f er) ) { 

/* If compressor did not consume the whole row, then we must need to 

* suspend processing and return to the application. In this situation 

* we pretend we didn't yet consume the last input row; otherwise, if 

* it happened to be the last row of the image, the application would 

* think we were done. 
*/ 

if (i main suspended) { 
{ *in_row__ctr) — ; 
main-> suspended = TRUE; 

} 

return; 

} 

/* We did finish the row. Undo our little suspension hack if a previous 
* call suspended; then mark the main buffer empty. 
*/ 

if ( main- > suspended) { 
( * in_row„c tr )-}-+; 
main->suspended = FALSE; 

} 

main->rowgroup_ctr - 0; 
main- > cur _iMCU„row++ ; 

} 

} 
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#ifdef FULL_MAIN_BUFFER„SUPPORTED 

/* 

* Process some data. 

* This routine handles all of the modes that use a full-size buffer. 
*/ 

METHODDEF(void) 

process_data_buf f er_inain ( j_c empress,^ tr cinfo, 

JSAMPARRAY input__buf, JDIMENSION *in_row_ctr, 
JDIMENSION in_rows„avail) 

{ 

my^mainjtr main = (my__main_ptr ) cinfo->main; 
int ci; 

jpe3_component_inf o *compptr; 

boolean writing = {main->pass_mode != JBUF_CRANK_DEST) ; 

while (main->cur_iMCU_row < cinf o->total„iMCU_rows) { 

/* Realign the virtual buffers if at the start of an iMCU row, */ 
if {main->rowgroup_ctr ==0) { 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
main- >buf far [ci] - (*cinfo->mem->access_virt_s array) 
( { j_common_ptr) cinfo, main->whole„image [ci] , 
main->cur_iMCU_row * (compptr->v_samp_f actor * DCTSIZE) , 
(JDIMENSION) ( compptr- >v_samp„f actor * DCTSIZE) , writing) ; 

} 

/* In a read pass, pretend we just read some source data. */ 

if (I writing) { 
*in_row_ctr += cinf o->max_v_sair^„f actor * DCTSIZE; 
main->rowgroup„ctr = DCTSIZE; 

... } 
y } 

/* If a write pass, read input data until the current iMCU row is full. */ 
/* Note: preprocessor will pad if necessary to fill the last iMCU row. */ 
43 if (writing) { 

\^ (*cinf o->prep->pre_process_data) (cinfo, 
J; input_buf, in_row_ctr, in_rows_avail, 

main->buf fer, &:main->rowgroup_ctr , 
^|] (JDIMENSION) DCTSIZE) ; 

/* Return to application if we need more data to fill the iMCU row. */ 
if {main->rowgroup_ctr < DCTSIZE) 
return; 
} 

i3 /* Emit data, unless this is a sink-only pass. */ 
n| if (main->pass_mode != JBUF_SAVE„S0URCE) { 

if {! ( *cinf o->coef ->compress_data) (cinfo, main->buf f er) ) { 
"'-Ji /* If compressor did not consume the whole row, then we must need to 
fl * suspend processing and return to the application. In this situation 
ZZ^ * we pretend we didn't yet cons\ime the last input row; otherwise, if 
LJ * it happened to be the last row of the image, the application would 

* think we were done. 

*/ 

if (! main->suspended) { 
{ * in_r ow_c tr ) — ; 
main->suspended = TRUE; 

} 

return; 
} 

/* We did finish the row. Undo our little suspension hack if a previous 
* call suspended; then mark the main buffer empty. 

*/ 

if {main->suspended) { 
( * in_r ow_c tr ) + + ; 
main->suspended = FALSE; 

} 

} 

/* If get here, we are done with this iMCU row. Mark buffer empty. */ 
main->rowgroup_ctr = 0; 
main->cur_iMCU_row++ ; 

} 

} 

#endif /* FULL_MAIN_BUFFER„SUPPORTED */ 



/* 
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* Initialize main buffer controller. 
*/ 

GLOBAL (void) 

jinit_c_main_controller ( j_compress_jptr cinfo, boolean need_full_buf fer) 
{ 

my_main_ptr inain; 
int ci; 

jpeg_component_inf o *compptr; 

main = (my^raain^tr) 

(*cinf o->inem->alloc_sinall) ( ( j_conunon_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF{my__inain_controller) ) ; 
cinfo->inain = (struct jpeg_c_inain_controller *) main; 
main->pub.start jass = start_pass__inain; 

/* We don't need to create a buffer in raw-data mode. */ 
if (cinf o->raw_data_in) 
return; 

/* Create the buffer. It holds downsampled data, so each component 
* may be of a different size. 

*/ 

if (need_full_buf f er) { 
#ifdef FULL_MAIN_BUFFER„SUPPORTED 

/* Allocate a full -image virtual array for each component */ 
/* Note we pad the bottom to a multiple of the iMCU height */ 
for (ci - 0, compptr = cinf o->comp_inf o; ci < cinfo->num_components; 
ci-i-+, compptr++) { 

main->whole_image [ci] ~ (*cinf o->mem->request_virt„sarray) 
( ( j_common_ptr) cinfo, JPOOL_IMAGE, FALSE, 
compptr->width_in_blocks * DCTSIZE, 
^==;f (JDIMENSION) jround_up { ( long ) compptr->height_in_blocks , 
^IJ (long) compptr->v_samp_f actor) * DCTSI2E, 

(JDIMENSION) {compptr->v_samp_f actor * DCTSIZE) ) ; 

ERREXITC cinfo, JERR_BAnUBUFFEIl_;MODS) ; 
tefedif 
^4 else { 
#|fdef FULL_MAIN_BUFFER„SUPPORTED 

h"] main->whole_image[0] - NULL; /* flag for no virtual arrays */ 
#^dif 

E /* Allocate a strip buffer for each component */ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
O main->buf fer [ci] = ( *cinfo->mem->alloc_sarray) 
fl I ( ( j„common_ptr ) cinfo , JPO0L_IMAGE , 
VI compptr->width_.in„blocks * DCTSIZE, 

(JDIMENSION) (compptr->v_samp_f actor * DCTSIZE) ) ; 

O } 
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* j cmar ker . c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains routines to write JPEG datastream markers. 

*/ 

#define JPEG_INTERWALS 
# include "jinclude.h" 
# include "jpeglib.h" 



typedef enum { /* JPEG marker codes */ 



M_SOF0 




OxcO, 


M_S0F1 




Oxcl, 


M_S0F2 




Oxc2, 


M„S0F3 


- 


0xc3, 


M_S0F5 


- 


0xc5, 


M_S0F6 


_ 


0xc6, 


M_S0F7 




0xc7, 


M_JPG 




0xc8, 


M_S0F9 




0xc9, 


M_SOF10 




Oxca, 


M_S0F11 


_ 


Oxcb, 


M_S0F13 


_ 


Oxcd, 


■^M S0F14 


— 


Oxce , 


■=-M_S0F15 




Oxcf , 


^lUDHT 




0xc4, 






Oxcc , 




_ 


OxdO, 


'4M RSTl 


_ 


Oxdl, 


;,|U_RST2 


_ 


0xd2 , 


iii RST3 




Oxd3 , 


^ ^iURST4 


_ 


0xd4, 


s M RST5 


— 


OxdS, 


i.:M„RST5 




Oxd6, 


'"'k RST7 


_ 


0xd7 , 


r-: M SOI 




OxdS, 


= ■"^_EOI 


_ 


0xd9! 




_ 


Oxda, 






Oxdb, 


SSmjdnl 


- 


Oxdc, 


i.=JkjDRI 




Oxdd, 


M DHP 




Oxde 


M EXP 




Oxdf J 


M_APPO 




OxeO, 


M_APP1 




Oxel, 


M_APP2 




Oxe2, 


M_APP3 




Oxe3, 


M_APP4 




0xe4, 


M„APP5 




0xe5^ 


M_APP6 




Oxe6, 


M_APP7 




0xe7, 


M_APP8 




Oxe8, 


M_APP9 




0xe9, 


M_APP10 




Oxea, 


M_APP11 




Oxeb, 


M_APP12 




Oxec, 


M_APP13 




Oxed, 


M_APP14 




Oxee, 


M_APP15 




Oxef , 


M_JPGO 




OxfO, 


M_JPG13 




Oxfd, 


M_COM 




Oxfe, 


M_TEM 




0x01, 



M_ERROR = 



0x100 



} JPEG_MARKER; 



/* Private state */ 

typedef struct { 

struct jpeg„marker_writer pub; /* public fields */ 

unsigned int last_restart„interval ; /* last DRI value emitted; 0 after SOI */ 
} niy__marker_jtfriter; 

typedef niy_niarker_writer * my_marker_ptr ; 



* Basic output routines . 
* 

* Note that we do not support suspension while writing a marker. 

* Therefore, an application using suspension must ensure that there is 

* enough buffer space for the initial markers (typ. 600-700 bytes) before 

* calling jpeg_start_compress, and enough space to write the trailing EOI 

* (a few bytes) before calling jpeg_f inish_compress . Multipass compression 

* modes are not supported at all with suspension, so those two are the only 

* points where markers will be written. 
*/ 

LOCAL (void) 

emitjDyte ( j„compress_ptr cinfo, int val) 
/* Emit a byte */ 

{ 

struct jpeg_destination_jagr * dest = cinfo->dest; 

'^f (dest->next_output_byte)++ - (JOCTET) val; 
J|f ( — dest->free_in_buf f er =-0) { 
n?: if {I (*dest->empty„output_buf f er) (cinfo) ) 
ERREXIT( cinfo, JERR„CANT__SUSPEND) ; 



LfpALtvoid) 

eiS.t__marker ( j_compress_ptr cinfo, JPEG__MARKER mark) 
Emit a marker code */ 

,emi t_by t e ( c inf o , 0 xFF ) ; 
' 'emi t„by t e ( c i nf o , { int ) mark ) ; 

a 



Qit_2bytes ( j_compress_ptr cinfo, int value) 

M Emit a 2-byte integer; these are always MSB first in JPEG files */ 

emit_byte{ cinfo, {value » 8) & OxFF) ; 
emit_byte (cinfo, value & OxFF); 

} 



/* 

* Routines to write specific marker types, 
*/ 

LOCAL (int) 

emit^dqt ( j__compress_ptr cinfo, int index) 
/* Emit a DQT marker */ 

/* Returns the precision used (0 = 8bits, 1 = 16bits) for baseline checking */ 
{ 

JQCJANT_TBL * qtbl = cinfo->quant_tbl_ptrs [index] ; 
int prec; 
int i; 

if I qtbl == NULL) 

ERREXITKcinfo, JERR_NO_QUANT_TABLE , index); 

prec = 0; 

for (1=0; i < DCTSI2E2; i++) { 
if (qtbl->quantval [il > 255) 
prec = 1; 

} 
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if {! qtbl->sent_table) { 
emi t„mar ker { c inf o , M_DQT ) ; 

emit.2bytes{cinfo, prec ? DCTSIZE2*2 + 1 + 2 : DCTSIZE2 +1+2); 

einit_byte(cinfo, index + (prec«4)); 

for (i = 0; i < DCTSIZE2; i++) ( 

/* The table entries must be emitted in zigzag order. */ 
unsigned int qval = qtbl->quantval [ jpeg_natural_order [i] ] ; 
if (prec) 

emit_byte(cinfo, (int) (qval » 8)); 
emit_byte(cinfo, (int) (qval & OxFF) ) ; 

} 

qtbl->sent_table = TRUE; 

} 

return prec? 

} 



LOCAL (void) . . , 

emit_dht ( j_compress_ptr cinfo, int index, boolean is_ac} 

/* Emit a DHT marker */ 

{ 

JHUFF„TBL * htbl; 
int length, i; 

if (is„ac) { 

htbl = cinf o->ac„huff_tbljtrs [index] ; 
index += 0x10; /* output index has AC bit set */ 

III else { 

.'-a htbl = cinfo->dc_huff_tbl_ptrs [ index] ; 

Si 

■iit (htbl == NULL) 

T. ERREXITKcinfo, JERR_NO„HUFF_TABLE , index); 

L=if (i htbl->sent„table) { 
'^I erait„marker (cinf o, M_DHT) ; 

"J length = 0; 

for (i = 1; i <= 16; i++) 
length += htbl->bits [i] ; 

n emit_2bytes(cinfo, length +2+1+16); 
'ZZ^ emi t_by t e ( c i n f o , i ndex ) ; 

\l for (i - 1; i <= 16; i++) 

,4 emit_byte (cinf o , htbl->bits [ i ] ) ; 

fl for (i = 0; i < length; i++) 

emit_byte(cinf o, htbl->huf fval [i] ) ; 

htbl->sent_table = TRUE; 

} 

} 



LOCAL (void) 

emit_dac ( j_compress_ptr cinfo) 

/* Emit a DAC marker */ . ^-l. i^-, • * / 

/* Since the useful info is so small, we want to emit all the tables m / 
/* one DAC marker. Therefore this routine does its own scan of the table. */ 

{ 

#ifdef C„ARITH_CODING_SUPPORTED 
char dc_in_use[NUM_ARITH_TBLS] ; 
char ac_in„use[NUM_ARITH_TBLS] ; 
int lengthy i? 

jpeg_component_inf o *compptr; 

for (i = 0; i < NUM_ARITH_TBLS ; i++) 
dc_in„use[i] = ac_in_use[i] = 0; 

for (i = 0; i < cinf o->comps_in_s can; i++) { 
compptr = cinfo->cur_comp_info[i] ; 
dc_.in_us e [ compptr - >dc_tbl_no ] = 1 ; 
ac_in_use [ compptr ->ac_tbl__no 3 = 1; 

} 
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length = 0; 

for (i = 0; i < NUM_ARITH_TBLS; 

length += dc„in__use [i] + ac_in_use [i] ; 

emi t_mar ker ( c inf o , M_DAC ) ; 

einit_2bytes{cinfo, length*2 + 2); 

for (i = 0; i < lsrUM„ARITH_TBLS; { 
i f ( dc_in_use [ i ] ) { 
emit_byte (cinfo, i); 

emit_byte (cinfo, cinfo->arith_dc_L[i] + (cinfo->arith_dc_U[i]«4) ) ; 

} 

if {ac_in_use[i] ) { 

emi t_byte (cinfo, i + 0x10); 

emi t_byte (cinfo, cinf o->arith_ac„K[il ) ; 

} 

} 

#endif /* C_ARITH„CODING_SUPPORTED */ 
} 



LOCAL (void) 

eniit_dri ( j_compress„ptr cinfo) 

/* Emit a DRI marker */ 

{ 

emi t_mar ker (cinfo, M„DRI ) ; 

emi t_2bytes (cinfo, 4); /* fixed length */ 

™emit_2bytes (cinfo, (int) cinf o->restart_interval ) ; 

}U 



LieAL(void) 

^#lt_sof { j_compress_ptr cinfo, JPEG_MARKER code) 
A*liEmit a SOF marker */ 

{4 

lint ci; 

:j jj peg_coinponen t_inf o * cojnpptr ; 
H4mit_jiiar ker (cinfo, code); 

; .emi t_2bytes (cinfo, 3 * cinf o->num_components + 2 + 5 + 1); /* length */ 

Q/* Make sure image isn't bigger than SOF field can handle */ 
Fidf ((long) cinf o->image_height > 65535L |1 

(long) cinf o->image„width > 65535L) 
'^1 ERREXITK cinfo, JERR_IMAGEjrOO_BIG, (unsigned int) 65535); 

J;;femit_byte( cinfo, cinf o->data_precision) ; 
Oemit„2bytes (cinf o, (int) cinfo- >image_height ) ; 
emi t_2 bytes (cinf o, (int) cinf o->image_width) ; 

emi t_byte (cinfo, cinf o->nuin„components) ; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
emi t Joy te (cinfo, compptr->component_id) ; 

emi t_byte (cinfo, ( compptr ->h__samp_f actor « 4) + compptr->v_sarap_factor) ; 
emi t_Joyte (cinfo, compptr->quant„tbl_no) ; 

} 

} 



LOCAL (void) 

emit_sos ( j__compress_ptr cinfo) 
/* Emit a SOS marker */ 

{ 

int i, td, ta; 

jpeg_component_info *compptr; 
emi t_marker { cinf o , M„SOS ) ; 

emi t_2bytes (cinfo, 2 * cinf o->comps_in_scan +2+1+3); /* length */ 

emi t„byte{ cinfo, cinf o->comps_in_s can) ; 

for (i = 0; i < cinf o->comps_in„scan; i++) { 
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compptr = cinf o->cur_coinp_inf o [i] ; 

emit_byte (cinfo, compptr- >component_id) ; 

td = compptr- >dc_tbl_no; 

ta = compptr->ac_tbl_no; 

if (cinf o->pr ogres si ve_mode) { 

/* Progressive mode: only DC or only AC tables are used in one scan; 

* furthermore, Huffman coding of DC refinement uses no table at all. 

* We emit 0 for tinused field (s) ; this is recommended by the P&M text 

* but does not seem to be specified in the standard. 
*/ 

if (cinfo->Ss ==0} { 
ta = 0; /* DC scan */ 

if (cinfo->Ah != 0 && ! c info- >arith_c ode) 

td = 0; /* no DC table either */ 

} else { 
td = 0; /* AC scan */ 

} 

} 

emit^byte (cinf o, (td « 4) + ta) ; 

} 

emit_byte(cinf o, cinfo->Ss) ; 
emit_byte (cinf o, cinfo->Se) ; 

emit_byte (cinfo, {cinfo->Ah « 4) + cinfo->Al) ; 



LOCAL (void) 

emit_jf if_appO ( j_coitpress_ptr cinfo) 
/* Emit a JFIF-compliant APPO marker */ 

{ 

Length of APPO block {2 bytes) 
4^* Block ID {4 bytes - ASCII "JFIF") 

* Zero byte (1 byte to terminate the ID string) 

* Version Major, Minor (2 bytes - major first) 

43* Units (1 byte - 0x00 = none, 0x01 = inch, 0x02 = cm) 

•' * Xdpu (2 bytes - dots per unit horizontal) 

* Ydpu (2 bytes - dots per unit vertical) 
-i=*- * Thumbnail X size {1 byte) 

r.:": * Thtimbnail Y size (1 byte) 

m 

r emi t_mar ker ( c inf o , M_APP 0 ) ; 

l^Iemit_2bytes {cinfo, 2 + 4 + 1+ 2 + 1 + 2 + 2 + 1 + 1); /* length */ 

f;r!emit„byte( cinfo, 0x4A) ; /* Identifier: ASCII "JFIF" */ 
? ■ ?emi t„by t e{cinfo, 0x46); 

"iiemi t_by t e(cinfo, 0x4 9); 
? ■■ 'semi t„by t e(cinfo, 0x4 6); 
^™^emit_byte (cinfo, 0); 

^"•'emit„byte (cinfo, cinfo->JFIF_major_version) ; /* Version fields */ 
emi t_byte (cinfo, cinf o->JFIF_minor_version) ; 

emi t_byte (cinfo, cinf o->density_unit) ; /* Pixel size information */ 

emi t_2bytes (cinfo, (int) cinfo ->X_densi ty) ; 

emi t_2bytes (cinf o, (int) cinf o->Y_density) ; 

emi t_byte (cinf o, 0); /* No thiiinbnail image */ 

emi t_byte (cinfo, 0); 



LOCAL (void) 

emit_adobe_appl4 ( j_compress_ptr cinfo) 
/* Emit an Adobe APP14 marker */ 

{ 

/* 

* Length of APP14 block (2 bytes) 

* Block ID (5 bytes - ASCII "Adobe") 

* Version Number (2 bytes - currently 100) 

* FlagsO (2 bytes - currently 0) 

* Flagsl (2 bytes - currently 0) 

* Color transform (1 byte) 
* 

* Although Adobe TN 5116 mentions Version = 101, all the Adobe files 

* now in circulation seem to use Version = 100, so that's what we write* 
* 

* We write the color transform byte as 1 if the JPEG color space is 

* YCbCr, 2 if it's YCCK, 0 otherwise. Adobe's definition has to do with 

* whether the encoder performed a transformation, which is pretty useless. 
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*/ 



emit„marker (cinf o , M_APP14 ) ; 

emit_2bytes (cinfo, 2+5+2+2+2+1); /* length */ 



emit„byte(cinfo, 0x41) 
emit_byte(cinf 0, 0x64) 
emi t_by te ( cinf o , 0x6F ) 
emit„byte (cinf 0x62) 
emi t_byte (cinf o, 0x65) 
eitiit_2bytes {cinf o, 100); /* Version * 
emi t_2bytes (cinf o, 0); /* FlagsO */ 
emi t_2bytes (cinf o, 0); /* Flagsl */ 
switch (cinf o->jpeg_color_space) ( 
case JCS_yCbCr: 

emi t__by t e ( c inf o , 1 ) ; 

break; 
case JCS„ycCK: 

emit_byte (cinf o , 2 ) ; 

break; 
default : 

emi t_byte ( cinf o , 0 ) ; 

break; 

} 



/* Identifier; ASCII "Adobe" */ 



/ 



/* Color transform = 1 */ 



/* Color transform = 2 */ 



/* Color transform = 0 */ 



/* 

* These routines allow writing an arbitrary marker with parameters. 

* The only intended use is to emit COM or APPn markers after calling 
*„write_f ile_header and before calling write_f rame_header . 

^;iOther uses are not guaranteed to produce desirable results. 
ifflCounting the parameter bytes properly is the caller's responsibility, 

I^?HODDEF(void) 

wr4te_marker_header ( j_compress_ptr cinfo, int marker, unsigned int datalen) 
/*rEmit an arbitrary marker header */ 

^aif (datalen > (unsigned int) 65533) /* safety check */ 

ERREXIT(cinfo, JERR_BAD_LENGTH) ; 

3: emi t_marker ( c info , ( JPEG_MARKER ) marker ) ; 

^" emi t_2bytes (cinf o, (int) {datalen + 2)); /* total length */ 

tj 

]terHODDEF(void) 

WEite_marker__byte ( j_compress j)tr cinfo, int val) 

y^v Emit one byte of marker parameters following wri te_marker_header */ 

c: 

^=;..emi t_by te ( c inf o , val ) ; 
} 



/* 

* Write datastream header. 

* This consists of an SOI and optional APPn markers. 

* We recommend use of the JFIF marker, but not the Adobe marker, 

* when using YCbCr or grayscale data. The JFIF marker should NOT 

* be used for any other JPEG colorspace. The Adobe marker is helpful 

* to distinguish RGB, CMYK, and YCCK colorspaces. 

* Note that an application can write additional header markers after 

* jpeg„start_compress returns. 

*/ 

METHODDEF (void) 

write_f il€_Jheader ( j_compress_ptr cinfo) 

{ 

my_marker^tr marker = (my__marker_ptr) cinf o->marker ; 

emi t„marker (cinf o, M_SOI) ; /* first the SOI */ 

/* SOI is defined to reset restart interval to 0 */ 
marker- >last_res tar t_interval = 0; 

if {cinf o->write„JFIF_header) /* next an optional JFIF APPO */ 

emit_jf if_appO (cinfo) ; 
if (cinfo->write„Adobe_inarker) /* next an optional Adobe APP14 */ 
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emi t_adobe_app 1 4 ( c inf o ) ; 

} 



/* 

* Write frame header. 

* This consists of DQT and SOFn markers . 

* Note that we do not emit the SOF until we have emitted the DQT(s). 

* This avoids compatibility problems with incorrect implementations that 

* try to error-check the quant table numbers as soon as they see the SOF. 
*/ 

METHODDEF(void) 

write_frame„header ( j__compress_ptr cinfo) 
{ 

int ci, prec; 
boolean is_baseline; 
jpeg_component„info *compptr; 

/* Emit DQT for each quantization table. 

* Note that emit_dqt() suppresses any duplicate tables. 

*/ 

prec = 0; 

for (ci = 0, compptr = cinfo- >comp_info; ci < cinf o->num_components ; 
ci++, compptr++) { 
prec += emi t_dqt (cinf o, compptr- >quant_tbl_no ) ; 

} 

/* now prec is nonzero iff there are any 16-bit quant tables. */ 

/* Check for a non-baseline specification. 

* Note we assume that Huffman table numbers won't be changed later. 

"™df {cinf o->arith„code | | cinf o->progressive_mode | ] 
4% cinf o->data_precision != 8) { 

is_baseline = FALSE; 
y else { 

43 is_baseline = TRUE; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
J- ci-h-h, compptr-*- •}•) { 

-II if {compptr->dc_tbl_no > 1 | 1 compptr- >ac_tbl_no > 1) 
is„baseline = FALSE; 

21 > 

if (prec ScSc is„baseline) { 
.3; is„baseline = FALSE; 

r. , /* If it's baseline except for quantizer size, warn the user */ 
TRACEMS (cinfo , 0 , JTRC_16BIT_TABLES ) ; 

Q } 

flp 

^'4/* Emit the proper SOF marker */ 
rt-if (cinf o->arith_code) { 

emi t_sof (cinfo, M_S0F9); /* SOF code for arithmetic coding */ 
L^} else { 

if (cinf o->progressive_mode) 

emi t_sof (cinfo, M_S0F2); /* SOF code for progressive Huffman */ 
else if (is_baseline) 

emi t_sof (cinfo, M_SOF0) ; /* SOF code for baseline implementation */ 
else 

emi t_sof (cinf o, M_S0F1) ; /* SOF code for non-baseline Huffman file */ 

} 

} 



/* 

* Write scan header. 

* This consists of DHT or DAC markers, optional DRI, and SOS. 

* Compressed data will be written following the SOS. 
*/ 

METHODDEF(void) 

write_scan_header ( j__compress_ptr cinfo) 

{ 

my_marker_ptr marker = (my_marker jtr) cinf o->marker ; 
int i; 

j peg_component_inf o * c ompp tr ; 

if (cinf o->arith_code) { 

/* Emit arith conditioning info. We may have some duplication 

* if the file has multiple scans, but it's so small it's hardly 

* worth worrying about. 
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*/ 

emit^dac {cinf o) ; 
} else { 

/* Emit Huffman tables. 

* Note that emit„dht() suppresses any duplicate tables. 

*/ 

for (i = 0; i < cinf o->comps_in_scan; i++) { 

compptr = cinf o->cur_comp_info [i] ; 

if (cinf o->progressive_mode) { 
/* Progressive mode: only DC or only AC tables are used in one scan */ 
if (cinfo->Ss == 0) { 

if {cinfo->Ah ==0) /* DC needs no table for refinement scan */ 
emit_dht (cinf o, compptr->dc„tbl_no, FALSE); 
} else { 

emit„dht (cinfo, compptr->ac_tbl_no, TRUE) ; 

} 

} else { 

/* Sequential mode: need both DC and AC tables */ 
emit_dht (cinf o , compptr ->dc_tbl_no , FALSE ) ; 
emit_dht (cinfo, compptr->ac__tbl_no, TRUE) ; 

} 

} 

} 

/* Emit DRI if required note that DRI value could change for each scan 

* We avoid wasting space with unnecessary DRIs, however. 
*/ 

if {cinfo->restart_interval != marker->last_restart_interval) { 
emit_dri (cinf o) ; 

marker->last_restart_interval = cinf o->restart„interval ; 

} 

^;4mit_sos (cinf o) ; 

Write datastream trailer . 
l!grHODDEF(void) 

v^ate_f ile_trailer ( j_compress_ptr cinfo) 

fy 

s emit_marker (cinfo, M_EOI); 

u 

Write an abbreviated table -specific at ion datastream. 
''"4 This consists of SOI, DQT and DHT tables, and EOI. 

Any table that is defined and not marked sent_table = TRUE will be 
^f* emitted. Note that all tables will be marked sent_table = TRUE at exit. 

U/ 

METHODDEF (void) 

write_tables_only { j_compress _ptr cinfo) 

{ 

int i; 

emit_inarker (cinf M_SOI) ; 

for (i = 0; i < NUM_QUAKT_TBLS ; i++) { 
if (cinf o->quant_tbl_ptrs [i] 1= NULL) 
(void) emit_dqt (cinf o, i); 

} 

if (! cinfo->arith„code) { 

for <i = 0; i < NUM__HUFF_TBLS ; i + + ) { 

if (cinfo->dc_huff„tbl_i5trs[i] != NULL) 
emit_dht (cinf o, i, FALSE); 

if (cinfo->ac_huff__tbl_ptrs[i] != NULL) 
erait_dht (cinfo, i, TRUE) ; 
} 

} 

emi t_mar ker ( c inf o , M_EOI ) ; 

} 
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* Initialize the marker writer module. 



GLOBAL (void) 

jinit_marker„writer ( j„compress_ptr cinfo) 

{ 

my_marker_ptr marker; 

/* Create the subobject */ 
marker = (my_marker_ptr) 

(*cinfo->mem->alloc„small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE. 
SIZEOF(my__raarker_writer) ) ; 
cinfo->marker = (struct jpeg_marker„writer *) marker; 
/* Initialize method pointers */ 

marker->pub.write_file_header = write_f ile_header ; 
marker->pub.write„frame_header = write_f rame„header; 
marker->pub.write_scan_header = write_scan_header ; 
marker->pub.write_.file_trailer = write_f ile_trailer; 
marker->pub.write_tables__only = write_tables_only; 
mar ker->pub. writ e_marker_header = write_marker„header ; 
marker->pub.write__marker_byte = write„marker_byte; 
/* Initialize private state */ 
marker->last_restart_interval = 0; 



* jcmaster.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 
* 

* This file contains master control logic for the JPEG compressor. 

* These routines are concerned with parameter validation, initial setup, 

* and inter -pass control (determining the number of passes and the work 

* to be done in each pass) . 

*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include « jpeglib.h" 

/* Private state */ 

typedef enum { ^ ^ . ^ ^ i. * / 

main_pass, /* input data, also do first output step */ 

huff_opt_:pass, /* Huffman code optimization pass */ 

output_pass /* data output pass */ 

} c_pass_type; 

typedef struct { ^. *y 

struct jpeg_comp_master pub; /* public fields */ 

c_pass_type pass_type; /* the type of the current pass */ 

^int pass_number; /* # of passes completed */ 

Lint total_^asses; /* total # of passes needed */ 

lint scan_number; /* current index in scan_info[3 */ 

}yfiay_comp_mas ter ; 

feypedef my_comp_master * my_master_ptr ; 

y: Support routines that do various essential calculations. 

l4 

LOCAL (void) 

2r£itial_setup { j_compress jtr cmfo) 

yg^ Do con$3utations that are needed before master selection phase */ 
' •^nt ci; 

%Jijpeg_coraponent_inf o *coinpptr; 
f-^long sample sparrow; 
h^;|jDIMENSION j d_samplesperrow; 

~ /* Sanity check on image dimensions */ 
if (cinfo->image_height <= 0 M cinf o->image_width <= 0 

II cinfo->num_components <= 0 | | cinf o->input_components <= 0) 
ERREXIT ( C inf o ; JERR„EMPTY_IMAGE } ; 

/* Make sure image isn't bigger than I can handle */ 
if ((long) cinfo->image_height > (long) JPEG_MAX_DIMENSION || 
(long) cinfo->image_width > (long) JPEG_MAX_DIMENSION) 
ERREXITKcinfo, JERR„IMAGE„TOO„BIG, (unsigned int) JPEG„MAX_DIMENSION) ; 

/* Width of an input scanline must be representable as JDIMENSION. */ 
samplesperrow = (long) cinf o->image_width * (long) cinf o->input_components 
jd_samplesperrow = (JDIMENSION) samplesperrow; 
if ((long) jd_samplesperrow != samplesperrow) 
ERREXIT ( cinf o , JERR__WIDTH_OVERFLOW) ; 

/* For now, precision must match compiled- in value... */ 
if (cinfo->data_precision ! =^ BITS„IN_JSAMPLE) 

ERREXITKcinfo, JERR__BAD_PRECISION, cinfo->data__precision) ; 

/* Check that number of components won't exceed internal array sizes */ 
if (cinfo->ntim_.components > MAX_C0MPONENTS) 

ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->num_components , 
MAX_COMPONENTS) ; 

/* Compute maximum sampling factors; check factor validity */ 
cinfo- >max_h_samp„f actor = 1; 
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cinfo->max_v_samp_f actor = 1; 

for (ci = 0, compptr = cinf o->comp_inf o ; ci < cmf o->num_components; 
if '(compptr->h^s^ I 1 compptr->h_samp_f actor>MAX_SAMP_FACTOR | | 
compptr- >v_samp_factor<=0 | | compptr->v_samp_f actor>MAX_SAMP_FACTOR) 

ERREXIT ( cinf o , JERR_BAD_SAMPLIKG) ; 
cinf o->max_h_samp_.f actor = MAX (cinf o->max_h_samp_f actor , 

compptr->h_samp_f actor) ; 
cinf o->max_v_samp_f actor = MAX(cinfo->max_v_sainp_f actor, 
compptr->v_sainp„f actor) ; 

} 

/* Compute dimensions of components */ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 

ci++, compptr++) { . 4-- */ 

/* Fill in the correct component_index value; don't rely on application / 
compptr->component_index = ci; 

/* For compression, we never do DCT scaling. */ 

compptr->DCT„scaled_size = DCTSIZE; 

/* Size in DCT blocks */ 

compptr- >width_in_blocks = (JDIMENSION) 

jdiv_round„up( (long) cinf o->image_width * (long) compptr->h_samp_f actor ; 
(long) ( cinf o->max_h_samp_f actor * DCTSIZE)); 
compptr->height_in_.blocks ^ (JDIMENSION) 

jdiv_round_up{ (long) cinf o->image_height * (long) compptr->v_samp_f actor , 
(long) ( cinf o->max_v„samp_f actor * DCTSIZE)); 
/* Size in samples */ 

compptr->downsampled_width = (JDIMENSION) 

jdiv„round„up( (long) cinfo->image_width * (long) compptr->h_samp_f actor , 
(long) cinf o->max_h_samp_factor) ; 
compptr->downsampled_height = (JDIMENSION) 

jdiv_round„up( (long) cinf o->image_height * (long) corapptr->v_samp„f actor, 
r1 (long) cinfo->max_v_samp_f actor) ; . s + / 

:S /* Mark component needed (this flag isn't actually used for compression) */ 
compptr->component_needed - TRUE; 

f]f* Compute niomber of fully interleaved MCU rows (number of times that 
""^i * main controller will call coefficient controller) . 

m */ 

.7cinfo->total_iMCU_rows = (JDIMENSION) 

jdiv__round_up( (long) cinf o->image_height, 
dJ (long) {cinfo->max_jv__samp_factor*DCTSIZE) ) ; 



fpdef C_JtULTISCAN_FILES_SUPPORTED 
lLii±:AL(void) 

-O^^iidate.script (j„compress_ptr cinfo) ^ 

0 Verify that the scan script in cinf o->scan_inf o [ ] is valid; also 

^ determine whether it uses progressive JPEG, and set cinf o->pr ogres si ve_mode. 

CI/ 
{ 

const jpeg_scan_inf o * scanptr; 

int scanno, ncomps, ci, coefi, thisi; 

int Ss, Se, Ah, Al; 

boolean component_sent [MAX_COMPONENTS] ; 
#ifdef C„PROGRESSIVE_SUPPORTED 
int * last_bitpos_^tr; 

int last„bitpos[MAX_COMPONENTS] [DCTSIZE2] ; • 
/* -1 until that coefficient has been seen; then last Al for it / 
tendif 

if (cinf o->n\am_s cans <= 0) 

ERREXITKcinfo, JERR_BAD_SCAN_SCRIPT, 0); 

/* For sequential JPEG, all scans must have Ss=0, Se=DCTSIZE2-l; 
* for progressive JPEG, no scan can have this. 
*/ 

scanptr = cinf o->scan_inf o; 

if (scanptr->Ss != 0 |1 scanptr->Se 1- DCTSIZE2-1) { 
#ifdef C_PROGRESSIVE_SUPPORTED 

cinf o- >pr ogres si ve_mode = TRUE; 

last_bitpos_:ptr - & last„bitpos [0] [0] ; 

for (ci = 0; ci < cinf o->num__components ; ci++) 

for (coefi = 0; coefi < DCTSIZE2; coefi++) 
*last_bitpos^tr++ = -1; 
^else 

ERREXIT (C info, JERR„NOT„COMPILED) ; 
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#endif 
} else { 

c info - >pr ogres si ve_mode = FALSE; 
for (ci = 0; ci < cinf o->num_components ; ci++) 
component_sent [ci] = FALSE; 

} 

for (scanno = 1; scanno <= cinf o->nura_scans; scanptr+-i-, scanno++) { 
/* Validate component indexes */ 
ncomps = scanptr->comps_in_scan; 
if (ncomps <= 0 | | ncomps > MAX__COMPS_IN_SCAN) 

ERREXIT2 (Cinfo, JERR„C0MPONENT_COUNT , ncomps, MAX_COMPS_IN__SCAN) ; 
for (ci = 0; ci < ncomps; ci++) { 

thisi = scanptr->component_index[ci3 ; 

if (thisi < 0 I 1 thisi >- cinf o->num_components) 
ERREXITKcinfo, JERR_BAD_SCAN_SCRIPT, scanno); 

/* Components must appear in SOF order within each scan */ 

if (ci > 0 && thisi <= scanptr->component_index[ci-l] ) 
ERREXITKcinfo, JERR_BAD_SCAN_SCRIPT, scanno); 
} 

/* Validate progression parameters */ 
Ss = scanptr->Ss; 
Se = scanptr->Se; 
Ah = scanptr->Ah; 
Al = scanptr->Al; 
if (cinfo->progressive_mode) { 
#ifdef C_PROGRESSIVE_SUPPORTED ^ . 

/* The JPEG spec simply gives the ranges 0 . . 13 for Ah and Al, t)ut that 

* seems wrong: the upper bound ought to depend on data precision. 

* Perhaps they really meant 0..N+1 for N-bit precision, 

* Here we allow 0..10 for 8-bit data; Al larger than 10 results in 

* out-of-range reconstructed DC values during the first DC scan, 
O * which might cause problems for some decoders. 

^11 */ 
#it BITS„IN_JSAMPLE == 8 
refine MAX_AH_AL 10 
#^lse 

fdffine MAX„AH_AL 13 
^ endi f 

=i1 if (Ss < 0 II Ss >= DCTSIZE2 t| Se < Ss || Se >= DCTSIZE2 | | 
Ah < 0 II Ah > MAX_AH_AL || Al < 0 | | Al > MAX_AH__AL) 

"2': ERREXITKcinfo, JERR_BAD_PROG_SCRIPT, scanno); 
if (Ss :== 0) { 
if (Se '=0) /* DC and AC together not OK */ 

:\ ERREXITKcinfo, JERR„BAD_PROG_SCRIPT, scanno); 
} else { 

''M if (ncomps 1= 1) /* AC scans must be for only one component */ 
m ERREXITKcinfo, JERR_BAD_PROG„SCRIPT, scanno); 

} 

""'•J for (ci ==0; ci < ncomps; ci++) { 

^'-^^ last„bitpos_ptr = & last_bitpos [scanptr->component_index[ci3 ] [03 ; 

if (Ss 1= 0 && last_bitpos_ptr [0] < 0) /* AC without prior DC scan */ 
41 ERREXITKcinfo, JERR_BAD_PROG_SCRIPT, scanno); 
for (coefi ^ Ss; coefi <= Se; coefi++) { 
if (last_bitpos^tr [coefi3 < 0) { 

/* first scan of this coefficient */ 
if (Ah 0) 

ERREXITKcinfo. JERR_BAD_PROG_SCRIPT, scanno); 

} else { 

/* not first scan */ 

if (Ah != las t_bitpos_ptr [coefi] || Al ! = Ah-1) 
ERREXITKcinfo, JERR_BAD_PROG„SCRIPT, scanno) ; 

iast_bitpos_ptr [coefi3 = Al; 

} 

} 

#endif 

} else { 

/* For sequential JPEG, all progression parameters must be these: */ 

if (Ss != 0 II Se != DCTSIZE2-1 | | Ah ! = 0 || Al i = 0 ) 
ERREXITKcinfo, JERR_BAD_PROG_SCRIPT, scanno) ; 

/* Make sure components are not sent twice */ 

for (ci = 0; ci < ncomps; ci++) { 
thisi = scanptr->component„index[ci3 ; 
if {component„sent [thisi] ) 

ERREXITKcinfo, JERR_.BAD_SCAN_SCRIPT, scanno); 
component_sent [thisi] = TRUE; 

} 

} 

} 
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/* Now verify that everything got sent. */ 
if (cinf o->pr ogres si ve_inode) { 
#ifdef C_PROGRESSIVE_SUPPORTED 

/* For progressive mode, we only check that at least some DC data 

* got sent for each component; the spec does not require that all bits 

* of all coefficients be transmitted. Would it be wiser to enforce 

* transmission of all coefficient bits?? 
*/ 

for {ci =0; ci < cinf o->num_components ; ci++) { 

if (last_bitpos[ci] [0] < 0) 
ERREXIT ( cinf O , JERR_MISSING_DATA) ; 
} 

#endif 
} else { 

for (ci = 0; ci < cinf o->n\im_components ; ci++) { 

if (! component_sent [ci] ) 
ERREXIT ( cinf o , JERR_MISSING_DATA) ; 
} 

} 

} 

tendif /* C_MULTISCAN_FILES_SUPPORTED */ 



LOCAL (void) 

select_scan_parameters ( j_compress_ptr cinfo) 

/* Set up the scan parameters for the current scan */ 

{ 

int ci; 

#Mdef C_MULTISCAN_FILES_SUPPORTED 

4f (cinfo->scan_info != NULL) { ^ 

^|] /* Prepare for current scan the script is already validated */ 

^ my_master_ptr master - (my_master_ptr) cinf o->raaster; 

const jpeg„scan_info * scanptr = cinf o->scan_inf o + master->scan_number ; 

\l c info- >comps„in_s can = scanptr->coirps_in^scan; 
J: for (ci = 0? ci < scanptr->comps_in_scan; ci++} { 

cinf o->cur_^omp_inf o [ci] = 
iP &cinf o->comp_inf o [ scanptr ->component_index [ ci ] ] ; 

it } 

'"^^ cinfo->Ss = scanptr->Ss; 

s; cinfo->Se = scanptr->Se; 

L... cinfo->Ah = scanptr->Ah; 

cinfo->Al = scanptr->Al; 

n lelse 
l&dif 

/* Prepare for single sequential- JPEG scan containing all components */ 
5: if {cinfo->num_components > MAX_COMPS_IN_SCAN) 

ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->num_components , 
MAX_COMPS_IN„SCAN) ; 
cinf o->comp s_in_s can = cinf o->num_components; 
for (ci = 0; ci < cinf o->num_components; ci++) 

cinf o->cur_comp„info[ci] = &cinf o->comp_inf o [ci] ; 

} 

cinfo->Ss = 0; 
cinfo->Se = DCTSI2E2-1; 
cinfo->Ah = 0? 
cinfo->Al = 0; 

} 

} 



LOCAL (void) 

per_scan_setup ( j_compress_ptr cinfo) 

/* Do computations that are needed before processing a JPEG scan */ 
/* cinfo->comps_in_scan and cinf o->cur_comp_inf o [ ] are already set */ 

{ 

int ci, mcublks, tmp; 
jpeg_component_inf o *compptr; 

if (cinf o->comps_in_scan ==1) { 

/* Noninter leaved (single -component) scan */ 
compptr = cinfo->cur_comp„inf o [0] ; 

/* Overall image size in MCUs */ 
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cinf o->MCUs_per„row = compptr->width_in_blocks; 
cinfo->MCU_rows_in_scan = coinpptr->height_in_blocks ; 

/* For noninter leaved scan, always one block per MCU */ 
compptr->MCU_width = 1; 
compptr->MCU_height = 1; 
compptr->MCU_blocks = 1; 
compptr->MCU_saiaple_width = DCTSIZE; 

compptr->last_col_width = 1; ^. u • -u.- 

/* For noninterleaved scans, it is convenient to define last_row_heignt 

* as the number of block rows present in the last iMCU row. 

*/ 

tmp = (int) (compptr->height_in_blocks % compptr->v_samp_factor) ; 
if (tmp == 0) tmp = compptr->v__samp_f actor ; 
corapptr->last_row__height = tmp; 

/* Prepare array describing MCU composition */ 
cinf o->blocks_in_MCU 1; 
cinfo->MCU_membership[0] = 0; 

} else { 

/* Interleaved (multi -component) scan */ 

if {cinfo->comps_in„scan 0 | 1 cinf o->comps_in_scan > MAX_COMPS_IN_SCAN) 
ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->comps_in„s can, 
MAX„COMPS_IN_SCAN) ; 

/* Overall image size in MCUs */ 
cinfo->MCUsjer_row = (JDIMENSION) 

jdiv„round_up ( (long) cinf o->image_width, 

(long) {cinfo->max_.h_samp_factor*DCTSIZE) ) ; 
cinfo->MCU„rows_in_scan = (JDIMENSION) ^ 

3 jdiv_^ound^p{ (long) cinf o->imageJieight, 

(long) ( cinf o->max_v_samp_fac tor *DCTSIZE) ) ; 

P cinfo->blocks_in_MCU = 0; 

for (ci = 0; ci < cinf o->comps_in_s can; ci++) { 

compptr = cinf o->cur_cortp_inf o [ci] ; 
0 /* Sampling factors give # of blocks of component in each MCU */ 
'ii compptr->MCU_width = compptr->h„samp„f actor ; 

compptr->MCU__height = compptr- >v__samp_f actor ; 
U compptr->MCUJolocks = compptr->MCU_width * compptr->MCUjieight ; 

compptr->MCU_sample„width ~ compptr ->MCU_width * DCTSIZE; 

/* Figure number of non-dummy blocks in last MCU column & row */ 

tmp = (int) (compptr->width„in_blocks % compptr->MCU_width) ; 
:] if (tmp 0) tmp = compptr->MCU_width; 
Z: compptr->last__col_width = tmp; 

tmp - (int) (compptr->height_in_blocks % compptr->MCU_height) ; 

4 if (tmp == 0) tmp = compptr->MCU_height; 
compptr -> las t_row_height = tmp; 

:^ /* Prepare array describing MCU composition */ 
mcublks = compptr->MCU_blocks; 

if (cinfo->folocks_in_MCU + mcublks > C_MAX„BLOCKS_IN„MCU) 
ERREXIT(cinfo, JERR__BAD_MCU_SIZE) ; 

while (mcublks — > 0) { 
cinf o->MCU_merabership [cinf o->blocks_in_MCU++] = ci; 

} 

} 

} 

/* Convert restart specified in rows to actual MCU count. */ 

/* Note that count must fit in 16 bits, so we provide limiting. */ 

if (cinfo->restart_in_rows > 0) { 

long nominal = (long) cinf o->res tar t_in_rows * (long) cmf o->MCUs^er_row 
cinfo->restart_interval = (unsigned int) MIN(nominal, 65535L) ; 

} 



* Per-pass setup. ^ . ^, , „ _ 

* This is called at the beginning of each pass. We determine which modules 

* will be active during this pass and give them appropriate start_:pass calls 

* We also set is_last_^ass to indicate whether any more passes will be 

* required. 
*/ 



METHODDEF(void) 



prepare_for__pass ( j_compress_ptr cinfo) 

^ niy_master_j>tr master = (my_inaster_ptr) cinf o->inaster ; 

switch (inaster->pass_type) { 
case mainjass: 

/* Initial pass: will collect input data, and do either Huffman 
* optimization or data output for the first scan. 
*/ 

select_scan_parameters (cinfo) ; 

per_scan_setup (cinfo) ; 

if ( ! cinf o->raw_data_in) { 

(*cinfo->cconvert->start_pass) (cinfo) ; 

(*cinfo->downsample->start_pass) (cinfo) ; 

(*cinfo->prep->start_pass) (cinfo, JBUF_PASS_THRU) ; 

} 

{*cinfo->fdct->startjass) (cinfo) ; 

(*cinfo->entropy->start_pass) (cinfo, cinf o->optimize_coding) ; 
(*cinfo->coef->start^ass) (cinfo, 

(master->total_passes > 1 ? 
JBUF_SAVE_AND_PASS : JBUF_PASS_THRU) ) ; 
(*cinfo->main->start_pass) (cinfo, JBUF_PASS_THRU) ; 

if (cinfo->optimize_coding) { . . ^ , ^ * / 

/* No immediate data output; postpone writing frame/scan headers */ 
master->pub.call_pass„startup = FALSE; 

} else { . . -, . t -I * / 

/* Will write frame/ scan headers at first :peg_write_scanlines call */ 

master->pub.call_pass_startup = TRUE; 

} 

break; 

#ifdef ENTROPY_OPT_SUPPORTED 

case huff _opt_pass: , ^. ^ */ 

fi /* Do Huffman optimization for a scan after the first one. */ 
^ select_scan_parameters (cinfo ) ; 

per_scan_setup ( cinfo) ? . . . 

S". if {cinfo->Ss i= 0 I I cinfo->Ah 0 | 1 cinf o->arith_code) { 
(*cinfo->entropy->start_i)ass) (cinfo, TRUE); 
(*cinfo->coef->start_pass) (cinfo, JBUF_CRANK_DEST) ; 
H master->pub.call^ass_startup = FALSE; 
iO break ; 

-=0 /* Special case: Huffman DC refinement scans need no Huffman table 
* and therefore we can skip the optimization pass for them. 
*/ 

master->pass_type = output_pass; 

master->pass_number++; 

I * F ALLTHROUGH* / 

findif 

UJcase output_pass: 

H.\ /* Do a data-output pass. */ . j-j • */ 

2, /* We need not repeat per-scan setup if prior optimization pass did it. / 
□ if (! cinf o->optimize_coding) { 
^3 select_scan_^arameters (cinf o) ; 
p er„s c an_s e tup (cinfo) ; 

(*cinfo->entropy->start_^ass) (cinfo, FALSE); 
(*cinfo->coef->start_pass) (cinfo, JBUF_CRANK_DEST) ; 
/* We emit frame/scan headers now */ 
if {master->scan_number == 0) 

(*cinfo->marker->write„frame_header) ^ (cinfo) ; 
(*cinfo->marker->write_scan_header) (cinfo) ; 
master->pub.call_pass_startup = FALSE; 
break; 
default: 

ERREXIT ( cinfo , JERR_NOT_COMPILED ) ; 

} 

master->pub.is_lastupass = (master->pass_number master->total_passes-l ) ; 

/* Set up progress monitor's pass info if present */ 
if (cinf o->progress 1= NULL) { 

cinfo->progress->completed_passes = master- >pass_number; 

cinfo->progress->total ^passes = master->total_passes; 

} 



* Special start-of -pass hook. . 

* This is called by jpeg„write„scanlines if call jass_startup is TRUE. 
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* In single-pass processing, we need this hook because we don't want to 

* write frame/scan headers during jpeg_start_compress; we want to let the 

* application write COM markers etc. between jpeg_start_coinpress and the 

* jpeg_write_scanlines loop. 

* In multi-pass processing, this routine is not used. 
V 

METHODDEF{void) 

pass_startup { j„compress_ptr cinfo) 

^ cinfo->master->calljass_startup = FALSE; /* reset flag so call only once */ 

(*cinfo->marker->write_frame_header) (cinfo) ; 
(*cinfo->marker->write_scan_header) (cinfo) ; 

} 



/* 

* Finish up at end of pass. 
*/ 

METHODDEF(void) 

finish_pass_master ( j_compress_ptr cinfo) 
{ 

my_master_ptr master = (my_master_ptr) cinf o->master; 

/* The entropy coder always needs an end-of-pass call, 
* either to analyze statistics or to flush its output buffer. 

*/ 

{*cinf o->entropy->f inish_pass) (cinfo) ; 

/* Update state for next pass */ 
f witch {master->pass„type) { 
Idcase main_pass: 

/* next pass is either output of scan 0 (after optimization) 
dl * or output of scan 1 (if no optimization) , 
h */ 

master->pass_type = output_pass; 
"""M if (I cinfo->optimize_coding) 
„ri master->scan_number++; 

break; 
:C as e hu f f __op t_pa s s : 
llji /* next pass is always output of current scan */ 

master->pass_type = output_pass; 
' break; 
t/case output_pass : 

^ /* next pass is either optimization or output of next scan */ 

if (cinf o->optimize„coding) 
rj master->pass_type = huf f_opt_pass; 
H master->scan„number++ ; 

break; 

'^''master->pass_nuinber++ ; 
} 



* Initialize master compression control. 
*/ 

GLOBAL (void) 

jinit_c__master_control ( j_compress_ptr cinfo, boolean trans code_only) 

{ 

niy_Jt^aster_ptr master; 

master - (my_master_ptr) 

(*cinfo->mem->alloc„small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF{my_comp_master) ) ; 
cinfo->master = (struct jpeg_comp_master *) master; 
master->pub.prepare_for_pass = prepare_f or_pass; 
mas ter->pub. passes tar tup = pas s_s tar tup; 
master->pub. f inish_pass = f inish_pass_master; 
master->pub. is_last_pass = FALSE; 

/* Validate parameters, determine derived values */ 
initial_setup (cinf o) ; 

if (cinf o->scan_info 1= NULL) { 

#ifdef C_MULTISCAN_FILES_SUPPORTED 
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validate_script (cinf o) ; 

ERREXIT ( cinf 0 , JERR_NOT_COMPILED) ; 
#endif 
} else { 

cinfo->progressive_mode = FALSE; 
cinf o->nuin_s cans = 1; 

} 

if (cinfo->progressive_niode) /* TEMPORARY HACK ??? */ 

cinfo->optimize„coding = TRUE; /* assume default tables no good for progressive mode */ 

/* Initialize my private state */ 
if (transcode_only) { 

/* no main pass in transcoding */ 

if {cinfo->optimize_coding) 

master->pass_type - huf f„opt_pass; 

else 

master- >pass_type = output_pass; 
} else { 

/* for normal compression; first pass is always this type: */ 
master->pass_type = main_^ass; 

} 

master->scan_number = 0? 
master->pass_number = 0; 
if (cinfo->optimize_coding) 

master->total_passes = cinf o->num_s cans * 2; 
else 

master->total_passes = cinf o->num_s cans; 
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* j comapi . c 
* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains application interface routines that are used for both 

* compression and decompression. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 



* Abort processing of a JPEG compression or decompression operation, 

* but don't destroy the object itself. 
* 

* For this, we merely clean up all the nonpermanent memory pools. 

* Note that temp files (virtual arrays) are not allowed to belong to 

* the permanent pool, so we will be able to close all temp files here. 

* Closing a data source or destination, if necessary, is the application's 

* responsibility. 
*/ 

GLOBAL (void) 

jpeg_abort ( j_common_ptr cinfo) 
{ 

int pool; 

t^* Do nothing if called on a not-initialized or destroyed JPEG object. */ 
J%f (cinfo->mem -= NULL) 
return; 

"ij* Releasing pools in reverse order might help avoid fragmentation 
-'y, * with some (brain-damaged) malloc libraries. 

"'-^ */ 

•l^for (pool = JP00L_NUMP00LS-1; pool > JPOOL_PERMAKENT ; pool — ) { 
(* cinfo- >mem->free_pool) (cinfo, pool); 

/* Reset overall state for possible reuse of object */ 
I .if (cinf o->is_decompressor) { 
l^- cinfo->global_state = DSTATE_START ; 

ry /* Try to keep application from accessing now-deleted marker list. 
Ir! * A bit kludgy to do it here, but this is the most central place. 

— */ 

~~ : ( ( j_decompress_j>tr) cinf o) ->marker_list = NULL; 
f':} else { 

::: cinfo->global„state = CSTATE_START; 

} 



/* 

* Destruction of a JPEG object. 

ft 

* Everything gets deallocated except the master jpeg__compress_struct itself 

* and the error manager struct. Both of these are supplied by the application 

* and must be freed, if necessary, by the application. (Often they are on 

* the stack and so don't need to be freed anyway.) 

* Closing a data source or destination, if necessary, is the application's 

* responsibility. 
*/ 

GLOBAL (void) 

jpeg_destroy ( j_common_ptr cinfo) 

^ /* We need only tell the memory manager to release everything. */ 
/* NB: mem pointer is NULL if memory mgr failed to initialize. */ 
if (cinfo->mem 1= NULL) 

(*cinfo->mem->self_destruct) (cinfo) ; 
cinfo->mem = NULL; /* be safe if jpeg_destroy is called twice */ 

cinfo->global_state := 0; /* mark it destroyed */ 

} 



/* 
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* Convenience routines for allocating quantization and Huffman tables. 

* (Would jutils.c be a more reasonable place to put these?) 
*/ 

GLOBAL {JQUANT_TBL *) 

jpeg_alloc__quant_table ( j_common_ptr cinfo) 
{ 

JQUAWT_TBL *tbl; 

tbl = (JQUANT_TBL *) 

{*cinf o->mem->alloc„small) (cinfo, JPOOL_PERMANENT , SIZEOF ( JQUANT_TBL) ) 
tbl ->sen t_table = FALSE; /* make sure this is false in any new table */ 
return tbl; 



GLOBAL (JHUFF_TBL *) 

jpeg_alloc_huf f_table ( j_common_ptr cinfo) 
{ 

JHUFF_TBL *tbl; 

tbl = (JHUFF_TBL *) 

(*cinfo->mem->alloc_small) (cinfo, JPOOL_PERMANENT , SIZEOF (JHUFF_TBL) ) ; 
tbl->sent_table ~ FALSE; /* make sure this is false in any new table */ 
retum tbl; 



* jcparam.c 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains optional default-setting code for the JPEG compressor. 

* Applications do not have to use this file, but those that don't use it 

* must know a lot more about the innards of the JPEG code. 
*/ 

tdefine JPEG_INTERNALS 
tinclude "jinclude.h" 
#include " jpeglib.h** 



* Quantization table setup routines 
GLOBAL (void) 

jpeg_add„quant_table { j_compress_ptr cinfo, int which_.tbl, 

const unsigned int *basic__table, 

int scale_f actor, boolean f orce_baseline) 
/* Define a quantization table equal to the basic_table times 

* a scale factor (given as a percentage) , 

* If f orce„baseline is TRUE, the computed quantization table entries 

* are limited to 1..255 for JPEG baseline compatibility. 
*/ 

{ 

JQUANT_TBL ** qtblptr; 
fint i; 
llong temp; 

gy* Safety check to ensure start_compress not called yet. */ 
Zif (cinfo->global_state 1= CSTATE_START} 

ERREXITKcinfo, JERR„BAD_STATE , cinfo->global_state) ; 

,;4f (which_tbl < 0 I I which_tbl >~ NUM_QUANT_TBLS ) 
^^f ERREXITKcinfo, JERR_DQT_INDEX , which„tbl); 

fijtblptr = & cinfo->quant_tbl_ptrs [which_tbl] ; 

s if {*qtblptr == NULL) 

y, *qtblptr = jpeg_alloc_quant_table( (j_common_ptr) cinfo) ; 
•Qor (i = 0; i < DCTSIZE2; i++) { 

fll temp = ((long) basic_table [i] * scale_factor + 50L) / lOOL; 

/* limit the values to the valid range */ 
J'f if (temp <= OL) temp = IL; 

□ if (temp > 32767L) tert^ = 32767L; /* max quantizer needed for 12 bits */ 

if (f orce_baseline && temp > 255L) 
'^"■'^ temp = 255L; /* limit to baseline range if requested */ 

(*qtblptr)->quantvalli] = (UINT16) temp; 

} 

/* Initialize sent^table FALSE so table will be written to JPEG file. */ 
(*qtblptr) ->sent_table = FALSE; 

} 



GLOBAL (void) 

jpeg__set_linear_quality ( j_compress_ptr cinfo, int scale_f actor , 

boolean f orce_baseline) 
/* Set or change the 'quality' (quantization) setting, using default tables 

* and a straight percentage-scaling quality scale. In most cases it's better 

* to use jpeg_set_quality (below) ; this entry point is provided for 

* applications that insist on a linear percentage scaling. 
*/ 

{ 

/* These are the sample quantization tables given in JPEG spec section K.l. 

* The spec says that the values given produce "good" quality, and 

* when divided by 2, "very good" quality. 

*/ 

Static const unsigned int std_luminance_quant_tbl [DCTSIZE2] = { 
16, 11, 10, 16, 24, 40, 51, 61, 
12, 12, 14, 19, 26, 58, 60, 55, 
14, 13, 16, 24, 40, 57, 69, 56, 
14, 17, 22, 29, 51, 87, 80, 62, 
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99, 


99, 


99 



}? 

/* Set up two quantization tables using the specified scaling */ 
jpsg_add_quant_table ( cinf o , 0 , std_luminance_quant_tbl , 

scale_f actor, f ore e„base line) ; 
jpeg_add„quant„table ( cinf o , 1 , std_chrominance_quant_tbl , 

scale_f actor, f ore e_base line) ; 



GLOBAL (int) 

jpeg_quality_scaling (int quality) 

/* Convert a user-specified quality rating to a percentage scaling factor 

* for an underlying quantization table, using our recommended scaling curve. 

* The input 'quality' factor should be 0 (terrible) to 100 (very good) . 

*/ 

{ 

/* Safety limit on quality factor. Convert 0 to 1 to avoid zero divide. */ 
flf (quality <= 0) quality = 1; 
"^Sit (quality > 100) quality = 100; 

0?* The basic table is used as-is (scaling 100) for a quality of 50. 
,p * Qualities 50.. 100 are converted to scaling percentage 200 - 2*Q; 

* note that at Q=100 the scaling is 0, which will cause jpeg_add_quant_table 
'^l * to make all the table entries 1 (hence, minimum quantization loss) . 
J'i; * Qualities 1..50 are converted to scaling percentage 5000/Q. 
'^:! */ 

^llf (quality < 50) 

flij quality = 5000 / quality; 

' 'else 

J quality = 200 - quality*2; 
Lreturn quality; 

Gx|)BAL(void) 

Jpfeg_set_quality ( j_compress^tr cinfo, int quality, boolean f orce_baseline) 
Set or change the 'quality' (quantization) setting, using default tables. 
This is the standard quality-adjusting entry point for typical user 

* interfaces; only those who want detailed control over quantization tables 

* would use the preceding three routines directly. 
*/ 

{ 

/* Convert user 0-100 rating to percentage scaling */ 
quality = jpeg_quality_scaling (quality) ; 

/* Set up standard quality tables */ 

jpeg_set_linear_quality (cinf o, quality, f ore e_base line) ; 

} 



/* 

* Huffman table setup routines 

*/ 

LOCAL (void) 

add_huf f_table ( j_compress_ptr cinfo, 

JHUFF_TBL **htblptr, const UINT8 *bits, const UIOT8 *val) 
/* Define a Huffman table */ 

{ 

int nsymbols, len; 

if {*htblptr == NULL) 

*htblptr = jpeg_alloc_huf f_table ( { j_common^tr) cinfo); 
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/* Copy the number-of- symbols -of -each-code -length counts */ 
MEMCOPY( {*htblptr) ->bits, bits, SIZEOF( (*htblptr) ->bits) } ; 

/* Validate the counts. We do this here mainly so we can copy the right 

* number of symbols from the val[] array, without risking marching off 

* the end of memory, jchuff .c will do a more thorough test later. 
*/ 

nsymbols = 0; 

for (len = 1; len <= 16; len++) 

nsymbols += bits [len]; 
if (nsymbols < 1 | | nsymbols > 256) 

ERREXIT { cinf O , JERR„BAD_HUFF_TABLE ) ; 

MEMCOPY{ (*htblptr) ->huf fval, val, nsymbols * SIZEOF (UINT8 ) ) ; 

/* Initialize sent_table FALSE so table will be written to JPEG file. */ 
{*htblptr)->sent_table = FALSE; 

} 



LOCAL (void) 

std_huf f_tables ( j_compress_ptr cinfo) 

/* Set up the standard Huffman tables (cf . JPEG standard section K.3) */ 

/* IMPORTANT: these are only valid for 8-bit data precision! */ 

{ 

static const UINT8 bits_dc_luminance [17] = 

{ /* 0-base */ 0, 0, 1, 5, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0 }; 
static const UINT8 val_dc_luminance [ ] = 

{ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }; 

static const UINT8 bits_dc_chrominance [17] = 

{ /* 0-base */ 0, 0, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 }; 
f;ftatic const UINT8 val_dc_chr omi nance [ ] - 
{ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 }; 

Oltatic const UINT8 bits_ac„luminance [17] =: 

Z:^ { /* 0-base */ 0, 0, 2, 1, 3, 3, 2, 4, 3, 5, 5, 4, 4, 0, 0, 1, 0x7d 

;^=|tatic const UINT8 val_ac_luminance [ ] = 

H { 0x01, 0x02, 0x03, 0x00, 0x04, 0x11, 0x05, 0x12, 

0x21, 0x31, 0x41, 0x06, 0x13, 0x51, 0x61, 0x07, 

0x22, 0x71, 0x14, 0x32, 0x81, 0x91, Oxal, 0x08, 

^1) 0x23, 0x42, Oxbl, Oxcl, 0x15, 0x52, Oxdl, OxfO, 

n;i 0x24, 0x33, 0x62, 0x72, 0x82, 0x09, OxOa, 0x16, 

0x17, 0x18, 0x19, Oxla, 0x25, 0x26, 0x27, 0x28, 

0x29, 0x2a, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 

0x3a, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 

0x4a, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 

!r: 0x5a, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 

Oj 0x6a. 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 

0x7a, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 

0x8a, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97, 0x98, 

O 0x99, 0x9a, 0xa2, 0xa3 , 0xa4, 0xa5, 0xa6, 0xa7, 

f% 0xa8, 0xa9, Oxaa, 0xb2 , Oxb3 , 0xb4, 0xb5, 0xb6, 

0xb7, 0xb8, 0xb9, Oxba, 0xc2, 0xc3 , 0xc4, 0xc5, 

0xc6, 0xc7, 0xc8, 0xc9, Oxca, 0xd2 , 0xd3, 0xd4, 

0xd5, 0xd6, 0xd7, 0xd8, 0xd9 , Oxda, Oxel, 0xe2, 

0xe3, 0xe4, 0xe5, 0xe6, 0xe7 , 0xe8, 0xe9, Oxea, 

Oxfl, 0xf2, 0xf3, 0xf4, 0xf5, Oxf'5, 0xf7, 0xf8, 

0xf9, Oxfa }; 



static const UINT8 bits_ac_chrominance [17] = 

{ /* 0-base */ 0, 0, 2, 1, 2, 4, 4, 3, 4, 7, 5, 4, 4, 0, 1, 2, 0x77 }; 
static const UINT8 val_ac__chrominanceC ] = 

{ 0x00, 0x01, 0x02, 0x03, 0x11, 0x04, 0x05, 0x21, 
0x31, 0x06, 0x12, 0x41, 0x51, 0x07, 
0x13, 0x22, 0x32, 0x81, 0x08, 0x14, 
Oxal, Oxbl, Oxcl, 0x09, 0x23, 0x33, 

0x16 , 



0x15, 0x62, 0x72, Oxdl, OxOa, 

Oxel, 0x25, Oxfl, 0x17, 0x18, Oxll? 

0x27, 0x28, 0x29, 0x2a, 0x35, 0x36 

0x39, 0x3a, 0x43, 0x44, 0x45, 0x46 

0x49, 0x4a, 0x53, 0x54, 0x55, 0x56 

0x59, 0x5a, 0x63, 0x64, 0x65, 0x66 

0x69, 0x6a, 0x73, 0x74, 0x75, 0x76 

0x79, Ox7a, 0x82, 0x83, 0x84, 0x815 

0x88, 0x89, 0x8a, 0x92, 0x93, 0x94 

0x97, 0x98, 0x99, Ox9a, 0xa2 , 0xa3 

0xa6, 0xa7, OxaS, 0xa9, Oxaa, 0xb2 

0xb5, 0xb6, 0xb7, 0xb8, 0xb9, Oxba 

0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9 



0x61, 0x71, 

0x42, 0x91, 

0x52, OxfO, 

0x24, 0x34, 

Oxla, 0x26, 

0x37, 0x38, 

0x47, 0x48, 

0x57, 0x58, 

0x67, 0x68, 

0x77, 0x78, 

0x86, 0x87, 

0x95, 0x96, 

0xa4, 0xa5, 

0xb3 , 0xb4 , 

0xc2 , 0xc3 , 

Oxca, 0xd2, 
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0xd3, 0xd4, 0xd5, 0xd6, 0xd7 , 0xd8, Oxd9, Oxda, 

0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, Oxe8, 0xe9, 

Oxea, Oxf2, Oxf 3 , 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 

0xf9, Oxfa }; 

add_huf f_table (cinf o, &cinf o->dc_huf f _tbl_ptrs [0] , 

bits_dc_luminance, val_dc_lumi nance) ; 
add_huf f„table(cinf o, &cinf o->ac_huf f _tbl_ptrs [0] , 

bits_ac_luminance, val_ac_lurai nance) ; 
add_huf f_table (cinf o, &cinf o->dc_huf f _tbl_ptrs [1] , 

bi ts_dc_chrominance , val_dc_chroininance ) ; 
add_huf f_table (cinf o, &cinf o->ac_huf f „tbl_x»trs [1] , 

bits„ac_chrominance, val_ac__chrominance) ; 



/* 

* Default parameter setup for compression. 
* 

* Applications that don't choose to use this routine must do their 

* own setup of all these parameters. Mternately, you can call this 

* to establish defaults and then alter parameters selectively. This 

* is the recommended approach since, if we add any new parameters, 

* your code will still work (they'll be set to reasonable defaults). 
*/ 

GLOBAL (void) 

jpeg_set_defaults ( j_compress_ptr cinfo) 

{ 

int i; 

/* Safety check to ensure start_compress not called yet. */ 
;^if (cinf o->global_state 1= CSTATE_START) 

ERREXITK cinfo, JERR_BAD_STATE , cinfo->global_state) ; 

T/i* Allocate comp_info array large enough for maximum component count. 

* Array is made permanent in case application wants to compress 

* multiple images at same param settings. 

\:\*/ 

f (cinf o->comp„inf o == NULL) 
cinf o->comp_inf o = ( jpeg_component_inf o *) 

(*cinfo->mem->alloc_small) ( ( j_co.iimon_ptr) cinfo, JPOOL_PERMANENT , 
MAX_COMPONENTS * SIZEOF ( jpeg_component_inf o ) ) ; 

^ /* Initialize everything not dependent on the color space */ 

i.jpinfo->data_precision = BITS_IN_JSAMPLE; 

Set up two quantization tables using default quality of 75 */ 
njpeg_set_quality (cinf o, 75, TRUE) ; 
l^i* Set up two Huffman tables */ 
J^td_huff_tables (cinfo) ; 

f-V* Initialize default arithmetic coding conditioning */ 
'-^^for (i = 0; i < NUM_ARITH_TBLS ; i++} { 

cinf o->arith_dc_L [i] = 0; 

cinfo->arith_dc_U[i] = 1; 

cinf o->arith_ac__K[i] = 5; 

} 

/* Default is no multiple-scan output */ 
cinfo->scan_inf o = NULL? 
c info ->num_s cans = 0; 

/* Expect normal source image, not raw downsampled data */ 
cinf o->raw_data_in = FALSE; 

/* Use Huffman coding, not arithmetic coding, by default */ 
cinf o->arith_code = FALSE; 

/* By default, don't do extra passes to optimize entropy coding */ 
cinfo ->optimize_coding = FALSE; 

/* The standard Huffman tables are only valid for 8 -bit data precision. 

* If the precision is higher, force optimization on so that usable 

* tables will be computed. This test can be removed if default tables 

* are supplied that are valid for the desired precision. 

*/ 

if (cinfo->data_precision > 8) 

cinf o->optimize_coding = TRUE; 
/* By default, use the simpler non-cosited sampling alignment */ 
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cinfo->CCIR601_sampling = FALSE; 

/* No input smoothing */ 

c info ->smoothing_f actor = 0; 

/* DCT algorithm preference */ 
cinfo->dct_iuethod = JDCT„DEFAULT ; 

/* No restart markers */ 
cinfo->restart_interval = 0; 
cinfo->restart_in__rows = 0; 

/* Fill in default JFIF marker parameters. Note that whether the marker 

* will actually be written is determined by jpeg„set_colorspace . 
* 

* By default, the library emits JFIF version code 1.01. 

* An application that wants to emit JFIF 1.02 extension markers should set 

* JFIF_minor_version to 2 . We could probably get away with just defaulting 

* to 1.02, but there may still be some decoders in use that will complain 

* about that; saying 1.01 should minimize compatibility problems. 
*/ 

cinfo->JFIF_„major„version = 1; /* Default JFIF version = 1.01 */ 
cinfo->JFIF„minor__version = 1; 

cinfo->density_unit =0; /* Pixel size is unknown by default */ 
cinfo->X_density =1; /* Pixel aspect ratio is square by default */ 

cinfo->Y_density = 1? 

/* Choose JPEG colorspace based on input space, set defaults accordingly */ 
jpeg_def ault_col or space {c info) ; 

} 



/m 

Select an appropriate JPEG colorspace for in_color space. 

if 

Gil)BAL(void) 

jpeg_default_colorspace ( j_compress_ptr cinfo) 

■^^^witch (cinfo->in_color_space) { 
.fpase JCS_GRAYSCALE: 

jp€g_set„colorspace (cinfo, JC S_GRAY SCALE } ; 

break; 
si case JCS_RGB: 

L.^ jpeg_set_colorspace( cinfo, JCS_YCbCt:) ; 

' break; 

Clase JCS_YCbCr: 

nil jpeg_set_colorspace (cinfo, JCSJSfCbCr) ; 
-'t break; 
'^=|:ase JCS_CMYK: 

fj jpeg_set„colorspace{ cinfo, JCS_CMYK) ; /* By default, no translation */ 
™; break? 
s-l:ase JCS_YCCK: 

jpeg„set_colorspace{ cinfo, JCS_YCCK| ; 
break; 
case JCS_UNKNOWN: 

Dpeg„set_colorspace (cinfo, JCS__UNKNOWN) ; 
break; 
default : 

ERREXIT( cinfo, JERR_BAD_IN_C0L0RSPA<:E) ; 

} 

} 



/* 

* Set the JPEG colorspace, and choose colorspace-dependent default values, 
*/ 

GLOBAL (void) 

jpeg_set_colorspace ( j__compress_ptr cin::o, J_COLOR_SPACE colorspace) 

jpeg_component_inf o * compptr; 
int ci; 

#def ine SET_COMP ( index , id, hsamp , vsamp , quant , dctbl , ac tbl ) \ 
(compptr = &cinfo->comp_info [ index] , \ 
compptr- >component_id = (id) , \ 
compptr->h__samp_factor = (hsamp) , \ 
compptr- >v_samp_f actor = (vsamp) , \ 
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coinpptr->quant_tbl__no = (quant) , \ 
coinpptr->dc_tbl__no = (dctbl) , \ 
compptr->ac_tbl_no = (actbl) ) 

/* Safety check to ensure start_compress not called yet. */ 
if (cinfo->global„state != CSTATE_START) 

ERREXITKcinfo, JERR_BAD„STATE , cineo->global_state) ; 

fo^^ail^colorspaces, we use Q and Huff tables 0 for luminance components, 
*^ tables 1 for chrominance components. 



TRUE; /* Write a JFIF marker */ 



write Adobe marker to flag RGB */ 



cinfo->jpeg„color_space = colorspace; 

cinfo->write_JFIF_header = FALSE; /* Ho marker for non-JFIF colorspaces */ 
cinfo->wrxte_Adobe_marker = FALSE; /* write no Adobe marker by default */ 

switch (colorspace) { 
case JCS_GRAYSCALE : 

cinfo->write_JFIF_header = 
cinfo->num__components = 1; 
/* JFIF specifies component ID 1 
SET_COMP(0, 1, 1,1, 0, 0,0); 
break; 
case JCS_RGB: 

cinfo->write_Adobe_marker = TRUE; 
cinf o->num_components = 3 ; 
SET_COMP{0, 0x52 /* 'R' 
SET_C0MP(1, 0x47 /* 
SET__C0MP(2, 0x42 /* 
break; 
case JCS_YCbCr: 

cinfo->write_JFIF_header = TRUE; /* Write a JFIF marker */ 
cinfo->num_components = 3; 
^1 /* JFIF specifies component IDs 1,2,3 */ 
fn /* We default to 2x2 subsamples of chrominance */ 
SET_COMP{0, 1, 2,2, 0, 0,0) 
SET_C0MP(1, 2, 1,1, 1, 1,1) 
SET_C0MP{2, 3, 1,1, 1, 1,1) 
break; 
■^i^se JCS^CMYK: 

hi] cinfo->write_Adobe_jnarker = TRUE; /* write Adobe marker to flag CMYK */ 



'G' 



1,1, 

1;1, 
1,1, 



0, 0,0} 
0, 0,0) 
0, 0,0) 



cinf o->num_components = 
^ - SET_COMP ( 0 , 0x43 /* 'C 
Hi SET_C0MP(1, 0x4D /* 'M' 
, SET_C0MP{2, 0x59 /* 'Y' 
SET^0MP(3, 0x4B /* 'K' 
Lj break; 
|i^se JCS_:yCCK: 
l'"]. c in f o - >wr i t e_Adobe_mar ker 
i cinf o->n\im_components = 4; 



4; 
/, 
/, 
/, 



1,1, 0, 0,0} 



1,1, 
1,1, 



0,0) 
0,0) 



1,1, 0, 0,0) 



TRUE; /* write Adobe marker to flag YCCK */ 



O SE'IL-COMP(0, 1, 2,2, 0, 0,0} 
SET_C0MP(1, 2, 1,1, 1, 1,1) 
^^^SET_C0MP(2, 3, 1,1, 1, 1,1) 
SET_COMP(3, 4, 2,2, 0, 0,0) 
break; 
case JCS__UNKNOWN : 

cinfo->num_components = cinf o->input .components; 

if {cinfo->num_components < 1 | | cineo->num_components > MAX COMPONENTS) 
ERREXIT2{cinfo, JERR_C0MP0NENT_C0U]SrT, cinfo->num componenti 
_MAX__COMPONENTS) ; ~ 

for (ci = 0; ci < cinf o->num_components ; ci++) { 
SET_COMP(ci, ci, 1,1, 0, 0,0); 

break; 
default: 

ERREXIT ( cinf o , JERR_BAD_J_COLORSPACE) ; 

} 



#ifdef C_PROGRESSIVE_SUPPORTED 
LOCAL (jpeg_scan_info *) 

fill-a„scan { jpeg_scan_inf o * scanptr, int ci, 

int Ss, int Se, int Ah, int Al) 
/* Support routine: generate one scan for specified component */ 

scanptr->comps_in_scan = 1; 
scanptr->component_index[03 = ci; 
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scanptr->Ss = Ss; 
scanptr->Se = Se; 
scanptr->Ah = Ah; 
scanptr->Al = Al; 
scanptr++; 
return scanptr; 

} 

LOCAL (jpeg_scan_info *} 

fill_scans ( jpeg_scan_inf o * scanptr, int ncomps, 

int Ss, int Se, int Ah, int Al) 
/* Support routine: generate one scan for each component */ 
{ 

int ci; 

for (ci = 0; ci < ncomps; ci++) { 
scanptr- >conips„in_s can ~ 1; 
scanptr->component_index[0] = ci; 
scanptr->Ss = Ss; 
scanptr->Se = Se; 
scanptr->Ah = Ah; 
scanptr- >Al = Al ; 
scanptr++; 

} 

return scanptr; 



LOCAL ( jpeg_scan__inf o * ) 

fill_dc_scans { jpeg_scan_inf o * scanptr, int ncomps, int Ah, int Al) 

/* Support routine: generate interleaved DC scan if possible, else N scans */ 

{ 

_int ci; 

jif (ncomps <= MAX_COMPS_IN_SCAN) { 
z:^ /* single interleaved DC scan */ 

scanptr->comps_in_scan = ncomps; 
J] for (ci = 0; ci < ncomps; ci++) 
r';: scanptr->component_index [ci] ~ ci; 

scanptr->Ss = scanptr->Se = 0; 
4j. scanptr->Ah = Ah; 
^ scanptr->Al = Al; 
jf; scanptr++ ; 
0| else { 

/* Noninterleaved DC scan for each component */ 
scanptr = fill__scans (scanptr, ncomps, 0, 0, Ah, Al) ; 

s-iteturn scanptr; 

Create a recommended progressive- JPEG script, 
Eicinf o->n\Hn_components and cinf o->jpeq_color_space must be correct. 
V 

GLOBAL (void) 

jpeg_simple_progression ( j_compress_ptr cinfo) 

{ 

int ncomps - cinf o->num_components; 
int nscans; 

Dpeg_scan_inf o * scanptr; 

/* Safety check to ensure start_compress not called yet. */ 
if (cinfo->global_state 1= CSTATE_STAIIT) 

ERREXITl (cinfo, JERR_BAD_STATE, cinfo->global_state) ; 

/* Figure space needed for script. Calculation must match code below! */ 
if (ncomps == 3 && cinf o->jpeg„color_space == JCS_YCbCr) { 

/* Custom script for YCbCr color imciges , */ 

nscans = 10; 
} else { 

/* All-purpose script for other color spaces. */ 
if (ncomps > MAX_COMPS_IN_SCAN) 

nscans = 6 * ncomps; /* 2 DC -t- 4 AC scans per component */ 
else 

nscans = 2 + 4 * ncomps; /* 2 DC scans; 4 AC scans per component */ 

) 

/* Allocate space for script. 
* We need to put it in the permanent pool in case the application performs 
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* multiple compressions without changing the settings. To avoid a memory 

* leak if jpeg_simple_^rogression is called repeatedly for the same JPEG 

* object, we try to re-use previously allocated space, and we allocate 

* enough space to handle YCbCr even if initially asked for grayscale. 
*/ 

if (cinf o->script_space NULL | [ cinf o->script_space_size < nscans) { 
cinfo->script_space_size = MAX(nscans, 10); 
cinfo->script„space = ( jpeg_scan„inf o *) 

(*cinf o->inem->alloc_small) ( ( j_coiiimon_ptr ) cinfo, JPOOL_PERMANENT , 
cinf o->script_space_size * SIZEOF ( jpeg_scan„info) ) ; 

} 

scanptr = cinf o->script_space; 
cinf o->scan_inf o = scanptr; 
cinfo->num_scans = nscans; 

if (ncomps == 3 && cinf o->jpeg_color_£jpace == JCS_YCbCr) { 
/* Custom script for YCbCr color images. */ 
/* Initial DC scan */ 

scanptr = fill_dc„scans (scanptr, ncomps, 0, 1); 

/* Initial AC scan: get some luma data out in a hurry */ 

scanptr = fill_a_scan (scanptr , 0, 1, 5, 0, 2); 

/* Chroma data is too small to be worth expending many scans on */ 

scanptr = fill__a_scan (scanptr , 2, 1, 63, 0, 1); 

scanptr = fill_a_scan (scanptr , 1, 1, 63, 0, 1); 

/* Complete spectral selection for luma AC */ 

scanptr = fill_a__scan (scanptr , 0, 6, 63, 0, 2); 

/* Refine next bit of liama AC */ 

scanptr = fill_a_scan (scanptr , 0, 1, 63, 2, 1); 

/* Finish DC successive approximation */ 

scanptr = fill_dc_scans (scanptr, ncomps, 1, 0); 
D /* Finish AC successive approximation */ 
,if^ scanptr = fill_a_s can (scanptr, 2, 1, 63, 1, 0); 
J: scanptr = fill_a_s can (scanptr, 1, 1, 63, 1, 0); 

IJl /* Luma bottom bit comes last since it's usually largest scan */ 

scanptr = fill_a_scan( scanptr, 0, 1,, 63, 1, 0); 
r% else { 

''^ /* All-purpose script for other color spaces. */ 
yii /* Successive approximation first pass */ 
.7=^ scanptr = fill_dc_scans (scanptr , ncomps, 0, 1); 

scanptr = f ill_s cans (scanptr , ncomps, 1, 5, 0, 2); 
ly scanptr = fill_scans (scanptr , ncomps, 6, 63, 0, 2); 

/* Successive approximation second pass */ 
^ scanptr = fill_scans (scanptr , ncomps, 1, 63, 2, 1); 
I^B. /* Successive approximation final pass */ 
f1 scanptr = f ill_dc„s cans (scanptr , ncomps, 1, 0); 
J! scanptr - fill_scans (scanptr , ncomps, 1, 63, 1, 0); 

#Sndif /* C_PROGRESSIVE_SUPPORTED */ 
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* jcphuff.c 
* 

* Copyright (C) 1995-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy encoding routines for progressive JPEG. 
* 

* We do not support output suspension in this module, since the library 

* currently does not allow multiple-scan files to be written with output 

* suspension. 

#define JPEG_INTERNALS 
#include "jinclude.h" 

#include "jpeglib.h" . . , . . 

#include "jchuff .h" /* Declarations shared with jchuff .c */ 

#ifdef C_PROGRESSIVE_SUPPORTED 

/* Expanded entropy encoder object for progressive Huffman encoding. */ 

typedef struct { 

struct jpeg__entropy_encoder pub; /* public fields */ 

/* Mode flag: TRUE for optimization, FALSE for actual data output */ 
boolean gather_statistics; 

/* Bit-level coding status. 

* next_output_byte/free„in_buf fer are local copies of cinfo->dest fields. 

™*/ 

^^"-^dOCTET * next_output_byte ; /* => next byte to write in buffer */ 
tfiize_t free_in_buffer; /* # of byte spaces remaining in buffer */ 
n|NT32 put_buffer; /* current bit-accumulation buffer */ 

'"^'int put^bits; /* # of bits now in it */ 

■lj_compress_ptr cinfo; /* link to cinfo (needed for dump.buffer) */ 

4* Coding status for DC components */ 

■^int last_dc_valEMAX_COMPS_IN_SCAN] ; /* last DC coef for each component */ 

Coding status for AC components */ 
''Int ac_tbl„no; /* the table number of the single component */ 

unsigned int EOBRUN; /* run length of EOBs */ 

Lunsigned int BE; /* # of buffered correction bits before MCU */ 

-^"char * bit_buffer; /* buffer for correction bits {1 per char) */ 

C|* packing correction bits tightly would save some space but cost time... */ 

^unsigned int restarts_to_go; /* MCUs left in this restart interval */ 
""int next_restart_num; /* next restart number to write (0-7) */ 

S-y* Pointers to derived tables (these workspaces have image lifespan) . 

* Since any one scan codes only DC or only AC, we only need one set 

* of tables, not one for DC and one for AC. 

*/ 

c_derived„tbl * derived_tbls [NUM_HUFF_TBLS1 ; 

/* Statistics tables for optimization; again, one set is enough */ 
long * count_^trs[NUM_HUFF_TBLS] ; 
} phuf f_entropy_encoder; 

typedef phuf f_entropy_encoder * phuf f_entropy_^tr ; 

/* MAX_CORR_BITS is the number of bits the AC refinement correction-bit 

* buffer can hold. Larger sizes may slightly improve compression, but 

* 1000 is already well into the realm of overkill. 

* The minimiom safe size is 64 bits. 
*/ 

#define MAX_CORR_BITS 1000 /* Max # of correction bits I can buffer */ 

/* IRIGHT_SHIFT is like RIGHT_SHIFT, but works on int rather than IOT32, 

* We assume that int right shift is unsigned if INT32 right shift is, 

* which should be safe. 

*/ 



#ifdef RIGHT_SHIFT_IS_UNSIGNED 
#define ISHIFT_TEMPS int ishift„temp; 
#define IRIGHT_SHIFT (x, shf t) \ 
( (ishift_temp = (x) ) < 0 ? \ 
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(ishift^teinp » (shft) ) | ({-0} « (16-(shft))) : \ 
(ishift_temp » (shft))) 

tdefine ISHIFT_TEMPS 

#define IRIGHT_SHIFT(x,shft) { (x) » (shft)) 
#endif 

/* Forward declarations */ 

METHODDEF (boolean) encode„mcu„DC„f irst JPP ( { j_coitipress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (boolean) encode_mcu_AC_f irst JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (boolean) encode_mcu_DC_ref ine JPP ( ( j_compress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (boolean) encode„mcu_AC_ref ine JPP ( (j_conipress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (void) f inish_pass__phuf f JPP ( ( j_compress_ptr cinfo) ) ; 
METHODDEF (void) f inish_pass_gather_phuf f JPP { ( j_compress_^tr cinfo)); 



/* 

* Initialize for a Huffman-compressed scan using progressive JPEG. 
*/ 

METHODDEF (void) 

start_j)ass_phuf f ( j_compress_ptr cinfo, boolean gather_stati sties) 
{ 

phuf f_entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
boolean is_DC_band; 
int ci, tbl; 
.Jpeg_.component_inf o * compptr; 

i|totropy->cinf o = cinfo; 

ijrfintropy->gather_statistics = gather„statistics ; 
y^jLS_DCjDand = (cinfo->Ss == 0) ; 

"j/* vfe assume jcmaster.c already validated the scan parameters. */ 

Select execution routines */ 
:?;if (cinfo->Ah == 0) { 
lU if (isJDCjDand) 

entropy->pub. encode_nicu = encode_mcu_DC_f irst ; 
r . else 

entropy->pub.encode_mcu = encode_mcu__AC_f irst; 
rj} else { 
S ^ if ( i s_DC jDand ) 

entropy->pub» encode_mcu = encode_mcu_DC_ref ine; 
else { 

entropy->pub.encode_mcu = encode_mcu_AC_ref ine; 
/* AC refinement needs a correction bit buffer */ 
D if (entropy->bitjDuf fer == NULL) 
entropy- >bit_buffer = (char *) 

( *cinf o->mem->alloc_small) ( ( j_common„ptr ) cinfo, JPOOL_IMAGE, 
MAX„CORR__BITS * SIZEOF (char) ) ; 

} 

} 

if (gather_statistics) 

entropy->pub, f inish_pass = f inish_pass_gather_phuf f ; 
else 

en tropy->pub. finis h_pass = f inish_pass_phuf f ; 

/* Only DC coefficients may be interleaved, so cinf o->comps„in„scan = 1 
* for AC coefficients. 

*/ 

for (ci = 0; ci < cinf o->coxiips„in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
/* Initialize DC predictions to 0 */ 
entropy->last_dc_val [ci] = 0; 
/* Get table index */ 
if (is_DC„band) { 

if (cinfo->Ah != 0) /* DC refinement needs no table */ 
continue? 

tbl = compptr->dc_tbl_no; 
} else { 

entropy- >ac_tbl_no - tbl = compptr->ac_tbl_no; 

} 

if {gather_statistics) { 

/* Check for invalid table index */ 

/* (ina3ce_c_derived_.tbl does this in the other path) */ 
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if (tbl < 0 I I tbl >= NtrM_HUFF_TBLS) 

ERREXITKcinfo, JERR_NO_HUFF_TABLE , tbl); 
/* Allocate and zero the statistics tables */ 

/* Note that jpeg_gen_optimal_table expects 257 entries in each table! */ 

if (entropy->count_ptrs [tbl] == NULL) 
entropy->co\int_^trs [tbl] = (long *) 

(*cinfo->mem~>alloc„small) ( { j_coramon_ptr) cinfo, JPOOL„IMAGE, 
257 * SIZEOF(long)) ; 

MEMZERO(entropy->count_ptrs [tbl] , 257 * SIZEOF (long) ) ; 
} else { 

/* Compute derived values for Huffman table */ 

/* We may do this more than once for a table, but it's not expensive */ 
jpeg_itia]ce_c__derived„tbl (cinf o, is_DC_band, tbl, 
& entropy->derived_tbls [tbl] ) ; 

} 

} 

/* Initialize AC stuff */ 
entropy- >EOBRUN = 0; 
entropy- >BE = 0; 

/* Initialize bit buffer to empty */ 
entropy- >put_buffer = 0; 
entropy->put_bits = 0; 

/* Initialize restart stuff */ 

entropy- >res tar ts_to_go = cinf o->restart_interval; 
entropy->next__restart_num = 0; 



/f ii Outputting bytes to the file* 

'^fWB: these must be called only when actually outputting, 
iJ that is, entropy->gather_statistics FALSE, 

/^Emit a byte */ 

f define emit_byte (entropy, val) \ 

i * (entropy) ->next_output_byte++ = (JOCTET) (val); \ 

™:' if ( — (entropy) ->free_in_buffer ==0) \ 

^3 dump_buffer (entropy) ; } 



l50CAL(void) 

c|!;gnp_buf f er (phuf f_entropy_ptr entropy) 

Empty the output buffer; we do not support suspension in this module. */ 

njstruct jpeg„destination_mgr * dest = entropy->cinf o->dest; 

J"'-if (! (*dest->empty_output_buf fer) (entropy->cinf o) ) 
%J ERREXIT(entropy->cinfo, JERR_CANT_SUSPEND) ; 

iri;/* After a successful buffer dump, must reset buffer pointers */ 
™''entropy->next_output„byte = dest->next„output_byt€; 
entropy->f ree„in_buf f er = dest->f ree__in_buf f er; 

} 



/* Outputting bits to the file */ 

/* Only the right 24 bits of put_buffer are used; the valid bits are 

* left- justified in this part. At most 16 bits can be passed to emit_bits 

* in one call, and we never retain more than 7 bits in put_buffer 

* between calls, so 24 bits are sufficient, 
*/ 

INLINE 
LOCAL (void) 

emit_bits (phuf f_entropy_ptr entropy, \msigned int code, int size) 

/* Emit some bits, unless we are in gather mode */ 

{ 

/* This routine is heavily used, so it's worth coding tightly. */ 
register IWT32 put_buffer = (INT32) code; 
register int put_bits = entropy->put__bits; 

/* if size is 0, caller used an invalid Huffman table entry */ 
if (size == 0) 

ERREXIT ( entropy- >cinfo , JERR_HUFFjy[ISSING„CODE) ; 

if (entropy->gather_statistics) 

return; /* do nothing if we're only getting stats */ 
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put_buffer &= (((INT32) l)«size) - 1; /* mask off any extra bits in code 
put_bits += size; /* new number of bits in buffer */ 

put^buffer «= 24 - put_bits; /* align incoming bits */ 

put_buffer |= entropy- >put_buffer; /* and merge with old buffer contents ' 

while (put_bits >= 8) { 

int c = (int) ( {put_buf f er » 16) & OxFF) ; 

ami t_byte (entropy, c) ; -u *. * / 

OxFF) { /* need to stuff a zero byte? */ 

emi t„by t e { entropy . 0 ) ; 

} 

put_buffer «= 8; 
put_bits -= 8; 

} 

entropy->put„buffer = put_.buffer; /* update variables */ 
entropy->put_bits = put_bits; 

} 

LOCAL (void) 

flush^bits (phuf f„entropy_ptr entropy) 

^ emi t.bits (entropy, 0x7F, 7); /* fill any partial byte with ones */ 
entropy->put_buffer =0; /* and reset bit-buffer to empty */ 

entropy- >put_bits = 0; 

}n 

^-Emit (or just count) a Huffman symbol. 

L^CAL(void) . ^ ^ . , T , 

eiilt„symbol (phuf f_entropyjtr entropy, mt tbl_no, int symbol ) 

. . , 

' '1 f ( entropy- >gather_s tat is t ics ) 

5 entropy->count^trs [ tbl_no] [symbol] ++ ; 

™"^''"clderived_tbl * tbl = entropy->derived„tbls [tbl_no] ; 

O emit_bits (entropy, tbl->ehuf co [symbol] , tbl->ehuf si [symbol] ) ; 

m 
ij 

Emit bits from a correction bit buffer, 

*/ 

LOCAL (void) ^ . n. X ^ *- 

emit_buffered_bits (phuf f_entropy_j>tr entropy, char * bufstart, 

unsigned int nbits) 

if {entropy->gather_statistics) 

return; /* no real worlc */ 

while (nbits > 0) { 

emit_bits (entropy, (unsigned int) (*bufstart) , 1); 

bufstart++; 

nbits — ? 

} 

} 

/* 

* Emit any pending EOBRUN symbol. 

*/ 

LOCAL (void) 

emit_eobrun (phuf f„entropy_:ptr entropy) 
{ 

register int temp, nbits; 

if {entropy->EOBRUN > 0) { /* if there is any pending EOBRUN */ 



temp = entropy- >EOBRUN; 
nbits = 0; 

while ((temp »= 1)} 
nbits++; 

/* safety check: shouldn't happen given limited correction-bit buffer */ 
if (nbits > 14) 

ERREXIT{entropy->cinfo, JERR„HUFF_MISSING„CODE) ; 

emit_syinbol (entropy, entropy->ac_tbl_no, nbits « 4) ; 
if (nbits) 

emit„bits (entropy, entropy->EOBRUN, nbits) ; 
entropy- >EOBRUN = 0; 

/* Emit any buffered correction bits */ 

emit_buffered_bits (entropy, entropy->bit_buf f er, entropy->BE) ; 
entropy->BE = 0; 

} 

} 



/* 

* Emit a restart marker & resynchronize predictions. 

*/ 

LOCAL (void) 

emit_restart (phuf f_entropy_ptr entropy, int restart_num) 
{ 

int ci; 

emit„eobrun (entropy) ; 

Zlf (I entropy->gather_statistics) { 

flush„bits (entropy) ; 
ffl emit_byte {entropy, OxFF) ; 

"k emit_byte (entropy, JPEG__RSTO + restart_num) ; 

cf 

j^fif (entropy->cinf o->Ss ==0) { 

"tf /* Re-initialize DC predictions to 0 */ 

tfi for (ci = 0; ci < entropy->cinfo->comps„in_scan; ci++) 

fij entropy- > las t_dc_val [ci] = 0; 

' 1 else { 

^ /* Re-initialize all AC-related fields to 0 */ 
entropy- >EOBRUN = 0; 
entropy->BE = 0; 

m 
m 

f% MCU encoding for DC initial scan (either spectral selection, 
^ or first pass of successive approximation) . 
*/ 

METHODDEF (boolean) 

encode_mcu_DC_f irst { j_compress_ptr cinfo, JBLOCKROW *MCU_data} 
{ 

phuf f„entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 

register int temp, temp2; 

register int nbits; 

int blkn, ci; 

int Al = cinfo->Al; 

JBLOCKROW block; 

jpeg_component_inf o * compptr; 

ISHIFT„TEMPS 

entropy->next_output_byte = cinf o->dest->next_output_byte; 
entropy- >free_in_buffer = cinf o->dest->f ree_in_buf f er ; 

/* Emit restart marker if needed */ 
if {cinfo->restart_interval) 

if (entropy->restarts__to„go == 0) 

emit„res tart (entropy, entropy- >next_res tar t_num) ; 

/* Encode the MCU data blocks */ 

for (blkn = 0; blkn < cinf o->blocks_in_:MCU; blknH- + ) { 
block = MCU_data[blkn3 ; 
ci = cinf o->MCU_meinber ship [blkn] ; 
compptr = cinf o->cur_corap_inf o [ci] ; 
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/* Compute the DC value after the required point transform by Al. 

* This is simply an arithmetic right shift. 
*/ 

temp2 = IRIGHT„SHIFT( (int) { (*block) [0] ) . Al) ; 

/* DC differences are figured on the point -trans formed values. */ 
temp = temp2 - entropy->last„dc_val [ci] ; 
entropy->last__dc„val [ci] = temp2; 

/* Encode the DC coefficient difference per section G. 1,2.1 */ 
temp 2 = temp; 

if (temp < 0} { ^ ^ . . *; 

temp = -temp; /* temp is abs value of input */ 

/* For a negative input, want temp2 = bitwise complement of abs (input) */ 
/* This code assumes we are on a two's complement machine */ 
temp2 - - ; 

} 

/* Find the number of bits needed for the magnitude of the coefficient */ 
nbits = 0; 
while (temp) { 

nbits++; 

temp »= 1; 

/* Check for out-of -range coefficient values. 

* since we're encoding a difference, the range limit is twice as much. 

*/ 

if (nbits > MAX_C0EF_BITS+1) 

ERREXIT ( cinf o , JERR_BAD_DCT_COEF ) ; 

/* Count /emit the Huffman-coded symbol for the number of bits */ 
^^ emit_symbol (entropy, compptr->dc_tbl_no, nbits); 

5^ /* Emit that number of bits of the value, if positive, */ 

/* or the complement of its magnitude, if negative. */ 
ii^ if (nbits) /* emit_bits rejects calls with size 0 */ 

emit_bits (entropy, (unsigned int) temp2 , nbits); 

J: 

'iC!info->dest->next_output_byte = entropy->next_output_byte; 
S!info->dest->free_in_buf fer = entropy- >free_in_buffer; 

=/* Update res tart- interval state too */ 
_if (cinfo->restart„interval) { 

if {entropy->restarts_to_go ==0) { 
U entropy- >res tar ts_to_go = cinf o->restart_interval; 
5 n entropy->next_restart_num++ ; 

entropy- >next_res tar t_num &= 7; 

} 

r% entropy- >res tar ts_to_go — ; 
return TRUE; 

} 



* MCU encoding for AC initial scan (either spectral selection, 

* or first pass of successive approximation) . 

*/ 

METHODDEF (boolean) ^ ^„ ^ ^ v 

encode_mcu_AC„first ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 

^ phuff_entropy_:ptr entropy = (phuf f_entropyjtr) cinfo->entropy; 
register int temp, temp2 ; 
register int nbits; 
register int r, k; 
int Se - cinfo->Se; 
int Al = cinfo->Al; 
JBLOCKROW block; 

entropy- >next_output_byte = cinf o->dest->next_output_byte; 
entropy->free_in_buf fer = cinf o->dest->f ree_in_buf f er ; 

/* Emit restart marker if needed */ 
i f ( cinf o->res tart_interval ) 

if (entropy->restarts_to„go 0) 

emit^res tart (entropy, entropy- >next_res tar t„num) ; 
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/* Encode the MCU data block */ 
block = MCU_data[01 ; 

/* Encode the AC coefficients per section G.1.2.2, fig, G.3 */ 

r = 0; /* r = run length of zeros */ 

for (k = cinfo->Ss; k <= Se; k++) { 

if ({temp = (*block) [jpeg_natural_order[k] ] ) === 0) { 
r++; 

continue; 

/* We must apply the point transform by Al . For AC coefficients this 

* is an integer division with rounding towards 0. To do this portably 

* in C, we shift after obtaining the absolute value; so the code is 

* interwoven with finding the abs value (temp) and output bits (temp2) . 
*/ 

if (temp < 0) { . ^ . 

temp = -temp; /* temp is abs value of input */ 

temp »= Al; /* apply the point transform */ ^ ^ , ^ , 

/* For a negative coef, want temp2 = bitwise complement of abs{coef) */ 
temp2 - -temp; 
> else { . . , 

temp »= Al; /* apply the point transform */ 

temp2 = temp; 

/* Watch out for case that nonzero coef is zero after point transform */ 
if (temp == 0) { 
r++; 

continue; 

n ^ 

tfJ /* Emit any pending EOBRUN */ 
01 if (entropy->EOBRUN > 0) 

"11 emit_eobrun ( entropy) ; ,^ r.Av */ 

/* if r\in length > 15, must emit special run-length-16 codes (OxFO) */ 

while (r > 15) { 
4' emit„symbol( entropy, entropy- >ac_tbl_no, OxFO); 

r -= 16; 

/* Find the number of bits needed for the magnitude of the coefficient */ 
5 nbits =1; /* there must be at least one 1 bit */ 

1^^; while {(temp »= 1)) 
L., nbits++; 

U /* Check for out-of -range coefficient values */ 

m if (nbits > MAX_j:OEF_BITS) 

'i ERREXIT ( cinf o , JERR„BAD„DCT_COEF ) ; 



:1 /* Count /emit Huffman symbol for run length / number of bits */ 
^ emit„symbol (entropy, entropy- >ac_tbl_no. (r « 4) + nbits); 

/* Emit that number of bits of the value, if positive, */ 
/* or the complement of its magnitude, if negative. */ 
emit_bits (entropy, (unsigned int) temp2, nbits); 

r = 0; /* reset zero run length */ 

} 

if (r > 0) { /* If there are trailing zeroes, */ 

entropy->EOBRUN++; /* count an BOB */ 

if (entropy->EOBRUN == 0x7FFF) 

emit_eobrun (entropy) ; /* force it out to avoid overflow */ 

} 

cinfo->dest->next_output_byte = entropy- >next_output_byte; 
cinfo->dest->free„in_buffer = entropy->f ree_in_buf f er ; 

/* Update restart-interval state too */ 
if (cinfo->restart_interval) { 

if (entropy->restarts_to_go == 0) { 

entropy->restarts_to_go = cinf o->restart_interval ; 

entropy- >next„restart_num++ ; 

entropy- >next_res tar t_num &= 7; 

} 

entropy->restarts_to_go-- ; 

} 

return TRUE; 
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} 



* MCU encoding for DC successive approximation refinement scan, 

* Note: we assume such scans can be multi -component, although the spec 

* is not very clear on the point. 
*/ 

METHODDEF (boolean) 

encode_mcu_DC_refine ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 

phuff_entropy_ptr entropy = (phuf f„entropy_ptr ) cinf o->entropy ; 
register int temp; 
int blkn; 

int Al = cinfo->Al; 
JBLOCKROW block; 

entropy- >next_output_byte - cinf o->dest->next_output_byte; 

entropy->free_in„buf far = cinf o->dest->f ree_in_buf f er; 

/* Emit restart marker if needed */ 
if {cinfo->restart_interval) 

if (entropy->restarts_,to_go 0) 

emit„res tart (entropy, entropy- >next_res tar t_num) ; 

/* Encode the MCU data blocks */ 

for {blkn = 0; blkn < cinf o->blocks„in_MCU; blkn++) { 
block = MCU_dataEblkn3 ; 

/* We simply emit the Al'th bit of the DC coefficient value. */ 
temp = (*block) [0] ; 
U emit_bits (entropy, (unsigned int) (temp » Al) , 1); 

^='dinfo->dest->next_output_byte = entropy->next_output_byte ; 
4$info->dest->freG_in_buffer = entropy- >free_in_buffer; 

y* Update restart- interval state too */ 
^£f (cinfo->restart„interval) { 

if (entropy->restarts_to__go ==0) { 
y. entropy->restarts_to_go = cinf o->restart_interval ; 
^ entropy- >next„res tar t_num++ ; 

entropy->next__restart_num &= 7; 

U > 

= entropy->restarts_to_go-- ; 

o 

'Teturn TRUE; 

f4 



* MCU encoding for AC successive approximation refinement scan. 
METHODDEF (boolean) 

encode_mcu_AC„ref ine ( j_compress_ptr cinfo, JBLOCKROW *MCU_data) 

phuff_entropy_ptr entropy = (phuf f_entropyjtr) cinf o->entropy; 
register int temp; 
register int r, k; 
int EOB; 

char *BRjDuffer; 

unsigned int BR; 

int Se = cinfo->Se; 

int Al = cinfo->Al; 

JBLOCKROW block; 

int absvalues[DCTSIZE2] ; 

entropy->next_output„byte = cinf o->dest->next_output_byte; 
entropy->free_in_buf fer = cinf o->dest->f ree_in„buf f er ; 

/* Emit restart marker if needed */ 
if (cinf o->restart_interval ) 

if {entropy->restarts_to_go 0) 

emit_restart (entropy, entropy- >next_res tar t„num) ; 

/* Encode the MCU data block */ 
block = MCU_dataE03; 
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/* It is convenient to make a pre-pass to determine the transformed 
* coefficients' absolute values and the EOB position. 
V 

EOB = 0; 

for (k = cinfo->Ss; k <= Se; k++) { 

temp = {*block) [jpeg_natural_order[k] ] ; 

/* We must apply the point transform by Al . For AC coefficients this 

* is an integer division with rounding towards 0. To do this portably 

* in C, we shift after obtaining the absolute value. 
*/ 

if (temp < 0) . ^ n ^ • 4. */ 

temp = -temp; /* temp is abs value of input */ 

temp »= Al; /* apply the point transform */ 

absvalues[k] = temp; /* save abs value for main pass */ 
if (temp ==1) ^ ... 

EOB = k; /* EOB = index of last newly-nonzero coef */ 

} 

/* Encode the AC coefficients per section G.1.2.3, fig. G.7 */ 

r = 0; /* r = run length of zeros */ 

BR = 0; /* BR = count of buffered bits added now */ 

BR„buffer = entropy- >bit_buffer + entropy->BE; /* Append bits to buffer */ 

for (k = cinfo->Ss; k <= Se; k++) { 
if ({temp = absvalues[k] ) ==0) { 
r++; 

continue; 

} 

/* Emit any required ZRLs, but not if they can be folded into EOB */ 
while (r > 15 && k <= EOB) { 

0 /* emit any pending EOBRUN and the BE correction bits */ 
r% emit_eobrun (entropy) ; 

1" /* Emit ZRL */ 

13 emit_symbol (entropy, entropy->ac_tbl_no , OxFO) ; 
r — ~ 16 • 

?! /* Emit'buf fered correction bits that must be associated with ZRL */ 
D emitjDufferedjDits (entropy, BRjDuffer, BR); 

iii BRj3uffer = entropy->bitJouffer; /* BE bits are gone now */ 

2" BR = 0; 
} 

/* If the coef was previously nonzero, it only needs a correction bit. 
* NOTE- a straight translation of the spec's figure G.7 would suggest 
~i * that we also need to test r > 15. But if r > 15, we can only get here 
i;; * if k > EOB, which implies that this coefficient is not 1. 

H */ 

"^i if (temp >1){ ...^..n*/ 
"7 /* The correction bit is the next bit of the absolute value. */ 

1 BR_b^iffer [BR++1 = (char) (temp & 1); 
continue; 

} 

/* Emit any pending EOBRUN and the BE correction bits */ 
emit_eobrun( entropy) ; 

/* Count /emit Huffman symbol for run length / number of bits */ 
emit_symbol (entropy, entropy- >ac_tbl_no, (r « 4) + 1); 

/* Emit output bit for newly-nonzero coef */ 

temp = ( (*block) [jpeg_natural_order [k] ] < 0) ? 0 : 1; 

emit_bits (entropy, (unsigned int) temp, 1); 

/* Emit buffered correction bits that must be associated with this code */ 
emit„buffered_bits (entropy, BR_buffer, BR); 

BR_buffer = entropy- >bit_buffer; /* BE bits are gone now */ 
r = 0; /* reset zero run length */ 

} 

if (r > 0 I I BR > 0) { /* If there are trailing zeroes, */ 
entropy->EOBRUN++; /* count an EOB */ 

entropy->BE += BR; /* concat my correction bits to older ones */ 

/* We force out the EOB if we risk either: 

* 1. overflow of the EOB counter; 

* 2. overflow of the correction bit buffer during the next MCU. 
if^entropy->EOBRUN =- 0x7FFF || entropy->BE > (MAX_C0RR„BITS-DCTSIZE2+1) ) 
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emit_eobrun( entropy) ; 

} 

cinfo->dest->next„output_byte = entropy->next_output__byte; 
cinfo->dest->free_in_buf f er = entropy->f ree_in_buf f er ; 

/* Update restart-interval state too */ 

if (cinfo->restart_interval) { 

if (entropy->restarts_to_go ==0) { 

entropy->restarts„to_go = cinf o->restart_interval; 
entropy->next„restart„num++ ; 
entropy- >next_res tar t_num &= 7; 

} 

entropy->restarts_to„go-- ; 

} 

return TRUE; 

} 



/* 

* Finish up at the end of a Huffman-compressed progressive scan. 
*/ 

METHODDEF (void) 

f inish„pass_phuf f ( j_compress_ptr cinfo) 
{ 

phuf f_entropy_^tr entropy = (phuf f_entropy_^tr} cinf o->entropy; 
entropy*->next_output„byte = cinf o->dest->next_output_byte; 
entropy->free_in„buf f er = cinf o->dest->f ree_in_buf f er ; 

* Flush out any buffered data */ 
^#mit_eobrun( entropy) ; 
n|lush__bits (entropy) ; 

^i|info->dest->next_output_byte = entropy->next_output_byte; 
S;(!5info->dest->free_in_buf f er = entropy- >free_in_buf fer; 

Finish up a statistics-gathering pass and create the new Huffman tables. 
]feHODDEF(void) 

rfiliish_pass„gather_phuf f ( j„compress jtr cinfo) 

mi 

phuf f _entropy_ptr entropy = (phuf f_entropy_ptr) cinf o->entropy; 
";;t)oolean is_DC_band; 
rjLnt ci, tbl; 

:r-ppeg„component_inf o * compptr; 
-^jHUFF_TBL **htblptr; 
boolean did [NUM_HUFF„TBLS ] ; 

/* Flush out buffered data (all we care about is counting the EOB symbol) 
emit„eobr\in( entropy) ; 

is_DC_band = (cinfo->Ss == 0) ; 

/* It's important not to apply jpeg_gen_optimal_table more than once 

* per table, because it clobbers the input frequency counts! 
*/ 

MEMZERO{did, SIZEOF(did) ) ; 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
if ( i s_DC_band ) { 

if (cinfo->Ah != 0) /* DC refinement needs no table */ 
continue; 

tbl = compptr->dc__tbl_no; 
} else { 

tbl = compptr->ac_tbl_no; 

} 

if (! didEtbl]) { 
if (is__DC_band) 

htblptr = & cinfo->dc_huff„tbl_ptrs[tbl] ; 
else 

htblptr = & cinfo->ac_huf f_tbl_ptrs [tbl] ; 
if (*htblptr == NULL) 
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*htblptr = jpeg_alloc_huf f_table ( ( j_cominon_ptr) cinfo) ; 
jpeg„gen_optimal_table (cinfo, *htblptr , entropy->count_ptrs [tbl] ) ; 
did[tbl] = TRUE; 

} 

} 

} 



/* 

* Module initialization routine for progressive Huffman entropy encoding. 
*/ 

GLOBAL (void) 

jinit_phuf f„encoder ( j_coinpress_ptr cinfo) 
{ 

phuf f_entropy_ptr entropy; 
int i; 

entropy = (phuf f„entropy_ptr) 

(*cinfo->mem->alloc„small) { ( j_coinmon_^tr) cinfo, JPOOL__IMAGE , 
SIZEOF (phuf f_entropy_encoder) ) ; 
cinfo->entropy = (struct jpeg_entropy_encoder *) entropy; 
entropy->pub.start_pass = start_pass_phuf f ; 

/* Mark tables unallocated */ 

for (i = 0; i < NUM_HUFF_TBLS ; i++} { 

entropy->derived_tbls [i] = NULL; 

entropy->count_ptrs [i] = NULL; 

} 

entropy->bit_buf f er = NULL; /* needed only in AC refinement scan */ 
##dif /* C„PROGRESSIVE_SUPPORTED */ 



/* 

* jcprepct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains the compression preprocessing controller. 

* This controller manages the color conversion, downsampling, 

* and edge expansion steps. 
* 

* Most of the complexity here is associated with buffering input rows 

* as required by the downsampler. See the comments at the head of 

* jcsample.c for the downsampler ' s needs. 
*/ 

#define JPEG„INTERNALS 
#include "jinclude.h" 
#include "jpeglib.h" 



/* At present, jcsample.c can request context rows only for smoothing. 

* In the future, we might also need context rows for CCIR601 sampling 

* or other more-complex downsampling procedures. The code to support 

* context rows should be compiled only if needed. 
*/ 

#ifdef INPUT_SMOOTHING_SUPPORTED 
#define CONTEXT_ROWS_SUPPORTED 
#endif 



*:fFor the simple (no-context-row) case, we just need to buffer one 
*^^row group's worth of pixels for the downsampling step. At the bottom of 
^^'^the image, we pad to a full row group by replicating the last pixel row. 
K^The downsampler 's last output row is then replicated if needed to pad 
*^^fout to a full iMCU row. 



*-"-When providing context rows, we must buffer three row groups' worth of 
^'^'pixels. Three row groups are physically allocated, but the row pointer 
tfUrrays are made five row groups high, with the extra pointers above and 
^"iibelow "wrapping around" to point to the last and first real row groups. 
'^^'^This allows the downsampler to access the proper context rows. 

At the top and bottom of the image, we create dummy context rows by ^ 
copying the first or last real pixel row. This copying could be avoided 
;;*-.by pointer hacking as is done in jdmainct.c, but it doesn't seem worth the 
-^*'^ trouble on the compression side. 

M 

yfS Private buffer controller object */ 

tyjpedef struct { . . ^ . n j * / 

struct jpeg_c_jjrep_controller pub; /* public fields */ 

/* Downsampling input buffer. This buffer holds color-converted data 
* until we have enough to do a downsample step. 
*/ 

JSAMPARRAY color_buf [MAX_COMPONENTS] ; 

JDIMENSION rows_to_go; /* counts rows remaining in source image */ 
int next„buf„row; /* index of next row to store in color_buf */ 

#ifdef CONTEXT__ROWS_SUPPORTED /* only needed for context case */ 

int this_row_group; /* starting row index of group to process */ 

int next_buf_stop; /* downsample when we reach this index */ 

#endif 

} my_prep„controller; 

typedef my_j)rep_contr oiler * my_:prepjtr; 



* Initialize for a processing pass. 
*/ 

METHODDEF(void) 

start_pass_prep ( j_compress_ptr cinfo, J_BUF_MODE pass_i 
^ my^rep_ptr prep = {my_prep_ptr ) cinfo->prep; 
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if (pass_raode 1= JBUF_PASS_THRU) 

ERREXIT ( cinf o , JERR_BAD_BUFFER_MODE) ; 

/* Initialize total-height counter for detecting bottom of image */ 
prep->rows_to_go = cinf o->image_height; 
/* Mark the conversion buffer empty */ 
prep->next_buf_row = 0; 
#ifdef CONTEXT_ROWS_SUPPORTED 

/* Preset additional state variables for context mode. 

* These aren't used in non-context mode, so we needn't test which mode. 

*/ 

prep->this_row_group - 0; 

/* Set next_buf„stop to stop after two row groups have been read in. */ 
prep->next_buf_stop = 2 * cinf o->max_v_samp_f actor ; 
#endif 



/* 

* Expand an image vertically from height input_.rows to height output_rows, 

* by duplicating the bottom row. 
*/ 

LOCAL (void) 

expand_bottom_edge (JSAMPARRAY image_data, JDIMENSION num_cols, 
int input_rowSi int output_rows) 

{ 

register int row; 

for (row = input„rows; row < outpu throws; row++) { 
tj jcopy_sample_rows (image_data, input_rows-l, image_data, row, 
1 , num_cols) ; 

Process some data in the simple no-context case. 

Preprocessor output data is counted in "row groups". A row group 
Mis defined to be v_saii^_f actor sample rows of each coir^onent. 
'*' Downs amp ling will produce this much data from each max_v_samp„f actor 
^ input rows. 

|*V 

lM*HODDEF (void) 

ptfe_process_.data ( j_compress_ptr cinfo, 
%l JSAMPARRAY inputjDuf, JDIMENSION *xn_row_ctr, 

JDIMENSION in__rows_avail , 
LJ JSAMPIMAGE output_buf, JDIMENSION *out_row_group_ctr, 

fl JDIMENSION out_.row_groups_avail) 

r 

in.y_i>rep_ptr prep = {my_prep_ptr) cinfo->prep; 
int niamrowSr ci; 
JDIMENSION inrows? 
jpeg—Component_inf o * compptr; 

while (*in_row„ctr < in_rows_avail && 

*out_row_group_ctr < out_row_groups_avail) { 
/* Do color conversion to fill the conversion buffer. */ 
inrows = in_rows_avail - *in_row_ctr; 

numrows = cinfo->max„v_samp_factor - prep->next„buf_row; 
numrows ^ {int) MIN { (JDIMENSION) numrows, inrows); 
(*cinf o->cconvert->color_convert) (cinfo, input_buf + *in_row„ctr, 

prep->color_buf , 

(JDIMENSION) prep->next„buf_row, 

numrows) ; 
*in_row_ctr += ninnrows? 
prep->next_buf_row += numrows; 
prep->rows„to_go -= numrows; 

/* If at bottom of image, pad to fill the conversion buffer. */ 
if (prep->rows_to_go == 0 

prep->next_buf_row < cinf o->max__v_samp„f actor) { 

for (ci - 0; ci < cinf o->num_components ; ci++) { 
expand_bottom„edge (prep->color_buf [ci] , cinf o->image__width, 
prep->next„buf_row, cinf o->max_v_samp_f actor) ; 

} 

prep->next_bu£_row = cinf o->max_v_samp_f actor ; 

} 
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/* If we've filled the conversion buffer, empty it. */ 
if (prep->next_buf„row == cinfo->max_v_sainp_f actor) { 
(*cinf o->downsample->downsaraple) (cinfo, 

prep->color_buf , (O-DIMENSION) 0, 
output_buf , *out_row__group„ctr) ; 
prep->next_buf„row = 0; 
( *out_„row_group_ctr ) ++ ; 

} 

/* If at bottom of image, pad the output to a full iMCU height. 
* Note we assume the caller is providing a one-iMCU-height output bufferl 
*/ 

if (prep->rows_to_go == 0 && 
*out_row_group_ctr < out__row_groups_avail) { 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num„components; 
ci++, compptr++) { 
expand_bottom„edge (output_buf [ci] , 

compptr->width_in_blocks * DCTSIZE, 

( in t ) ( * ou t„r ow_group_c tr * c ompp t r - >v_s ainp_f a c t or ) , 
(int) {out__row_groups_avail * compptr->v„samp_f actor) ) ; 

} 

*out_row__group_ctr = out_row__groups_avai In- 
break; /* can exit outer loop without test */ 

} 

} 

} 



#ifdef CONTEXT_ROWS_SUPPORTED 

/* 

* Process some data in the context case. 

H 

MEfHODDEF{void) 

par«_process„context ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf , JDIMENSION *in_row_ctr, 
JDIMENSION in„rows_,avail, 

JSAMPIMAGE output_buf, JDIMENSION *out_row_group_ctr > 
.l' JDIMENSION out_row„groups_avail} 

--Ay_prep_ptr prep = (my__prep_j>tr) cinfo->prep; 
fant numrows, ci; 

^"'int buf_height = c info ->max_v_samp_.f actor * 3/ 
B JDIMENSION inrows ; 

Awhile (*out_row_group„ctr < out_row_groups_avail) { 
{J if (*in_row_ctr < in__rows_avail) { 

na /* Do color conversion to fill the conversion buffer. */ 

V'i inrows = in_rows_avail - *in_row_ctr; 

"''v; numrows = prep ->next_buf_s top - prep->next_buf_row; 

p numrows = (int) MIN( (JDIMENSION) numrows, inrows); 

(*cinf o->cconvert->color_convert) (cinfo, input_buf + *in„row_ctr, 

prep->color_buf , 

(JDIMENSION) prep->next_buf__row, 

numrows) ; 

/* Pad at top of image, if first time through */ 
if {prep->rows_to_go =^ cinf o->image_height) { 
for (ci =0; ci < cinf o->num„components ; ci++) { 
int row; 

for (row = 1; row <= cinf o->max_v_samp_f actor ; row++) { 
jcopy_sample_rows (prep->color_buf [ci] , 0 , 
prep->color_fouf [ci] , -row, 
1, cinf o->image__width) ; 

} 

} 

} 

*in_row_ctr += numrows; 
prep->next_buf_row += numrows; 
prep->rows_to_go -= numrows; 
} else { 

/* Return for more data, unless we are at the bottom of the image. */ 
if (prep->rows_to_go i= 0) 
break; 

/* When at bottom of image, pad to fill the conversion buffer. */ 
if (prep->next_buf_row < prep->next_buf_stop) { 
for (ci = 0; ci < cinf o->num_components; ci++) { 

expand_bottom_edge (prep->color_buf [ci] , cinf o->image_width, 
prep->next_buf_row, prep->next„buf„stop) ; 

} 

prep->next„buf_row prep->next_buf_stop; 
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} 

/* If we've gotten enough data, downsample a row group. */ 
if (prep->next_buf„row == prep ->next_buf_s top) { 
( * cinf o->downsainple->downsample ) ( cinf o , 
prep->color_buf , 

( JDIMENSION ) pr ep- > thi s_r ow_gr oup , 
output_buf , * out_row_gr oup_c tr ) ; 
( *out_row_group_ctr ) ++ ; 

/* Advance pointers with wraparound as necessary. / 

prep->this_row_group += cinf o->max_v__samp_f actor ; 

if (prep->this_row_group >= buf_height) 
prep->this_row_group = 0; 

if (prep->next_buf_row >= buf_height) 
prep->next_buf„row =0; , ^ ^ ^ 

prep->next_buf_stop = prep->next_buf_row + c info->max_v_samp_f actor; 

} 



^* Create the wrapped- around downsampling input buffer needed for context mode. 
*/ 

LOCAL (void) . ^ ^ 

create_context_buffer { j_conipress_ptr cmfo) 

my_prep_ptr prep = (my_prep_ptr) cinfo->prep; 
int rgroup_height = cinf o->max_v_sainp_f actor ; 
int ci, i; 

r==j;peg_coniponent__inf o * compptr; 
"3;SAMPARRAY true_buffer, f ake__buf f er ; 

m* Grab enough space for fake row pointers for all the components; 
1-:'* we need five row groups' worth of pointers for each component. 

"""Jake^uffer = (JSAMPARRAY) . 

{*cinfo->mem->alloc_small) ( ( j_coinmon_ptr) cmfo, crPOOL_IMAGE , 
{cinfo->num_components * 5 * rgroup_height) * 
J J SIZEOF { JSAMPROW) ) ; 

"^for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->n\im_coit^onents ; 
^ ci++, compptr++) { . ^ 

L.^ /* Allocate the actual buffer space (3 row groups) for this component. 

* We make the buffer wide enough to allow the downsampler to edge-expand 
O * horizontally within the buffer, if it so chooses. 

nl^ */ 

■ true„buffer = (*cinf o->mem->alloc_sarray) 

( ( j„common__ptr} cinfo, JPOOL_IMAGE, 
fli (JDIMENSION) {((long) compptr->width_in„blocks * DCTSIZE * 
Zl cinf o->max_h_samp_f actor) / compptr->h_samp_f actor) , 

(JDIMENSION) (3 * rgroup_height) ) ; . . ^ , ^ -, */ 

/* Copy true buffer row pointers into the middle of the fake row array / 
MEMCOPy{fake„buffer + rgroup_height, true_buffer, 

3 * rgroup_height * SIZEOF (JSAMPROW) ) ; 
/* Fill in the above and below wraparound pointers */ 
for (i = 0; i < rgroup^height ; i++) { 

fake__buffer[i3 = true_buf f er [2 * rgroup_height + i] ; 
fake„buf fer [4 * rgroup_height + i] = true_buf f er [i] ; 

prep->color_buf [ci] = fake„buffer + rgroup_height; 

fake„buffer 5 * rgroup_height ; /* point to space for next component / 

} 

} 

#endif /* CONTEXT_ROWS_SUP PORTED */ 



* Initialize preprocessing controller. 
*/ 

GLOBAL (void) _ J £ n i„ ^j: \ 

jinit„c^rep„controller ( j„compress_ptr cinfo, boolean need„full_buf £er) 

{ 

niy_prep_ptr prep; 
int ci; 

jpeg_component_info * compptr; 
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if (need_full_buf f er) /* safety check */ 

ERREXIT ( C info , JERR_BAD_BUFFER„MODE ) ; 

prep = {my_prep_ptr) 

(*cinf o->mem->alloc_sinall) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SI ZEOF(my__prep_contr oiler) ) ; 
cinfo->prep = (struct jpeg_c_prep_contr oiler *) prep; 
prep- >pub. star t_pass = start__passjprep; 

/* Allocate the color conversion buffer. 

* We make the buffer wide enough to allow the downsampler to edge- expand 

* horizontally within the buffer, if it so chooses. 
*/ 

if (cinfo->downsample->need_context_rows) { 

/* Set up to provide context rows */ 
#ifdef CONTEXT_ROWS_SUPPORTED 

prep->pub.pre _process_data = pre_process_context; 

create_context_jDuffer (cinfo) ; 
telse 

ERREXIT (cinfo, JERR__NOT_COMPILED) ; 
#endif 
} else { 

/* No context, just make it tall enough for one row group */ 
prep->pub.pre_process_data = pre_^rocess_data; 

for (ci = 0, corapptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 

prep->color_buf [ci] = (*cinf o->mem-> alio c„s array) 
( ( j_common_jptr) cinfo, JPOOL_IMAGE, 
{JDIMENSION) (((long) compptr->width_in_blocks * DCTSIZE * 
c info ->max_h„samp_f actor) / compptr->h_samp_f actor) , 
(JDIMENSION) cinf o->max_v„samp_factor) ; 

f ^ } 



/* 

* jcsample.c 

* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software, 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains downsampling routines, 
★ 

* Downsampling input data is counted in "row groups". A row group 

* is defined to be max„v_samp_f actor pixel rows of each component, 

* from which the downsampler produces v„samp_f actor sample rows. 

* A single row group is processed in each call to the downsampler module, 

* 

* The downsampler is responsible for edge -expansion of its output data 

* to fill an integral number of DCT blocks horizontally- The source buffer 

* may be modified if it is helpful for this purpose (the source buffer is 

* allocated wide enough to correspond to the desired output width) . 

* The caller (the prep controller) is responsible for vertical padding. 
* 

* The downsampler may request "context rows" by setting need_context_rows 

* during startup. In this case, the input arrays will contain at least 

* one row group's worth of pixels above and below the passed-in data; 

* the caller will create dummy rows at image top and bottom by replicating 

* the first or last real pixel row. 
* 

* An excellent reference for image resampling is 

* Digital Image Wairping, George Wolberg, 1990. 

* Pub. by IEEE Computer Society Press, Los Alamitos, CA. ISBN 0-8186-8944-7. 

* 

* The downsampling algorithm used here is a simple average of the source 
f^ipixels covered by the output pixel. The hi-falutin sampling literature 

refers to this as a "box filter". In general the characteristics of a box 
iJfilter are not very good, but for the specific cases we normally use (1:1 
f^fand 2:1 ratios) the box is equivalent to a "triangle filter" which is not 
^i:Inearly so bad* If you intend to use other sampling ratios, you'd be well 
^Jadvised to improve this code. 

simple input -smoothing capability is provided. This is mainly intended 
^ffor cleaning up color-dithered GIF input files (if you find it inadequate, 
f Jwe suggest using an external filtering program such as pnmconvol) . When 
fil enabled, each input pixel P is replaced by a weighted sum of itself and its 

eight neighbors. P's weight is 1-8*SF and each neighbor's weight is SF, 

where SF = {smoothing_f actor / 1024). 
a* L Currently, smoothing is only supported for 2h2v sampling factors. 

N 

fiffine JPEG_INTERNALS 
#anclude " j inc lude . h " 
#jLfaclude *'jpeglib.h" 

/*"^ Pointer to routine to downsample a single component */ 
typedef JMETHOD (void, downsamplel_ptr , 

{ j_compress__ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) ) ; 

/* Private subobject */ 

typedef struct { 

struct jpeg_downs ampler pub; /* public fields */ 

/* Downsampling method pointers, one per component */ 
downsaraplel_ptr methods [MAX_COMPONENTS] ; 
} my_downsampler; 

typedef my_downsampler * my__downsample jtr ; 



/* 

* Initialize for a downsampling pass. 

*/ 

METHODDEF{void) 

start_pass_downsample { j_compress__ptr cinfo) 
{ 

/* no work for now */ 

} 
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* Expand a component horizontally from width input_cols to width output_cols, 

* by duplicating the rightmost samples. 
*/ 

LOCAL (void) 

expander ight_edge (JSAMPARRAY image_data, mt num_rows, 

JDIMENSION input_cols, JDIMENSION output_cols) 

{ 

register JSAMPROW ptr; 
register JSAMPLE pixval; 
register int count; 
int row; 

int numcols = (int) (output_cols - input_cols) ; 

if (numcols > 0) { 

for (row = 0; row < num__rows; row++) { 
ptr = image_data[row] + input_cols; 

pixval = ptr [-11; /* don't need GETJSAMPLEO here */ 

for (count = numcols; count > 0; count — ) 
*ptr++ - pixval; 
} 

} 

} 



/* 

* Do downsampling for a whole row group {all components) . 

* In this version we simply downsample each component independently. 
*/ 



ME^iHODDEF(void) 

s^_downsample ( j__compress_ptr cinfo, ^ 

JSAMPIMAGE input_buf, JDIMENSION in_row_index, 
JSAMPIMAGE output_buf , JDIMENSION out„row„group_index) 

^W_downsample_ptr downsample = (my_downsample_ptr ) cinfo->downs ample; 
xnt ci; 

■'™|peg_component_inf o * compptr; 
.rJSAMPARRAY injtr, out_ptr; 

^"'£or (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 

ci++, compptr++) { 
... in_ptr = input_buf [ci] + in_row„index ; 

out_:ptr = outputjouf [ci] + (out_row_group_index * compptr->v_samp_f actor) ; 
Ci (*downsample->methods[ci] ) (cinfo, compptr, in_ptr, out_j3tr) ; 

Downsample pixel values of a single component. 

* One row group is processed per call. ^ . n. ^ ^-u- 

* This version handles arbitrary integral sampling ratios, without smoothing. 

* Note that this version is not actually used for customary sampling ratios. 

*/ 

METHODDEF(void) . ^ 4. 

int^downsample ( j„compress^tr cinfo, Dpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

^ int inrow, outrow, h_expand, v_expand, niimpix, n\impix2 , h, v; 
JDIMENSION outcol, outcol_h; /* outcol_h == outcol*h_expand */ 
JDIMENSION output_cols = compptr- >width„in_blocks * DCTSIZE; 
JSAMPROW inptr, outptr; 
INT32 outvalue; 

h_expand = cinf o->max_h_samp_f actor / compptr- >h_samp_f actor ; 
v_expand = cinf o->max_v_samp„f actor / compptr->v_samp_f actor ; 
numpix = h_expand * v_expand; 
numpix2 = numpix/ 2; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 

*/ 

expand_r ight_edge ( input_da ta , c inf o - >max_v_s amp_f ac tor , 
cinfo->image_width, output_cols * h„expand) ; 
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inrow = 0; 

for (outrow = 0; outrow < coinpptr->v_samp_f actor ; outrow++) { 
outptr = output_data [outrow] ; 

for (outcol = 0, outcol_h = 0; outcol < output_cols; 
outcol++, outcol Ji += h_expand) { 
outvalue = 0; 

for (v = 0; V < v__expand; v++) { 
inptr = input_data[inrow+v] + outcol_h; 
for (h = 0; h < h„expand; h++) { 

outvalue += (IWT32) GET JSAMPLE (* inptr ++) ; 

} 

} 

*outptr++ = (JSAMPLE) ({outvalue + numpix2) / nuinpix) ; 

} 

inrow += v_expand; 

} 

} 



/* 

* Downsample pixel values of a single component. 

* This version handles the special case of a full-size component, 

* without smoothing. 
*/ 

METHODDEF(void) 

ful Is ize_downs ample ( j_compress_ptr cinfo, jpeg„coraponent_inf o * compptr, 
JSAMP ARRAY input_data, JSAMPARRAY output_data) 

{ 

/* Copy the data */ 

j copy_sampl e_r ows ( input_data , 0 , outpu t_data , 0 , 

cinfo->max_v„samp_factor, cinfo ->image_.width) ; 
"I* Edge -expand */ 

^--'-^xpand__r ight_edge { output_data , cinfo->max_v_samp__f actor , 

O'l cinf o->image„width, conipptr->width_in_blocks * DCTSIZE) ; 

/^^ 

Downsample pixel values o£ a single component. 
3 This version handles the common case of 2:1 horizontal and 1:1 vertical, 
f^ii without smoothing. 

A note about the "bias" calculations: when rounding fractional values to 
i*:, integer, we do not want to always round 0.5 up to the next integer, 
i*-, If we did that, we'd introduce a noticeable bias towards larger values. 

Instead, this code is arranged so that 0.5 will be rounded up or dovm at 
Wl alternate pixel locations (a simple ordered dither pattern) . 

:*;/ 

I®rHODDEF(void) 

l^Ldowns ample ( j_compress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output„data) 

{ 

int outrow? 
JDIMENSION outcol? 

JDIMENSION output_cols = compptr->width_in_blocks * DCTSIZE; 
register JSAMPROW inptr, outptr; 
register int bias; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 

*/ 

expand_.r ight_edge { input_data , c info - >max_v_samp_f actor , 
cinf o->image_width, output_cols * 2) ; 

for {outrow - 0; outrow < compptr->v„samp_f actor ; outrow++) { 
outptr = output_data [outrow] ; 
inptr = input__data [ outrow] ; 

bias =0; /* bias ~ 0,1,0,1,... for successive samples */ 

for {outcol = 0; outcol < output_cols; outcol++) { 

*outptr-(-+ = (JSAMPLE) ( (GET JSAMPLE (* inptr ) + GET JSAMPLE ( inptr [ 1 ] ) 
+ bias) » 1) ; 

bias 1; /* 0=>1, 1=>0 */ 

inptr +- 2; 

} 

} 

} 
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* Downsample pixel values of a single component. 

* This version handles the standard case of 2 : 1 horizontal and 2:1 vertical, 

* without smoothing. 

*/ 

METHODDEF(voad) 

h2v2_downs ample ( j ..compress jtr cinfo, jpeg__component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPAHRAY output„data) 

{ 

int inrow, outrow; 
JDIMENSION OUtCOl; 

JDIMENSION output_cols = compptr->width__in_blocks * DCTSIZE; 
register JSAMPROW inptrO, inptrl, outptr; 
register int bias; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 

*/ 

expand„right„edge ( input_data , cinfo->max_v_samp_f actor , 
cinf o->image_width, output_cols * 2); 

inrow = 0; 

for (outrow = 0; outrow < compptr->v_sarap_f actor; outrow++) { 
outptr = output_data [outrow] ; 
inptrO = input_data [ inrow] ; 
inptrl = input„data[inrow+l] ; 

bias =1; /* bias = 1,2,1,2,... for successive samples */ 

for (outcol = 0; outcol < output„cols; outcol++) { 
:™ *outptr++ = (JSAMPLE) ( (GETJSAMPLE ( *inptrO ) + GET JSAMPLE ( inptr 0 [ 1 ]) + 
':f GETJSAMPLE (* inptrl) + GET JSAMPLE { inptrl t 1 ] ) 

'^J^ + bias) » 2) ; 

bias ^=3; /* 1=>2, 2=>1 */ 

inptrO += 2; inptrl += 2; 

} 

'=^4 inrow += 2; 

fiidef INPUT_SMOOTHING_SUPPORTED 

Ml 

Downsample pixel values of a single component. 

This version handles the standard case of 2:1 horizontal and 2;1 vertical, 
r*;; with smoothing. One row of context is required. 

l^HODDEF (void) 

l:^S^2_smooth_downs ample ( j_compress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY output_data) 

{ 

int inrow, outrow; 
JDIMENSION colctr; 

JDIMENSION output_cols = compptr- >width_in_blocks * DCTSIZE; 
register JSAMPROW inptrO, inptrl, above_ptr, below_ptr, outptr; 
INT32 membersum, neighsum, memberscale, neighscale; 

/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient, 

*/ 

expand_r i gh t_edge ( input_dat a - 1, cinfo - >max_v_s amp_f ac t o r + 2 , 
cinfo->image_width, output__cols * 2); 

/* We don't bother to form the individual "smoothed" input pixel values; 

* we can directly compute the output which is the average of the four 

* smoothed values. Each of the four member pixels contributes a fraction 

* (1-8*SF) to its own smoothed image and a fraction SF to each of the three 

* other smoothed pixels, therefore a total fraction {l-5*SF}/4 to the final 

* output. The four corner-adjacent neighbor pixels contribute a fraction 

* SF to just one smoothed pixel, or SF/4 to the final output; while the 

* eight edge-adjacent neighbors contribute SF to each of two smoothed 

* pixels, or SF/2 overall. In order to use integer arithmetic, these 

* factors are scaled by 2^16 = 65536. 

* Also recall that SF = smoothing_f actor / 1024. 
*/ 



4 



memberscale = 16384 - cinfo->smoothing_f actor * 80; /* scaled {l-5*SF)/4 */ 
neighscale = cinfo->smoothing„f actor * 16; /* scaled SF/4 */ 

inrow = 0; 

for (outrow - 0; outrow < compptr->v_sainp_f actor; outrow++) { 
outptr = output„data [outrow] ; 
inptrO = input_data [ inrow] ; 
inptrl = input_dataEinrow+l] ; 
above_ptr = input__data[inrow-l] ; 
below__ptr = input_data [inrow+2] ; 

/* Special case for first column; pretend column -1 is same as column 0 */ 
membersum = GETJSAMPLE(*inptrO) + GETJSAMPLE (inptrO [1] ) + 

GET JSAMPLE(* inptrl) + GETJSAMPLE (inptrl [1] ) ; 
neiglisum = GETJSAMPLE (*above_^tr) + GETJSAMPLE (above_ptr [1] ) + 

GETJSAMPLE ( *below__ptr ) + GETJSAMPLE {below_ptr [ 1] ) + 

GETJSAMPLE {* inptrO) + GETJSAMPLE (inptrO [2 ] ) + 

GETJSAMPLE ( *inptr 1 } + GETJSAMPLE { inptrl [ 2 ] } ; 
neighsum += neiglisum? 

neiglisum += GETJSAMPLE {*above_j>tr) + GETJSAMPLE ( above_ptr [ 2 ] ) + 

GETJSAMPLE ( *below_^tr ) + GETJSAMPLE {below_ptr [2 ] ) ; 
membersum = membersum * memberscale + neighsum * neighscale; 
*outptr++ = (JSAMPLE) ((membersum + 32768) » 16); 
inptrO += 2; inptrl += 2; above_ptr 2; below_ptr += 2; 

for (colctr = output_cols - 2; colctr > 0; colctr — ) { 

/* sum of pixels directly mapped to this output element */ 
membersiim = GET JSAMPLE (* inptrO ) + GETJSAMPLE (inptrO [1 ] ) + 

GETJSAMPLE ( *inptrl ) + GETJSAMPLE ( inptrl [ 1 ] ) ; 
/* sum of edge-neighbor pixels */ 

neighsum = GETJSAMPLE ( *above_^tr) + GET JSAMPLE ( above_ptr [ 1 ] ) + 
J GETJSAMPLE {*below_ptr) + GETJSAMPLE {be low_ptr (1] ) + 

"-k GETJSAMPLE { inptrO [ -1 j ) + GETJSAMPLE ( inptrO [ 2 ] ) + 

GETJSAMPLE (inptrl [-1] ) + GETJSAMPLE (inptrl [2] ) ; 
/* The edge -neighbors count twice as much as corner -neighbors */ 
neighsum += neighsum; 
rt /* Add in the corner -neighbors */ 

neighsum += GETJSAMPLE (above_ptr [-1] ) + GET JSAMPLE ( above_ptr [ 2 3 ) + 

GETJSAMPLE (below_ptr [ -1 j ) + GETJSAMPLE (below_ptr [2] } ; 
/* form final output scaled up by 2-^16 */ 

membersum = membersum * memberscale + neighsum * neighscale; 
V:\ /* round, descale and output it */ 

*outptr++ - (JSAMPLE) ({membersum -h 32768) » 16); 
inptrO += 2; inptrl += 2; above_ptr += 2; below_ptr += 2; 

H } 

z^'. /* Special case for last column */ 

l^i^ membersum = GET JSAMPLE (* inptrO ) + GETJSAMPLE (inptrO [1] ) + 
\: GETJSAMPLE (*inptrl) + GETJSAMPLE (inptrl [1] ) ; 

neighsum = GETJSAMPLE (* above jtr) + GETJSAMPLE (above_ptr[l] ) + 
GETJSAMPLE (*below_ptr) + GETJSAMPLE (below_ptr [1] ) + 
ri GETJSAMPLE { inptrO [-1] ) + GETJSAMPLE ( inptrO [ 1 ] ) + 

GETJSAMPLE { inptrl [ -1 ] ) + GETJSAMPLE (inptrl [1] ) ; 
neighsum += neighsum; 

neighsum += GETJSAMPLE (above_ptr [-1] ) + GETJSAMPLE (above_ptr[l] } + 

GETJSAMPLE (below_ptr l-l] ) + GETJSAMPLE (below_ptr [1] ) ; 
membersum = membersum * memberscale + neighsum * neighscale; 
*outptr = (JSAMPLE) ((membersum + 32768) » 16); 

inrow += 2; 

} 

} 



/* 

* Downsample pixel values of a single component. 

* This version handles the special case of a full-size component, 

* with smoothing. One row of context is required. 

*/ 

METHODDEF(void) 

fullsize_smooth__downsample ( j_compress_ptr cinfo, jpeg_component_inf o *compptr, 
JSAMPARRAY input_data, JSAMPARKAY output„data) 

{ 

int outrow; 
JDIMENSION colctr; 

JDIMENSION output_cols = compptr->width_in_bloc]cs * DCTSIZE; 
register JSAMPROW inptr, above _ptr, below_ptr, outptr; 
INT32 membersum, neighsum, memberscale, neighscale; 
int colsum, lastcolsum, nextcolsum; 
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/* Expand input data enough to let all the output samples be generated 

* by the standard loop. Special-casing padded output would be more 

* efficient. 
*/ 

expand_right„edge (input_data - 1, cinfo->max„v_sair^)_f actor + 1, 
cinf o->image_width, output_cols) ; 

/* Each of the eight neighbor pixels contributes a fraction SF to the 

* smoothed pixel, while the main pixel contributes (1-8*SF) . In order 

* to use integer arithmetic, these factors are multiplied by 2^16 = 65536. 

* Also recall that SF = smoothing_f actor / 1024. 
*/ 

memberscale = 65536Ir - cinfo->smoothing_f actor * 512L; /* scaled 1-8*SF */ 
neighscale = cinfo->smoothing_f actor * 64; /* scaled SF */ 

for <outrow = 0; outrow < compptr->v_sarap_f actor; outrow++) { 
outptr = output„data[ outrow] ; 
inptr = input_data [outrow] ; 
above_ptr = input_data [outrow-1] ; 
below_ptr = input_data [outrow+l] ; 

/* Special case for first column */ 

colsum = GETJSAMPLE(*above_ptr++) + GETJSAMPLE {*foelow_ptr++ ) + 

GETJSAMPLE{* inptr) ; 
mexnbersum = GETJSAMPLE (* inptr ++) ; 

nextcolsum = GETJSAMPLE (*above^tr} + GETJSAMPLE (*below_ptr) + 

GETJSAMPLE ( * inptr ) ; 
neighsum = colsum + (colsum - membersum) + nextcolsum; 
membersum = membersum * memberscale + neighsiim * neighscale; 
p *outptr++ = (JSAMPLE) { {membersum + 32768) » 16); 
lastcolsum = colsum; colsum = nextcolsum; 

E|l for {colctr = output_cols - 2; colctr > 0; colctr — ) { 

member Slim = GETJSAMPLE (*inptr++) ; 

above^tr++; below_^tr++; 
""'^J nextcolsum = GETJSAMPLE {*above_j)tr) + GETJSAMPLE (* be low_^tr) + 
GETJSAMPLE ( * inptr ) ; 

neighsum = lastcolsum + (colsum - membersum) + nextcolsum; 
^li membersum = membersum * memberscale + neighsum * neighscale; 
flj *outptr++ - (JSAMPLE) ((membersum + 32768) » 16); 

lastcolsum = colsum; colsum = nextcolsum; 

f. } 

p.;, /* Special case for last column */ 

membersum = GETJSAMPLE (* inptr ) ; 
HJ neighsum = lastcolsum + (colsum - membersum) +- colsum; 
%l membersum = membersum * memberscale + neighsum * neighscale; 

*outptr = (JSAMPLE) ((membersum + 32768) » 16); 



#endif /* INPUT_SMOOTHING_SUPPORTED */ 



/* 

* Module initialization routine for downsampling. 

* Note that we must select a routine for each component. 

*/ 

GLOBAL (void) 

jinit_downs ampler ( j_compress_ptr cinfo) 

{ 

itiy_downs amp 1 e j t r downsamp 1 e ; 
int ci; 

jpe^— component_inf o * corapptr; 
boolean smoothok = TRUE; 

downsample = (my_downsample_ptr) 

{*cinfo->mem->alloc_small) ( { j_common_ptr) cinfo, JPOOL_IMAGE, 
S I 2E0F(my_downs ampler) ) ; 
cinf o->downsample = (struct jpeg_downs ampler *) downsample; 
downsaraple->pub.start_pass = start_pass_downsample; 
downs ample->pub. downsample = sep_downsample; 
downs amp le->pub.need_context_rows = FALSE; 

if (cinf o->CCIR601_sampling) 

ERREXIT( cinfo, JERR_CCIR601_„NOTIMPL) ; 
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/* Verify we can handle the sampling factors, and set up method pointers */ 
for (ci = 0, compptr = cinf o->comp„inf o; ci < cinf o->nuin_coinponents; 
ci++, compptr ++) { 
if (compptr->h_samp„f actor == cinf o->max_h_samp_f actor 
compptr- >v__samp„f actor == cinf o->max_v_samp_f actor) { 
#ifdef INPUT_SMOOTHING_SUPPORTED 

if (cinfo->sraoothing_f actor) { 
downsample->methods [ci] = full si ze_smooth_downs ample; 
downsample->pub.need_context„rows = TRUE; 
} else 

#endif 

downsample->methods [ci] = fullsize_downsample; 

} else if (compptr->h_samp__f actor * 2 == cinf o->max_h_samp„f actor && 
compptr->v_samp_f actor == cinf o->max_v_samp_f actor) { 
smoothok = FALSE; 

downsample->methods [ci] = h2vl_downsample; 
} else if {compptr->h_samp_f actor * 2 == cinf o->max_h„samp_f actor && 
compptr ->v_samp_f actor * 2 == cinf o->max_v_samp_f actor) { 
#ifdef INPUT_SMOOTHING_SUPPORTED 

if (cinf o->sraoothing_f actor) { 
downsample->methods [ci] = h2v2_smooth_downsample; 
downs ample->pub.need_context_rows = TRUE; 
} else 

#endif 

downsample->methods [ci] - h2v2_downsample; 

} else if ( (cinf o->max_h„samp„f actor % compptr- >h_samp_f actor) == 0 
(cinfo->max„v„samp„f actor % compptr ->v_samp_f actor) ==0) { 
smoothok = FALSE; 

downsample->methods [ci] = int_downsample; 
} else 

O ERREXIT(cinfo, JERR_FRACT_SAMPLEJN[OTIMPL) ; 

s 

#iidef INPUT_SMOOTHING_SUPPORTED 
qXt (cinf o->smoothing_f actor && 1 smoothok) 
TRACEMS(cinfo, 0, JTRC_SMO0TH_N0TIMPL) ; 
#^dif 



* jctrans.c 
* 

* Copyright (C) 1995-1998. Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains library routines for transcoding compression, 

* that is, writing raw DOT coefficient arrays to an output JPEG file. 

* The routines in jcapimin.c will also be needed by a trans coder. 
*/ 

#define JPEG_INTEKNALS 
# include *^ j include, h" 
#include " jpeglib.h** 



/* Forward declarations */ 

LOCAL (void) transencode_master_s election 

JPP( (j„compress_ptr cinfo, jvirt_barray_ptr * coef^arrays) } ; 
LOCAL (void) transencode_coef ^controller 

JPP ( ( j_compress_ptr cinfo, jvirt_barray_jptr * coef_„arrays} ) ; 



/* 

* Compression initialization for writing raw-coefficient data. 

* Before calling this, all parameters and a data destination must be set up. 

* Call jpeg_f inish_compress 0 to actually write the data. 
* 

* The number of passed virtual arrays must match cinf o->num„components . 

* Note that the virtual arrays need not be filled or even realized at 
Qthe time write_coef f icients is called; indeed, if the virtual arrays 
^^ere requested from this compression object's memory manager, they 
'^^^typically will be realized during this routine and filled afterwards. 
^1 

Gpe^BAL(void) 

jMg_write_coef f icients (j_compress_ptr cinfo, jvirt„barray_ptr * coef_arrays) 
^^If (cinfo->global_state 1= CSTATE_START) 

VLI ERREXITl {cinfo, JERR_BAD_STATE , cinf o->globai__state) ; 
111* Mark all tables to be written */ 
'jpeg_suppress_tables (cinfo, FALSE) ; 

/* (Re) initialize error mgr and destination modules */ 
l~K*cinf o->err->reset_error_mgr} ( ( j„coramon_j)tr) cinfo) ; 

*cinf o->dest->init_destination) (cinfo) ; 

* Perform master selection of active modules */ 
n;transencode_raaster_se lection (cinfo, coef_arrays) ; 
%J* Wait for jpeg_f inish_compress 0 call */ 
™;,ibinfo->next„scanline = 0; /* so jpeg_write_marker works */ 
L;iinfo->global_state = CSTATE_WRCOEFS ; 

€1 



/* 

* Initialize the compression object with default parameters, 

* then copy from the source object all parameters needed for lossless 

* transcoding. Parameters that can be varied without loss (such as 

* scan script and Huffman optimization) are left in their default states. 

*/ 

GLOBAL (void) 

jpeg„copy„critical_parameters ( j„decorapress_ptr srcinfo, 
j_compress_ptr dstinfo) 

{ 

JQUANT_TBL ** qtblptr; 
jpeg_component_info *incomp, *outcomp; 
JQUANT_TBL *c__quant, *slot_quant; 
int tblno, ci, coefi; 

/* Safety check to ensure start_compress not called yet. */ 
if (dstinfo->global„state 1= CSTATE_START) 

ERREXITl (dstinfo, JERR_BAD_STATE , dstinf o->global_state) ; 
/* Copy fundajtientai image dimensions */ 
dstinfo ->image_width = srcinf o->image_width; 
dstinf o->image_height = srcinf o->image_height; 
dstinf o->input__components = srcinf o->num„components; 
dstinf o->in_color_space = srcinf o->jpeg_color_space; 
/* Initialize all parameters to default values */ 
jpeg_set_defaults (dstinfo) ; 
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/* jpeg_set„defaults may choose wrong colorspace, eg YCbCr if input is RGB. 

* Fix it to get the right header markers for the image colorspace. 
*/ 

jpeg_set„colorspace{dstinfo, srcinfo-> jpeg_color_space) ; 
dstinf o->data^recision = srcinf o->data ^precision; 
dstinfo->CCIR601_sampling = srcinf o->CCIR601_sampling; 
/* Copy the source's quantization tables, */ 
for (tblno = 0; tblno < NUM_QUANT_TBLS / tblno++) { 
if (srcinfo->quant_tbl_i3trs [tblno] != NULL) { 
qtblptr = & dstinf o->quant_tbl _ptrs [tblno] ; 
if (*qtblptr == NULL) 
*qtblptr = jpeg_alloc„quant_table ( { j„coinmon_ptr) dstinf o) ? 
MEMCOPY ( ( *qtblptr ) ->quantval , 

srcinfo->quant_tbl_ptrs [tblno] ->quantval, 
SI2E0F( (*qtblptr) ->quantval) ) ; 
(*qtblptr)->sent_tatale = FALSE; 

} 

} 

/* Copy the source's per-component info. 

* Note we assume jpeg_set_de faults has allocated the dest comp_info array. 
*/ 

dstinf o->num„components = srcinf o->nvim_components? 

if {dstinf o->num_components < 1 1 1 dstinf o->num_components > MAX_COMPONENTS} 
ERREXIT2 (dstinf o, JERR_.COMPONEIsrr_COUHT , dstinf o->num„components. 
MAX_COMPONEWTS) ; 

for {ci = 0, incomp = srcinf o->comp_inf o, outcomp = dstinf o->comp_info; 
ci < dstinf o->num_components; ci++, incomp++, outcomp++) { 
outcomp->component_id = incomp ->component_id ; 
outcorap->h_samp_f actor = incomp - >h__s amp_f actor ; 
outcomp->v_samp_„f actor = incomp->v_samp_f actor ; 
outcomp->quant„tbl„no = incomp->quant_tbl_no; 
Q /* Make sure saved quantization table for component matches the qtable 

* slot. If not, the input file re-used this qtable slot. 
:ff * IJG encoder currently cannot duplicate this. 

m */ 

J\ tblno = outcomp->quant_tbl_no; 
" if (tblno < 0 1 I tblno >= KUM_QUANT__TBLS | | 
'''i srcinfo->quant_tbl_ptrs [tblno] NULL) 
y:| ERREXITl (dstinf o, JERRJ^JO_QUANT_TABLE ; tblno); 

slot„quant = srcinfo->quant_tbl_ptrs [tblno] ; 

c_quant = incomp->quant__table; 
|1J if (c_quant != NULL) { 

^ for (coefi = 0; coefi < DCTSIZE2; coefi++) { 

if (c_quant->quantval [coefi] != slot_quant->quantval [coefi] ) 
t^^ ERREXITKdStinfo, JERR_MISHATCHED_QUANT„TABLE, tblno); 

n } 

5t ) 

riris /* Note: we do not copy the source's Huffman table assignments; 

^-^J * instead we rely on jpeg_set_colorspace to have made a suitable choice. 

.4 */ 

£j/* Also copy JFIF version and resolution information, if available. 

* Strictly speaking this isn't "critical" info, but it's nearly 

* always appropriate to copy it if available. In particular, 

* if the application chooses to copy JFIF 1.02 extension markers from 

* the source file, we need to copy the version to make sure we don't 

* emit a file that has 1.02 extensions but a claimed version of 1.01. 

* We will *not*r however, copy version info from mislabeled "2.01" files. 
*/ 

if (srcinf o->saw_JFIF_marker) { 

if (srcinf o->JFIF„major_.version -= 1) { 

dstinf o->JFIF_ma jor_ver si on = srcinf o->JFIF_jtiajor_version; 
dstinf o->JFIF_minor_version - srcinf o->JFIF_jninor_version; 

} 

dstinf o->density_unit = srcinf o->density_unit; 
dstinf o->X_density = srcinf o->X_density ; 
dstinf o->Y_density = srcinf o->Y_density; 

} 

} 



* Master selection of compression modules for transcoding. 

* This substitutes for jcinit.c's initialization of the full compressor. 

LOCAL (void) 

trans encode_master„select ion ( j_compress_ptr cinfo, 
jvirt__barray_ptr * coef„arrays) 

{ 
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/* Although we don't actually use input_components for transcoding, 

* jcmaster , c 's initial_setup will complain if input„components is 0. 

*/ 

cinf o->input„components = 1; 

/* Initialize master control (includes parameter checking/processing) */ 
jinit„c_master„control (cinf o, TRUE /* transcode only */); 

/* Entropy encoding: either Huffman or arithmetic coding. */ 
if (cinf o->arith_code) { 

ERREXIT ( cinf o , JERR_ARITHJSIOTIMPL ) ; 
} else { 

if (cinfo->progressive_inode) { 
#ifdef C_PROGRESSIVE_SUPPORTED 

jinit_phuf f„encoder (cinf o) ; 

#else 

ERREXIT { cinf o , JERR_NOT_COMPILED) ; 

#endif 

} else 

jinit„huf f_encoder (cinf o) ; 

} 

/* We need a special coefficient buffer controller. */ 
trans encode_coef_contr oiler (cinf o, coef_arrays) ; 

j i nit„inarker„wr iter (cinf o) ; 

/* We can now tell the memory manager to allocate virtual arrays, */ 
(*cinf o->mem->realize_virt_arrays) ( ( j_coinmon_ptr} cinfo) ; 

/* Write the datastream header (SOI, JFIF) immediately. 

* Frame and scan headers are postponed till later. 

fi:* This lets application insert special markers after the SOI. 

j|*cinf o->marker->write_f ile_header) (cinfo) ; 

M 

,|=i;The rest of this file is a special implementation of the coefficient 
*J buffer controller. This is similar to jccoefct.c, but it handles only 
iJ output from presupplied virtual arrays. Furthermore, we generate any 
f^|5;d\iinmy padding blocks on-the-fly rather than expecting them to be present 
in the arrays , 

^/ 

/f'^^-^ Private buffer controller object */ 
tfsrpedef struct { 

^-^.ptruct jpeg_c_coef_controller pub; /* public fields */ 

C&DIMENSXON iMCU_row_num; /* iMCU row # within image */ 
rxTDIMENSION mcu_ctr; /* counts MC0s processed in current row */ 

"^"int MCU_vert_of f set; /* counts MCU rows within iMCU row */ 

int MCU_rows^er_iMCU_„row; /* number of such rows needed */ 

/* Virtual block array for each component. */ 
jvirt„barray^tr * whole^image; 

/* Workspace for constructing dummy blocks at right/bottom edges. */ 
JBLiOCKROW dummy_buffer[C_MAX_BLOCKS_IN_MCU] ; 
} my„coef_contr oiler; 

typedef my„coef„controller * my„coef_ptr; 



LOCAL (void) 

start_iMCU_row ( j_compress__ptr cinfo) 

/* Reset within- iMCU- row counters for a new row */ 

{ 

my__coef_ptr coef = (my_coef_ptr) cinfo->coef; 

/* In an interleaved scan, an MCU row is the same as an iMCU row. 

* In a noninter leaved scan, an iMCU row has v__samp_f actor MCU rows. 

* But at the bottom of the image, process only what's left. 

*/ 

if (cinf o->comps_in_scan > 1) { 

coef->MCU_rows_:per_iMCU_row = 1; 
} else { 

if {coef->iMCU_row_num < (cinfo->total_iMCU_rows-l} ) 

coef ->MCU„rows jer„iMCU_row = cinf o->cur_comp_inf o [ 0 ] ->v_samp_f actor ; 
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else 

coef->MCU_rows jper_iMCU_row = cinf o->cur_coinp_inf o [0] ->last_row_height ; 

} 

coef->mcu_ctr = 0; 
coef->MCU_vert_of fset = 0; 

} 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF{void) 

start_pass_coef ( j_compress_^tr cinfo, J_BUF_MODE pass^mode) 
{ 

in.y_coef_ptr coef - (iny_coef_ptr) cinfo->coef; 

if (pass_mode != JBUF_CRANK„DEST) 

ERREXIT ( C info , JERR_BAD_BUFFER_MODE ) ; 

coef->iMCU_row_num = 0; 
s tar t„iMCU_row(c info) ; 

} 



/* 

* Process some data. 

* We process the equivalent of one fully interleaved MCU row ("iMCU" row) 

* per call, ie, v_samp_f actor block rows for each component in the scan. 

* The data is obtained from the virtual arrays and fed to the entropy coder. 
?^iiReturns TRUE if the iMCU row is completed, FALSE if suspended. 

iJNB: input__buf is ignored; it is likely to be a NULL pointer. 
Mi#HODDEF (boolean) 

cbitipress„output { j_compress_j3tr cinfo, JSAMPIMAGE input_buf) 
'^;:|hy_coef_ptr coef = {my_coef_ptr) cinfo->coef; 

J'jDIMENSION MCU_col_num; /* index of current MCU within row */ 
fiiirDIMENSION last_MCU„col = cinf o->MCUs_per_row - 1; 
^'iirDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 

int blkn, ci, xindex, yindex, yoffset, blockcnt; 
LJDIMENSION Start_col; 

LjbLOCKARRAY buffer [MAX_C0MPS_IN_SCAN] ; 
^^ItbLOCKROW MCU„buffer[C_MAX_BLOCKS_IN„MCU] ; 
fllTBLOCKROW buffer_ptr; 
"i peg— c omponen t_inf o * c ompp t r ; 

O/* Align the virtual buffers for the components used in this scan. */ 
~-ior (ci =0; ci < cinf o->comps_in_scan; ci++) { 
"^"^ compptr = cinf o->cur_comp_inf o [ci] ; 

buffer [ci] = (*cinf o->mem->access_virt_barray) 

{ ( j_common_j)tr) cinfo, coef->whole_image [compptr->component_index] , 
coef->iMCU_row_num * c ompp tr->v_samp_f actor , 
(JDIMENSION) compptr->v„samp„f actor, FALSE) ; 

} 

/* Loop to process one whole iMCU row */ 

for (yoffset = coef->MCU_vert„of f set; yoffset < coef ->MCU_rows_per_iMCU_row 
yoffset++} { 

for (MCU_col„niam = coef ->mcu_ctr ; MCU_col_num < cinf o->MCUs_per_row; 
MCU_col_nuin+ + ) { 

/* Construct list of pointers to DCT blocks belonging to this MCU */ 
folkn = 0; /* index of current DCT block within MCU */ 

for (ci =0; ci < cinf o->comps_in„s can; ci++) { 
compptr = cinfo->cur_comp„info[ci] ; 
start_col = MCU__col_num * compptr ->MCU_width; 
blockcnt = (MCU_col__num < last_MCU„col) ? compptr->MCU_width 

: compptr->last„col_width; 
for (yindex = 0; yindex < compptr->MCU__height; yindex++) { 
if (coef->iMCU_row_num < last_iMCU_row 1 | 

yindex+yof f set < compptr->last_row__lieight) { 
/* Fill in pointers to real blocks in this row */ 
buffer_ptr = buffer [ci] [yindex+yof f set ] + start_col; 
for (xindex = 0; xindex < blockcnt; xindex+-h) 
MCU_buf fer Eblkn++] = buf f er_ptr++; 
} else { 

/* At bottom of image, need a whole row of dummy blocks */ 
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xindex = 0; 

) 

/* Fill in any dummy blocks needed in this row. 

* Dummy blocks are filled in the same way as in jccoefct.c: 

* all zeroes in the AC entries, DC entries equal to previous 

* block's DC value. The init routine has already zeroed the 

* AC entries, so we need only set the DC entries correctly. 
*/ 

for {; xindex < compptr->MCU__width; xindex++) { 
MCU_buf ferEblkn] = coef->dummy_buf f er [blkn] ; 
MCU_bufferCblkn] [0] [0] = MCU_buf f er [blkn-l] [0] [0] ; 
blkn-*"f ; 

} 

} 

} 

/* Try to write the MCU. */ 

if (J (*cinf o->entropy->encode_mcu) {cinfo, MCU_buf fer) ) { 
/* Suspension forced; update state counters and exit */ 
coef->MCU„vert„of f set = yoffset; 
coef->mcu_ctr = MCU_col„num; 
return FALSE; 

} 

} 

/* Completed an MCU row, but perhaps not an iMCU row */ 
coef->mcu_ctr = 0; 

} 

/* Completed the iMCU row, advance counters for next one */ 
c o e f - > iMCU_r ow_num+ + ; 
s tar t„iMCU„row(c info) ; 
return TRUE; 



/il 

flllnitialize coefficient buffer controller. 

* J" 

li^Each passed coefficient array must be the right size for that 
^Jcoef f icient : width_in_jDlocks wide and height„in_j3locks high, 
^-r^'with unitheight at least v_samp_factor . 

I^fAL(void) 

t^^sencode_coef_contr oiler ( j„compr€Ss_ptr cinfo, 
^- jvirt_barray_ptr * coef_arrays) 

k^jfiiy_coef_ptr coef; 
t-&BLOCKROW buffer; 

|1int i; 

'^'^^boef = {my_coef __ptr) 

D (*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 

SIZEOF (my_coef_controller) ) ; 
^•"binf o->coef = {struct jpeg_c_coef_controller *} coef; 

coef->pub.start_pass ~ start_pass_coef ; 

coef->pub. compress_data = compress_output; 



/* Save pointer to virtual arrays */ 
coef->whole__image = coef_arrays; 



/* Allocate and pre-zero space for diommy DCT blocks. */ 
buffer = (JBLOCKROW) 

(*cinf o->mem->alloc_large} { ( j_coiranon__ptr) cinfo, 0"POOL_IMAGE , 
C__MAX_BLOCKS_IN_MCU * SIZEOF ( JBLOCK) ) ? 
jzero_far( (void *) buffer, C__MAX_BLOCKS_IN„MCU * SIZEOF (JBLOCK) ) ; 
for (i = 0; i < C„MAX_BLOCKS_IN_MCU ; i++) { 

coef ->dummy_buf fer [i] = buffer + i; 

} 
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/* 

* jdapimin,c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains application interface code for the decompression half 

* of the JPEG library. These are the "minimum" API routines that may be 

* needed in either the normal full-decompression case or the 

* trans coding- only case. 
* 

* Most of the routines intended to be called directly by an application 

* are in this file or in jdapistd.c. But also see jcomapi.c for routines 

* shared by compression and decompression, and jdtrans.c for the transcoding 

* case. 

*/ 

#define JPEG_INTERNALS 
#include " j include, h" 
finclude "jpeglib.h" 



/* 

* Initialization of a JPEG decompression object. ^ x 

* The error manager must already be set up (in case memory manager fails) . 
*/ 

GLOBAL (void) . . . ^ ^ ^ • \ 

jpeg_CreateDecompress ( j_decompress jtr cinfo, mt version, size_t structsize) 

{ 

fint i; 

Guard against version mismatches between library and caller. */ 
%info->mem = NULL; /* so jpeg_destroy knows mem mgr not called */ 

'"if (version != JPEG__LIB_VERSION) . 

ERREXIT2 (cinfo, JERR_BAD_LIB_VERSION, JPEG_LIB_VERSION, version); 
%if (structsize != SIZEOF (struct jpeg_decompress_struct) ) 
- ERREXIT2 (cinfo, JERR_BAD_STRUCT_SIZE, ^ , 

'^^'^ (int) SIZEOF(struct jpeg„decompress„struct ) , (mt) structsize); 

^* For debugging purposes, we zero the whole master structure. 

^'^^* But the application has already set the err pointer, and may have set 

- * client_data, so we have to save and restore those fields. 

L^* Note: if application hasn't set client_data, tools like Purify may 

L.. * complain here. 

ni . ^ 

Struct jpeg_error__mgr * err = cinfo->err; -, . ^ i_ */ 

void * client_data = cinf o->client_data; /* ignore Purify complaint here */ 

O MEMZERO( cinfo, SIZEOF (struct jpeg_decompress_struct) ) ; 

f^^: cinfo->err = err; 

cinfo->client_data = client__data; 

} 

cinf o->is_decompressor = TRUE; 

/* Initialize a memory manager instance for this object */ 
jinit_memory_mgr { ( j_common_ptr) cinfo) ; 

/* Zero out pointers to permanent structures. */ 
cinf o->pr ogress = NULL; 
cinfo->src - NULL? 

for (i = 0; i < NUM_QUANT_TBLS ; i++) 
cinfo->quant_tbl_ptrs[i] = NULL; 

for (i = 0; i < NUM_HUFF_TBLS ; i++) { 
cinfo->dc_huf f_tbl_j>trs[i] = NULL; 
cinfo->ac_huff_tbl_ptrs[i] = NULL; 

} 

/* Initialize marker processor so application can override methods 
* for COM, APPn markers before calling jpeg_read_header . 
*/ 

cinfo->marker_list = NULL; 
jinit_marker_reader (cinf o) ; 

/* And initialize the overall input controller. */ 
jinit_input„contr oiler (cinfo) ; 
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/* OK, I'm ready */ 
cinfo->global_,state = DSTATE_START ; 

} 



/* 

* Destruction of a JPEG decompression object 
*/ 

GLOBAL (void) 

jpeg_destroy_decompress ( j_decompress_^tr cinfo) 
{ 

j peg— destroy ( (j__common_:ptr) cinfo); /* use coitimon routine */ 

} 



/* 

* Abort processing of a JPEG decompression operation, 

* but don't destroy the object itself. 
*/ 

GLOBAL (void) 

jpeg_abort_decompress ( j_decompress_ptr cinfo) 
{ 

jpeg_abort ( { j_common_ptr) cinfo); /* use common routine */ 

} 



/* 

* Set default decompression parameters. 
*/ 

LC^L{void) 

d^'lault_decompress_^arms ( j„decompress_ptr cinfo) 

im 

jl* Guess the input colorspace, and set output colorspace accordingly. */ 
'^/* (Wish JPEG committee had provided a real way to specify this...) */ 
%|* Note application may override our guesses. */ 
,r;switch (cinfo->num__components) { 

'=^^ase 1: 

%3 cinf o->jpeg_color_space = JCS_GRAYSCALE; 
fli cinf o~>out__color„space = JCS_GRAYSCALE ; 
' break; 

Lgase 3 : 

if (cinf o->saw_JFIF_marker) { 
'ff cinf o->jpeg_color„space = JCS_YCbCr; /* JFIF implies YCbCr */ 
nj } else if (cinfo->saw_J^dobejnarker) { 

switch (cinf o->Adobe_trans form) { 

case 0: 

L| cinf o->jpeg_color_space = JCS_RGB; 
f% break; 

case 1: 

cinfo->jpeg_color_space ^ JCS_YCbCr; 
break; 
default: 

WAKNMSl (cinfo, JWRN_ADOBE_XFORM, cinf o->Adobe_t rans form} ; 
cinf o->jpeg_color_space = JCS_YCbCr; /* assume it's YCbCr */ 
break; 
} 

} else { 

/* Saw no special markers, try to guess from the component IDs */ 
int cidO = cinfo->comp_inf o [0] .component_id; 
int cidl = cinf o->comp_ info [1] .component_id; 
int cid2 = cinf o->coinp_inf o [2] .component_id; 

if (cidO 1 && cidl == 2 cid2 === 3) 
cinfo ->jpeg_color_space = JCS_YCbCr; /* assume JFIF w/out marker */ 

else if (cidO == 82 cidl ~ 71 && cid2 ~= 66) 
cinfo->jpeg„color_space = JCS_RGB; /* ASCII 'R', 'G' , 'B' */ 

else { 

TRACEMS3 (cinfo, 1, JTRC_UNKNOWN_IDS , cidO, cidl, cid2) ; 
cinf o->jpeg_color_space = JCS_YCbCr; /* assume it's YCbCr */ 

} 

} 

/* Always guess RGB is proper output colorspace. */ 

cinf o->out_color_space = JCS_RGB; 

break; 

case 4: 
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if (cinfo->saw_Adobe_marker) { 

switch (cinf o->Adobe_transf orm) { 
case 0: 

cinf o->jpeg„color_space = JCS_CMYK; 
break; 
case 2: 

cinf o->jpeg_color_space = JCS_YCCK; 
breaks- 
default: 

WARNMSKcinfo, JWRN_ADOBE_XFORM, cinf o->Adobe_trans form) ; 
cinf o->jpeg„color„space = JCS_.ycCK; /* assume it's YCCK */ 
break; 
} 

} else { 

/* No special markers, assume straight CMYK. */ 
cinfo->jpeg_color_space = JCS„CMYK; 

} 

cinfo->out_color„space - JCS_CMYK; 
break; 

default: 

cinf o->jpeg_color_space - JCS„UNKNOWN; 
cinfo->out_color_space = JCS_UNKNO™; 
break; 

} 

/* Set defaults for other decompression parameters. */ 

cinfo->scale_num =1; /* 1:1 scaling */ 

cinfo->scale_denom = 1; 

cinfo->output_gamma = 1.0; 

cinfo->buf f ered_image = FALSE; 
f<3info->raw_data„out = FALSE; 
"'5Sinfo->dct__inethod = JDCT_DEFAULT ; 
¥^dinfo->do„fancy_upsarapling = TRUE; 
0§info->do__block_smoothing = TRUE; 
,"?Cinfo->quantize„colors = FALSE; 

We set these in case application only sets guanti2e_colors . */ 
^'==d^info->dither_mode = JDITHER_FS; 
#ifdef QUANT_2PASS„SUPPORTED 

"xinfo->two_pass„quantize = TRUE; 
#iise 

fieinf o->two_pass_quantize = FALSE; 
#'^ridif 

^ cinf o->desir ed_number_of_co lor s ~ 256; 
L3E;info->colormap = NULL; 

Initialize for no mode change in buffered- image mode. */ 
Jfcinf o->enable_lpass_quant = FALSE; 
|1i;info->enable_external_guant = FALSE; 
cinf o->enable_2pass_quant = FALSE; 

* Decompression startup: read start of JPEG datastream to see what's there. 

* Need only initialize JPEG object and supply a data source before calling. 
* 

* This routine will read as far as the first SOS marker (ie, actual start of 

* compressed data) , and will save all tables and parameters in the JPEG 

* object. It will also initialize the decompression parameters to default 

* values, and finally return JPEG_HEADER„OK . On return, the application may 

* adjust the decompression parameters and then call jpeg_start_decompress . 

* {Or, if the application only wanted to determine the image parameters, 

* the data need not be decompressed. In that case, call jpeg_abort or 

* jpeg_destroy to release any temporary space.) 

* If an abbreviated (tables only) datastream is presented, the routine will 

* return JPEG__HEADER_TABLES_ONLy upon reaching EOI , The application may then 

* re-use the JPEG object to read the abbreviated image datastream{s) . 

* It is unnecessary {but OK) to call jpeg_abort in this case. 

* The JPEG_SUSPENDED return code only occurs if the data source module 

* requests suspension of the decompressor. In this case the application 

* should load more source data and then re-call jpeg_read_header to resume 

* processing. 

* If a non- suspending data source is used and require_image is TRUE, then the 

* return code need not be inspected since only JPEG_HEADER__0K is possible. 
* 

* This routine is now just a front end to jpeg_consume_input, with some 

* extra error checking. 

*/ 

GLOBAL (int) 
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jpeg_read_header ( j_decompress_ptr cinfo, boolean reguire_iinage) 
{ 

int retcode; 

if (cinfo->global„state i= DSTATE„START 

cinfo~>global„state «= DSTATE_INHEADER) 
ERREXITKcinfo, JERR_BAD_STATE , cinfo->global„state) ; 

retcode = jpeg_constime_input (cinf o) ; 

switch {retcode) ( 
case JPEG__REACHED„SOS : 

retcode = JPEG_HEADER„OK ; 

break; 
case JPEG_REACHED_EOI : 

if {require„image) /* Complain if application wanted an image */ 

ERREXIT ( c inf O , JERR_NO_IMAGE ) ; 

/* Reset to start state; it would be safer to require the application to 

* call jpeg_abort, but we can't change it now for compatibility reasons. 

* A side effect is to free any temporary memory (there shouldn't be any). 
*/ 

jpeg_abort ( ( j_coramon_ptr) cinf o) ; /* sets state = DSTATE_START */ 
retcode = JPEG„HEADER_TABLES„ONLY ; 
break; 
case JPEG_SUSPENDED: 
/* no work */ 
break; 

} 

return retcode; 



i^' Consume data in advance of what the decompressor requires. 
'gj^This can be called at any time once the decompressor object has 
,*!been created and a data source has been set up, 

ifj This routine is essentially a state machine that handles a couple 
of critical state-transition actions, namely initial setup and 
transition from header scanning to ready- for- s tar t_decompres s . 

ffjAli the actual input is done via the input controller's consume„input 

„* method. 

l/ 

ai|)BAL(int) 

ip!eg_consume„input { j_decompress_j>tr cinfo) 
\jLnt retcode = JPEGLSUSPENDED; 

^fV* NB: every possible DSTATE value should be listed in this switch */ 
CIswitch (cinf o->global_state) { 
case DSTATE__START : 

/* Start-of-datastream actions: reset appropriate modules */ 

(*cinf o->inputctl->reset_input„controller) (cinfo) ; 

/* Initialize application's data source module */ 

(*cinf o->src->init_source) (cinfo) ; 

cinfo->global_state = DSTATE_XNHEADER; 

/*FALLTHROUGH*/ 
case DSTATE_INHEADER: 

retcode = (*cinf o->inputctl->consume_input ) (cinfo); 

if (retcode == JPEG_REACHED_SOS) { /* Found SOS, prepare to decompress */ 
/* Set up default parameters based on header data */ 
def ault„decompress_parms (cinf o) ; 

/* Set global state: ready for start„decompress */ 
cinf o~>global_st ate = DSTATE_READY ; 

} 

break; 
case DSTATE_READY: 

/* Can't advance past first SOS until start_decompress is called */ 

retcode = JPEG„REACHED„SOS; 

break; 
case DSTATE_PRELOAD : 
case DSTATE_,PRESCAN: 
case DSTATE_SCANNING^ 
case DSTATE_RAW„OK: 
case DSTATE_BUFIMAGE : 
case DSTATE_BUFPOST : 
case DSTATE^STOPPING: 

retcode = ( *cinf o->inputctl->consTime_input) (cinfo) ; 



4 



break; 
default: 

ERREXXTKcinfo, JERR_BAD„STATE , cinf o->global_state) ; 

} 

return retcode; 



/* 

* Have we finished reading the input file? 
*/ 

GLOBAL (boolean) 

jpeg_input_complete ( j_decoiupress„ptr cinfo) 
{ 

/* Check for valid jpeg object */ 
if (cinfo->global__state < DSTATE_START | | 
cinfo->global_state > DSTATE_STOPPING) 
ERREXITl (cinfo, JERR_BAD_STATE , cinfa->global„state} ; 
return cinf o->inputctl->eoi„reached; 

} 



/* 

* Is there more than one scan? 
*/ 

GLOBAL (boolean) 

jpeg_has_multiple_scans ( j_decoinpress_ptr cinfo) 

Only valid after jpeg_read_header completes */ 
.fif (cinfo->global_state < DSTATE_READY | 1 
™I cinfo->global„state > DSTATE_STOPPlNG) 

ERREXITl (cinfo, JERR_BAD_STATE , cinfo->global„state) ; 
^ii-eturn cinfo->inputctl->has_multiple_scans; 

Finish JPEG decompression. 

^* This will normally just verify the file trailer and release temp storage. 
* 

Returns FALSE if suspended. The return value need be inspected only if 
l3 a suspending data source is used. 

fly 

ckjbBAL (boolean) 

i|5ieg_-f inish_decompress ( j_decompress_ptr cinfo) 

^Sit ( (cinfo->global„state == DSTATE_SCANNING || 

cinfo->global_state == DSTATE_RAW_OK) ] cinf o->buf f ered_image) { 
/* Terminate final pass of non-buffered mode */ 
if (cinf o->output__scanline < cinf o->output_height) 

ERREXIT ( cinfo , JERR_TOO_LITTLE„DATA) ; 
(*cinf o->master->f inish„output_pass) (cinfo) ; 
cinfo->global_state - DSTATE_STOPPIKG; 
} else if (cinfo->global_state == DSTATE_BUFIMAGS ) { 
/* Finishing after a buffered- image operation */ 
cinfo->global_state = DSTATE„STOPPING; 
} else if (cinfo->global_state != DSTATE_STOPPING) { 

/* STOPPING = repeat call after a suspension, anything else is error */ 
ERREXITl (cinfo, JERR_BAD„STATE, cinf o->global„state) ; 

} 

/* Read until EOI */ 

while (! cinfo->inputctl->eoi„reached) { 

if { { *cinf o->inputctl->consume_input) (cinfo) == JPEG_SUSPENDED) 
return FALSE; /* Suspend, come back later */ 

} 

/* Do final cleanup */ 

( *cinf o->src->term„source) (cinfo) ; 

/* We can use jpeg_abort to release memory and reset global_state */ 
jpeg__abort ( { j_common_^tr) cinfo) ; 
return TRUE; 
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* jdapistd.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file 

* This file contains application interface code for the decompression half 

* of the JPEG library. These are the "standard" API routines that are 

* used in the normal full-decompression case. They are not used by a 

* trans coding -only application. Note that if an application links in 

* jpeg_start_decompress , it will end up linking in the entire decompressor 

* We thus must separate this file from jdapimin.c to avoid linking the 

* whole decompression library into a transcoder. 
*/ 

#define JPEG_INTERNALS 
# include " j include .h" 
# include "jpeglib.h" 



/* Forward declarations */ 

LOCAL (boolean) output_pass_setup JPP ( ( j^decompress jtr cinfo) ) ; 



/* 

* Decompression initialization - 

* jpeg_read_header must be completed before calling this. 
* 

* If a multipass operating mode was selected, this will do all but the 

* last pass, and thus may take a great deal of time. 

"^J. Returns FALSE if suspended. The return value need be inspected only if 
^f^-a suspending data source is used. 

ii 

g£6bAL (boolean) 

Di^g_start_decompress ( j_decompress_ptr cinfo) 

m 

Jif (cinfo->global_state == DSTATE„READY) { 

%S /* First call: initialize master control, select active modules */ 
pj jinit^aster_decompress (cinfo) ; 

if (cinfo->buf fered_image) { 

/* No more work here; expecting jpeg_start_output next */ 
1=:^: cinfo->global„state = DSTATE_BUF IMAGE ; 
P"; return TRUE; 

} 

HJ cinfo->global_state = DSTATE_PRELOAD; 

%a 

.:.2if (cinfo->global_state DSTATE_PRELOAD) { 

/* If file has multiple scans, absorb them all into the coef buffer */ 
fTi if (cinfo->inputctl->has„multiple_scans) { 
Cffdef D_MULTISCAN_FILES_SUPPORTED 
for (;;) { 

int retcode; 

/* Call progress monitor hook if present */ 
if {cinfo->progress 1= NULL) 

(*cinf o->progress->progress_monitor) ( ( j_coramon_ptr} cinfo); 
/* Absorb some more input */ 

retcode = (*cinf o->inputctl->consume_input) (cinfo); 
if (retcode == JPEG_SUSPENDED) 

return FALSE; 
if (retcode === JPEG_REACHED_EOI ) 

break; 

/* Advance progress counter if appropriate */ 
if ( cinfo- >progress != NULL && 

(retcode == JPEG_ROW_COMPLETED II retcode == JPEG_REACHED_SOS) ) { 
if (++cinf o->progress->pass_counter >= cinf o->progress->pass_limit) { 
/* jdmaster \mderestimated number of scans; ratchet up one scan */ 
cinf o->progress->pass„limit += (long) cinf o->total_iMCU__rows; 

} 

} 

} 

#else 

ERREXIT ( cinfo , JERR_NOT„COMPILED) ; 
#endif /* D„MULTISCAN_FILES_SUPPORTED */ 

} 

cinf o->output_scan_number = cinf o->input_scan_n\imber ; 
} else if (cinfo->global„state 1= dstate_prescan) 

ERREXITl (cinf o, JERR„BAD_STATE , cinf o->global_state) ; 
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/* Perform any dummy output passes, and set up for the final pass */ 
return outpu t_pass_se tup (c info) ; 

} 



/* 

* Set up for an output pass, and perform any dummy pass(es) needed. 

* Common subroutine for jpeg_start_decompress and jpeg_start_output . 

* Entry: global_state = DSTATE_PRESCAN only if previously suspended. 

* Exit: If done, returns TRUE and sets global_state for proper output mode, 

* If suspended, returns FALSE and sets global_state = DSTATE_PRESCAN, 
*/ 

LOCAL (boolean) 

output jass_se tup ( j_decompress_j3tr cinfo) 
{ 

if (cinfo->global„state != DSTATE_PRESCAN) { 
/* First call; do pass setup */ 

(*Ginf o->master->prepare_f or_output_pass) (cinfo) ; 
cinfo->output_scanline = 0; 
cinfo->global„state = DSTATE_PRESCAN; 

} 

/* Loop over any required dummy passes */ 
while (cinf o->master->is_dummy_jpass) { 
#ifdef QUANT__2PASS_SUPP0RTED 

/* Crank through the dummy pass */ 

while (cinf o->output_scanline < cinf o->output__height) { 
JDIMENSION last_scanline; 

/* Call progress monitor hook if present */ 

if (cinf o->progress != NULL) { 
cinf o->progress->pass_counter = (long) cinf o->output_scanline; 
f% cinfo->progress->pass_limit = (long) cinf o->output_height; 
'':: (*cinf o->progress->progress_monitor) ( ( j_common_ptr) cinfo); 

} 

ffl /* Process some data */ 

last_„scanline = cinf o->output_scanline; 
^li (*cinfo->main->process„data) (cinfo, (JSAMPARRAY) NULL, 
S;J Sccinf o->output_scanline, (JDIMENSION) 0); 

.^^ if (cinf o->output_scanline == last„scanline) 

return FALSE; /* No progress made, must suspend */ 

m } 

pji /* Finish up dummy pass, and set up for another one */ 
'""^ (*cinf o->master->f inish_output_pass) (cinfo) ; 

(*cinf o->master->prepare_for_output_pass) (cinfo); 

cinfo->output_scanline = 0; 

ERREXIT (cinfo , JERR_JWOT_COMPILED) ; 
#%hdif /* QUANT_2PASS„SUPP0RTED */ 

^^^> 

J:/* Ready for application to drive output pass through 
CI * jpeg__read„scanlines or jpeg__read_raw__data. 

'^-'cinfo->global„state = cinf o->raw„data„out ? DSTATE_RAW_OK : DSTATE_SCANNING; 
return TRUE; 

} 



/* 

* Read some scanlines of data from the JPEG decompressor- 
* 

* The return value will be the number of lines actually read, 

* This may be less than the ntmiber requested in several cases, 

* including bottom of image, data source suspension, and operating 

* modes that emit multiple scanlines at a time. 
* 

* Note: we warn about excess calls to jpeg_read_scanlines () since 

* this likely signals an application programmer error. However, 

* an oversize buffer (max^lines > scanlines remaining) is not an error. 
*/ 

GLOBAL (JDIMENSION) 

jp€g„read_scanlines ( j_decompress_ptr cinfo, JSAMPARRAY scanlines, 
JDIMENSION max_lines) 

{ 

JDIMENSION row_ctr; 

if (cinfo->global_state != DSTATE_SCANNING) 

ERREXITK cinfo, JERR_BAD_STATE , cinfo->global_state) ; 

if (cinf o->output_scanline >= cinf o->output_height) { 
WARNMS (cinfo, JWRN_TOO_MUCH_DATA) ; 
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return 0; 

} 

/* Call progress monitor hook if present */ 

if (cinfo->progress 1= NULL) { 

cinf o->progress->pass_counter = (long) cinf o->output_scanline; 
cinf o->progress->pass„liinit = (long) cinf o->output_height; 
^ *cinfo->progress->progress_monitor) { ( j_coinmon_ptr) cinf o) ; 

} 

/* Process some data */ 
row„ctr = 0; 

(*cinf o->main->process_data) (cinfo, scanlines, &row_ctr, max_lines); 
cinfo->output_scanline += row^ctr; 
return row^ctr; 



/* 

* Alternate entry point to read raw data. 

* Processes exactly one iMCU row per call, unless suspended. 
*/ 

GLOBAL ( JDIMENSION) 

jpeg_read_raw_data ( j_decompress_ptr cinfo, JSAMPIMAGE data, 
JDIMENSION max_lines) 

{ 

JDIMENSION lines^er„iMCU_row; 

if (cinfo->global_state != DSTATE_RAW_OK) 

ERREXITKcinfo, JERR_BAD__STATE, cinf o->global_state) ; 
?4f (cinf o->output_scanline >= cinf o->output_height) { 
""f WARNMSCcinfo, JWRN„TOO_MUCH„DATA) ; 

return 0; 

(A 

^* Call progress monitor hook if present */ 
%if (cinf o->progress 1= NULL) { 

cinf o->progress->pass_counter ~ (long) cinf o->output_scanline; 
^^f cinfo->progress->pass„liitiit = (long) cinfo->output„height; 

(*cinfo->progress->progress_monitor} ( ( j_commonjtr) cinf o) ; 

nl 

Verify that at least one iMCU row can be returned. */ 
L,;lines_per_iMCU_row = cinf o->max_v_samp_f actor * cinf o->min_DCT_scaled_size 
I.., if (max_lines < lines_per_iMCU__row) 
O ERREXIT{cinfo, JERR_BUFFER_SIZE) ; 



IJV* Decompress directly into user's buffer. */ 
"'4f (J (*cinf o->coef->decompress_data) (cinfo, data)) 
C] return 0; /* suspension forced, can do nothing more */ 

^^/* OK, we processed one iMCU row. */ 
cinfo->output„scanline += lines_per„iMCU_row; 
return lines_per_iMCU_row; 

} 



/* Additional entry points for buffered- image mode. */ 
#ifdef D_MULTISCAN_FILES_SUPPORTED 

/* 

* Initialize for an output pass in buffered- image mode. 

*/ 

GLOBAL (boolean) 

jpeg_start_output { j_decompress_ptr cinfo, int scan__number) 

{ 

if (cinfo->global_state '= DSTATE_BUFIMAGE && 
cinfo->global_state 1= DSTATE_PRESCAN) 

ERREXITK cinfo, JERR_BAD_STATE , cinf o->global_state) ; 
/* Limit scan number to valid range */ 
if {scan_number <= 0) 

scan_nuinber = 1; 
if (cinfo->inputctl->eoi_reached && 

scan_number > cinf o->input_scan„n\mber) 

scan_number = cinf o->input„scan_number; 
cinf o->output_scan_n\mber = scan_number ; 

/* Perform any dummy output passes, and set up for the real pass */ 
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return output_pass_setup (cinf o) ; 

} 



* Finish up after an output pass in buffered- image mode. 
* 

* Returns FALSE if suspended. The return value need be inspected only if 

* a suspending data source is used. 
*/ 

GLOBAL ( boo 1 ean ) 

jpeg_f inish_output { j_decompress_ptr cinfo) 
{ 

if { (cinfo->global„state DSTATE_SCANNING M 

cinfo->global_state == DSTATE_RAW_OK) && cinf o->buf f ered_image) { 
/* Terminate this pass. */ 

/* We do not require the whole pass to have been completed. */ 
(*cinf o->master->f inish_output_pass) (cinfo) ; 
cinfo->global_state = dstate„BUFPOST; 
} else if (cinfo->global„state 1= DSTATE_BUFPOST) { 

/* BUFPOST = repeat call after a suspension, anything else is error */ 
ERREXITK cinfo, JERR_BAD„STATE , cinf o~>global_state) ; 

} 

/* Read markers looking for SOS or EOI */ 

while (cinf o->input_scan_number <= cinfo->output_scan_number && 
J cinf o->inputctl->eoi_reached) { 
if ( {*cinfo->inputctl->consume_input) (cinfo) == JPEG_SUSPENDED) 
return FALSE; /* Suspend, come back later */ 

} 

cinfo->global_state = DSTATE_BUFIMAGE; 
-.^return TRUE; 

timdif /* D„MULTISCAN„FILES„SUPPORTED */ 



* jdatadst.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software, 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains compression data destination routines for the case of 

* emitting JPEG data to a file (or any stdio stream) . While these routines 

* are sufficient for most applications, some will want to use a different 

* destination manager. 

* IMPORTANT: we assume that fwrite{) will correctly transcribe an array of 

* JOCTETs into 8-bit-wide elements on external storage. If char is wider 

* than 8 bits on your machine, you may need to do some tweaking. 
*/ 

/* this is not a core library module, so it doesn't define JPEG_INTERNALS */ 
# include " j include. h" 
# include "jpeglib.h" 
#include " j error. h" 

/* ### a couple of new definitions to help differentiate between FILE and buffer I/O */ 
#define FILE_OUTPUT 1 
#define BUFFER_OUTPUT 2 



/* Expanded data destination object for stdio output */ 

typedef struct { 

struct jpeg_destination_mgr pub; /* public fields */ 

^^FILE * outfile; /* target stream */ 

y*JOCTET **outbuffer; */ /* target buffer */ 

iftOCTET * buffer; /* start of buffer */ 

^|nt n_Buff erFlag; /* ### My addition. Flag determines whether to process FILE * or JOCTET * */ 
}^l:iiy_de s t ina t i on_mgr ; 

typedef my_destination_mgr * my_dest_ptr; 

ft^fine OUTPUT_BUF_.SIZE 4096 /* choose an efficiently fwrite'able size */ 



4* ### Imtiaz: Stitching routine to patch linked list into a single stream of JOCTET */ 
4*: To store the stuff (JOCTET stream) in jpeg_destination_mgr .outbuf f er ; */ 

<ibBAL(void) 

g1titch„list ( j_compress_ptr cinfo) 
lA i; 

|j|t chunk, count=0; 

iilf f er_list* list, *temp; 



list=cinf o->dest->head_ptr ; 
chunks (int) cinf o->index; 

/* Allocating memory. */ 

cinf o->dest->outbuffer=: (JOCTET * )malloc (cinf o->index*sizeof (JOCTET) ) ; 
if {cinfo->dest->outbuf fer==NULL) 

( 

fprintf (stderr, "Memory Allocation ErrorVn") ; 
exitd) ; 

} 

while {list->nextt=NULL) 

{ 

f or ( i = 0 ; i <OUTPUT_BUF_S I ZE ; i + + ) 

{ 

cinfo->dest->outbuffer [count] =list->buf f er [i] ; 
count++? 

} 

temp=list; 
list=list->next; 

f ree (temp->buf f er) ; 
free (temp) ; 
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chunk=chunk- (int) OUTPUT_BUF_SIZE; 

} 

/* the rest */ 
f or (i=0; i<chunk; 

^ cinf o->dest->outbuf far [count] =list->buf far [i] ; 
count ; 

} 

free(list->buf fer) ; 
free (list) ; 



/* 

* Initialize destination -— called by 3peg„start_comprass 

* before any data is actually written. 
*/ 

METHODDEF{void) 

init_destination { j_compress_:ptr cmfo) 

my„dest_ptr dest = (my_dest_ptr) cinfo->dest; 

/* Allocate the output buffer it will be released when done with image */ 

dest->buffer = (JOCTET *) . . ^ 

(*cinfo->mem->alloc_small) { {j_coinmon_j)tr) cmfo, JPOOL_IMAGE, 
OUTPUT_BUF„SIZE * SIZEOF (JOCTET) ) ; 

Ciest->pub.next„output„byta = dest->buf f er ; 
aeLest->pub.free_in_buffer = OUTPUT_BUF_SIZE; 



*r Empty the output buffer — - called whenever buffer fills up. 

€1 

.*^:ln typical applications, this should write the entire output buffer 
(ignoring the current state of next_output_byte & free_in_buf f er) , 
reset the pointer & count to the start of the buffer, and return TRUE 

^* indicating that the buffer has been dumped. 

r* 

^ In applications that need to be able to suspend compression due to output 
■^^5 overrun, a FALSE return indicates that the buffer cannot be emptied now. 
^"^^ In this situation, the compressor will return to its caller (possibly with 

an indication that it has not accepted all the supplied scanlinas) . The 
'^i application should resume con^ression after it has made more room m the 
m output buffer. Note that there are substantial restrictions on the use of 
X suspension see the documentation. 

* When suspending, the compressor will back up to a convenient restart point 

* (typically the start of tha current MCU) . next_output_byte & f ree_in_buf f er 

* indicate where the restart point will be if the current call returns FALSE. 

* Data beyond this point will be regenerated after resumption, so do not 

* write it out when emptying the buffer externally. 



METHODDEF (boolean) 

empty_output_buf fer ( j_compress_ptr cinfo) 
{ 

int i , index , increment ; 
buffer_list *bl; 



my„dest_ptr dest = (my„dest_ptr) cinfo->dest; 
if (dest->n_BufferFlag==:FILE_OUTPUT) 

^ if (JFWRITE(dest->outfile, dest->buf f er , OUTPUT_BUF_SIZE) != 
(size_t) OUTPUT_BUF_SIZE) 
ERREXIT( cinfo, JERR_FILE_WRITE) ; 

i f ( des t->n_Buf f erFl ag==BUFFER_OUTPUT ) 

{ 

' ### Imtiaz: First thing we know is that this part deals with a fixed length dump. */ 
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bl= (buf fer_list *)malloc (sizeof (buf f er_list) ) ; 
if (bl==NULL) 

{ 

fprintf (stderr, "Memory Allocation Error\n") ; 
exitd) ; 

} 

bl->buf fer= (JOCTET *)malloc (OUTPUT„BUF_SIZE* sizeof (JOCTET) ) ; 
bl->next=:NULL ; 



/* For the first time we need to set the head_ptr and current_ptr in jpeg_destination_mgr accordingl 
y. Yes! I changed that too. */ 

if (cinfo->dest->head_ptr==NULL) 

{ 

cinf o->dest->current^tr-bl ; 

cinf o->dest->head_ptr-cinf o->dest->current_ptr; 

} 

else 
{ 

cinf o->dest->current_ptr->next=bl; 
cinf o->dest->current_ptr=bl ; 

} 

index=cinf o->index ; 

increment=OUTPUT_BUF_SIZE ; 

for (i=0;i<OUTPUT_BUF„SIZE;i++) 
yi cinf o->dest->current_ptr->buf f er [i] =dest->buf f er [i] ; 

""Ij' cinf o->index=index+ { int ) OUTPUT_BUF_SIZE ; 

^i:dest->pub.next_output_byte = dest->buf f er ; 
y;iest->pub.free„in„buffer = OUTPUT_BUBLSIZE; 

^ Return TRUE; 



m 

ffl Terminate destination called by jpeg„f inish„cornpress 

■JK after all data has been written. Usually needs to flush buffer. 

O NB: *not* called by jpeg__abort or jpeg_destroy; surrounding 

application must deal with any cleanup that should happen even 
^ for error exit, 

*/ 

METHODDEF{void) 

terin_destination ( j_compress_ptr cinfo) 

{ 

int i, index; 
bufferjist *bl; 

my_dest_ptr dest = (my_dest__ptr ) cinfo->dest; 

size_t datacount = 0UTPUT_BUF_SIZE - dest->pub. free_in_buf fer; 

/* Write any data remaining in the buffer */ 
if (datacount > 0) { 

if (dest->n_BufferFlag==FILE_OUTPUT) 

{ 

if (JFWRITE(dest->outf ile, dest->buf f er , datacount) 1= datacount) 
ERREXIT (cinfo, JERR_FILE_WRITE) ; 

fflush(dest->outfile) ; 

/* Make sure we wrote the output file OK */ 
if (f error (dest->outfile) ) 

ERREXIT ( cinfo , JERR„FILE„WRITE ) ; 

} 

if (dest->n_BufferFlag-=BUFFER_OUTPUT) 

{ 
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/* ### Imtiaz: First thing we know is that this part deals with a fixed length dump. */ 

bl=(buf fer_list * )malloc (sizeof (buf f er_list) ) ; 
if {bl==NULL) 

^ fprintf (stderr, "Memory Allocation Error \n" ) ; 
exit (1) ; 

} 

bl->buf fer= (JOCTET *)malloc (datacount* sizeof (JOCTET) ) ; 
bl->next=NULL; 

/* For the first time we need to set the headjtr and current_ptr in jpeg_destination_mgr 

cordingly. Yes" I changed that too. */ 

if (cinfo->dest->head_ptr==NULL) 

{ 

cinf o->dest->current^tr=bl ; 

cinfo->dest->headjtr=cinfo->dest->current_ptr; 

} 

else 

cinfo->dest->current_:ptr->next=bl; 
cinf o->dest->current_ptr=bl ; 

} 



index=cinf o->index; 
for (i=:0;i<(int)datacount;i+ + ) 

cinfo->dest->current_ptr->buf fer [i] =dest->buf f er [i] ; 

cinf o->index=:index+datacount; 

/* The end... Now to stitch. :) */ 
stitch_list{cinfo) ; 



m 

Prepare for output to a stdio stream. 

The caller must have already opened the stream, and is responsible 
for closing it after finishing compression. 

GLOBAL (void) ^ ^.-t ^ 

jpeg„stdio_.dest ( j_compress jtr cinfo, FILE * outfile) 
{ 

my_dest_:ptr dest; 

/* The destination object is made permanent so that multiple JPEG images 

* can be written to the same file without re-executing jpeg„stdio„dest . 

* This makes it dangerous to use this manager and a different destination 

* manager serially with the same JPEG object, because their private obDect 

* sizes may be different. Caveat programmer. 

if^(cinfo->dest == NULL) { /* first time for this JPEG object? */ 



cinfo->dest = (struct jpeg_destination_mgr *) 

(*cinfo->mem->alloc_small) ( ( j_commonjtr) cinfo, JPOOL_PERMANENT , 
SIZEOF (my_destination_mgr) ) ; 



} 



dest = (my_dest__ptr) cinfo->dest; 

/* ### Setting flag to process FILE output */ 
dest->n„BufferFlag=FILE_OUTPUT; 

dest->pub.init_destination = init_destination; 
dest->pub.empty_output_buf fer = empty_output_buf f er; 
dest->pub. term„destination = term_destination; 
dest->outfile - outfile; 
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} 



GLOBAL (void) 

jpeg„buf f er_dest ( j„compress_ptr cinfo) 
{ 

my„dest_ptr dest; 

/* The destination object is made permanent so that multiple JPEG images 

* can be written to the same file without re-executing jpeg_stdio_dest . 

* This makes it dangerous to use this manager and a different destination 

* manager serially with the same JPEG object, because their private object 

* sizes may be different. Caveat programmer. 
*/ 

if (cinfo->dest == ISfULL) { /* first time for this JPEG object? */ 
cinfo->dest = (struct jpeg_destination_mgr *) 

(*cinf o->mem->alloc__small) ( {j_coramon_ptr) cinfo, JPOOL^PERMANENT , 
SIZEOF (my_destination_mgr) ) ; 

} 

dest = (my_destjtr) cinfo->dest; 

/* ### Imtiaz: Setting flag to process BUFFER output */ 
dest->n_Buf f erFlag=BUFFER_OUTPUT ; 

dest->pub. init_destination = init_destination; 
dest->pub. empty_output_buf f er = empty_output_buf f er; 
dest->pub. term__destination = term__destination; 
/* ### cinfo->dest->outbuf f er = buff; */ 

_cinfo->dest->head _ptr=NULL; 
CSinf o->dest->current^tr=NULL ; 



* jdatasrc.c 

* 

* Copyright (C) 1994-1996, Thoinas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains decompression data source routines for the case of 

* reading JPEG data from a file (or any stdio stream) . While these routines 

* are sufficient for most applications, some will want to use a different 

* source manager. 

* IMPORTANT; we assume that freadO will correctly transcribe an array of 

* JOCTETs from 8-bit-wide elements on external storage. If char is wider 

* than 8 bits on your machine, you may need to do some tweaking. 

*/ 

/* this is not a core library module, so it doesn't define JPEG^INTERNALS */ 
# include " j include .h" 
# include "jpeglib.h" 
# include " j error . h " 

#define FILE__OUTPUT 1 /* ### Imtiaz: I put this here. */ 
tdefine BUFFER_OUTPUT 2 

/* Expanded data source object for stdio input */ 

typedef struct { 

struct jpeg„sourcejtigr pub; /* public fields */ 

„FILE * infile; /* source stream */ 

QOCTET * buffer; /* start of buffer */ 

:Jboolean start_of_f ile; /* have we gotten any data yet? */ 
/ 1 ong c ount^track ; 

^%nt n__Buf ferFlag; /* ### Imtiaz; My addition. Flag determines whether to process FILE * or JOC 

Tff * */ 

}=||hy_source_mgr ; 

t5|>edef my„source_mgr * my_src_ptr; 

#iaefine INPUT_BUF_SIZE 4096 /* choose an efficiently fread'able size */ 

Initialize source called by jpeg_read„header 

before any data is actually read. 

lyTHODDEF(void) 

fflit__source ( j„decorapress_ptr cinfo) 

{ 

my_src_ptr src = (my_src^tr) cinfo->src; 

/* We reset the empty-input-f ile flag for each image, 

* but we don't clear the input buffer. 

* This is correct behavior for reading a series of images from one source. 

*/ 

src->start_of_f ile - TRUE; 



* Fill the input buffer called whenever buffer is emptied. 

* In typical applications, this should read fresh data into the buffer 

* (ignoring the current state of next„input„byte & bytes_in_buf f er) , 

* reset the pointer & count to the start of the buffer, and return TRUE 

* indicating that the buffer has been reloaded. It is not necessary to 

* fill the buffer entirely, only to obtain at least one more byte, 

* There is no such thing as an EOF return. If the end of the file has been 

* reached, the routine has a choice of ERREXITO or inserting fake data into 

* the buffer. In most cases, generating a warning message and inserting a 

* fake EOI marker is the best course of action this will allow the 

* decompressor to output however much of the image is there. However, 

* the resulting error message is misleading if the real problem is an empty 

* input file, so we handle that case specially. 
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* In applications that need to be able to suspend compression due to input 

* not being available yet, a FALSE return indicates that no more data can be 

* obtained right now, but more may be forthcoming later. In this situation, 

* the decompressor will return to its caller (with an indication of the 

* number of scanlines it has read, if any) . The application should resume 

* decompression after it has loaded more data into the input buffer. Note 

* that there are substantial restrictions on the use of suspension see 

* the documentation. 
* 

* When suspending, the decompressor will back up to a convenient restart point 

* (typically the start of the current HCU) . next_input_byte & bytes_in_buf f er 

* indicate where the restart point will be if the current call returns FALSE. 

* Data beyond this point must be rescanned after resumption, so move it to 

* the front of the buffer rather than discarding it. 
*/ 

METHODDEF (boolean) 

f ill_input_buf f er ( j_decompress_ptr cinfo) 
{ 

long count; 
static int p; 

my_src_ptr src = {my_src_ptr) cinfo->src; 
size_t nbytes; 

if {src->n_BufferFlag==FILE_OUTPUT) 
{ 

nbytes = JFREAD (src->inf ile, src->buffer, INPUT_BUF_SIZE) ; 

} 

else 

a 

count=0; 

1:1 while ( (p<cinf o->src->buf fer_length) && { count <INPUT„BUF_SIZE) ) 

.l-, src->buffer [count] = cin£o->src->inbuf f er [0] ; 

count-f-+; 



clnf o->src->inbuf f er++ ; 
p++; 

} 



Li: nby tes = ( s i z e_t ) count ; 

H 

flif (nbytes <:= 0) { 

'^^^ if {src->n_BufferFlag==FILE_OUTPUT) 

G { 

r^;; if (src->start_of_f ile) /* Treat empty input file as fatal error */ 

ERREXIT ( cinfo , JERR_INPUT_EMPTY} ; 
WARNMS ( cinfo , JWRN_JPEG_EOF } ; 

} 

else 

{ /* if dest->nBufferFlag==BUFFER_OUTPUT */ 
fprintf (stderr, "Buffer Empty\n" ) ; 
fprintf (stderr, "Using Fake EOI marker,, \n"); 

} 

/* Insert a fake EOI marker */ 
src->buffer[0] = (JOCTET) OxFF; 
src->buffer[l] = (JOCTET) JPEG_EOI; 
nbytes = 2; 

} 

src->pub.next_input_byte = src->buffer; 
src->pub.bytes_in_buf f er = nbytes; 
src->start„of_f ile = FALSE; 

return TRUE? 

} 



* Skip data used to skip over a potentially large amount of 

* uninteresting data (such as an APPn marker) . 

* Writers of suspendable- input applications must note that skip„input_,data 

* is not granted the right to give a suspension return. If the skip extends 
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* beyond the data currently in the buffer, the buffer can be marked empty so 

* that the next read will cause a f ill_input_buf f er call that can suspend. 

* Arranging for additional bytes to be discarded before reloading the input 

* buffer is the application writer's problem, 
*/ 

METHODDEF (void) 

skip_input_data ( j_decompress_^tr cinfo, long num_bytes) 
{ 

my_src_ptr src = (my„src_ptr) cinfo->src; 

/* Just a dumb implementation for now. Could use fseek{) except 

* it doesn't work on pipes. Not clear that being smart is worth 

* any trouble anyway large skips are infrequent. 

*/ 

if (num_bytes > 0) { 

while {num_bytes > (long) src->pub.bytes_in„buf f er) { 
nuitL_bytes -= (long) src->pub.bytes„in„buf fer; 
(void) f ill_input_buf f er (cinf o) ; 

/* note we assume that f ill_input_buf fer will never return FALSE, 
* so suspension need not be handled. 
*/ 

} 

src->pub.next_input_byte += (size_t) n\am__bytes; 
src->pub.bytes_in„buf fer -= (size__t) num__bytes; 

} 

} 



/* 

* An additional method that can be provided by data source modules is the 

f ]resync_to_restart method for error recovery in the presence of RST markers. 

llFor the moment, this source module just uses the default resync method 

provided by the JPEG library. That method assumes that no backtracking 
SI is possible. 

'f: Terminate source called by jpeg_f inish_decompress 

after all data has been read. Often a no-op. 

y' NB: *not* called by jpeg_abort or jpeg_destroy; surrounding 

application must deal with any cleanup that should happen even 
iM: for error exit. 

f¥ 

ffirHODDEFlvoid) 

4grm_source ( j_decompress_ptr cinfo) 

L? 

y^/* no work necessary here */ 



/* 

* Prepare for input from a stdio stream. 

* The caller must have already opened the stream, and is responsible 

* for closing it after finishing decompression. 
*/ 

GLOBAL (void) 

jpeg_stdio„src ( j_decompress_ptr cinfo, FILE * infile) 

{ 

my_src_ptr src; 

/* The source object and input buffer are made permanent so that a series 

* of JPEG images can be read from the same file by calling jpeg„stdio_src 

* only before the first one. (If we discarded the buffer at the end of 

* one image, we'd likely lose the start of the next one.) 

* This makes it unsafe to use this manager and a different source 

* manager serially with the same JPEG object. Caveat programmer. 
*/ 

if {cinfo->src == NULL) { /* first time for this JPEG object? */ 
cinfo->src = (struct jpeg„source_mgr *) 

(*cinf o->mem^>alloc„small) { ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
SIZEOF(my_source_mgr) ) ; 
src = (my__src_ptr) cinfo->src; 
src->buffer = (JOCTET *) 

(*cinfo->mera->alloc_small) ( ( j__common_ptr) cinfo, JPOOL_PERMANENT , 
INPUT_BUF_SI2E * S I ZEOF (JOCTET) } ; 
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} 



src = Cmy__src__ptr) cinfo->src; 
src->pub.init„source = init_source; 
src->pub. f ill_input_buf fer = f ill_input_buf fer; 
src->pub.skip_input_data = skip_input_data; 

src->pub.resync_to_restart = jpeg_resync_to_re start; /* use default method */ 
src->pub. term_source = terin__source; 
src->infile = infile; 

src->pub.bYtes_in_buf f er =0; /* forces f ill_input__buf f er on first read */ 
src->pub.next_input_byte = NULL; /* until buffer loaded */ 



GLOBAL (void) 

jpe^— buf f er_src { j_decompress_ptr cinfo) 
{ 

niy_src_ptr src; 



/* The source object and input buffer are made permanent so that a series 

* of JPEG images can be read from the same file by calling jpeg„stdio_src 

* only before the first one. (If we discarded the buffer at the end of 

* one image, we'd likely lose the start of the next one.) 

* This makes it unsafe to use this manager and a different source 

* manager serially with the same JPEG object. Caveat programmer. 
*/ 

if (cinfo->src -= NULL) { /* first time for this JPEG object? */ 
cinfo->src = (struct jpeg_source„mgr *) 

(*cdnf o->mem->alloc„small) ( ( j„common_ptr) cinfo, JPO0L_PERMANENT , 
SIZEOF (my_source_mgr) ) ; 
src = (my„src_ptr) cinfo->src; 
f^, src->buffer = (JOCTET *) 

(*cinfo->mem->alloc„small) ( ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
INPUT_BUF_SIZE * SIZEOF (JOCTET) ) ; 

of 

'^j^rc = (my_src_ptr) cinfo->src; 

### Imtiaz: Setting flag to process BUFFER output */ 
r c - >n_Buf f er F 1 ag =BUFFER_OUTPUT ; 

p src->pub*init_source = init_source; 

' ■-src->pub.f ill_input_buf fer = f ill_input_buf f er ; 

s src->pub.skip_input_data = skip_input_data; 

L5src->pub.resync_to_restart = jpeg_resync_to_restart; /* use default method */ 
:^.,^rc->pub- term_source = term__source ; 

nlsrc->pub.bytes_in__buf f er = 0; /* forces f ill_input_buf f er on first read */ 
I ■src->pub.next„input_byte = NULL; /* until buffer loaded */ 
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/* 

* jdcoefct.c 

* 

* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the coefficient buffer controller for decompression. 

* This controller is the top level of the JPEG decompressor proper. 

* The coefficient buffer lies between entropy decoding and inverse-DCT steps. 
* 

* In buffered- image mode^ this controller is the interface between 

* input -oriented processing and output -oriented processing. 

* Also, the input side (only) is used when reading a file for transcoding. 
*/ 

#define JPEG_INTERNALS 
# include " j include .h" 
# include "jpeglib.h" 

/* Block smoothing is only applicable for progressive JPEG, so: */ 
#ifndef D„PROGRESSIVE„SUPPORTED 
#undef BLOCK„SMOOTHING_SUPPORTED 
#endif 

/* Private buffer controller object */ 

typedef struct { 

struct jpeg_d_coef„controller pub; /* public fields */ 

/* These variables keep track of the current location of the input side. */ 
cinf o->input_iMCU_row is also used for this. */ 
^-^r^DIMENSION MCU„ctr; /* counts MCUs processed in current row */ 

iint MCU_yert_offset; /* counts MCU rows within iMCU row */ 

glint MCU_rows_j)er_iMCU„row; /* number of such rows needed */ 

ll* The output side's location is represented by cinf o->output_iMCU_row. */ 

In single-pass modes, it's sufficient to buffer just one MCU. 
yj * vJe allocate a workspace of D_MAX_BLOCKS_IN„MCU coefficient blocks, 
yii * and let the entropy decoder write into that workspace each time. 

* (On 80x86, the workspace is FAR even though it's not really very big? 

* this is to keep the module interfaces unchanged when a large coefficient 
H * buffer is necessary.) 

* multi-pass modes, this array points to the current MCU's blocks 

* within the virtual arrays; it is used only by the input side. 
P */ 

nJJBLOCKROW MCUjDUfferlD_KAXJBLOCKS_INjy[CU] ; 
=^def DJiUI/riSCAN_FILES_SUPPORTED 

L|/* In multi-pass modes, we need a virtual block array for each component. */ 

S5civirt_barray__ptr whole_image [HAX_COMPONENTS] ; 

#iShdif 

#ifdef BLOCK_SMOOTHING_SUPPORTED 

/* When doing block smoothing, we latch coefficient Al values here */ 

int * coef_bits_latch; 
#define SAVED_COEFS 6 /* we save coef_bits [0 . . 5] */ 

#endif 

} my_coef_controll6r; 

typedef my„coef_contr oiler * my_coef_ptr; 

/* Forward declarations */ 
METHODDEF (int) decompress_onepass 

JPP( ( j_<3ecompress_ptr cinfo, JSAMPIMAGE output_buf ) ) ; 
#ifdef D_MULTISCAN_FILES_SUPPORTED 
METHODDBF ( int ) decompress_da ta 

JPP( ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf ) ) ; 
#endif 

#ifdef BL0CK„SM0OTHING_.SUPPORTED 

LOCAL (boolean) smoothing_ok JPP ( { j„decompress_ptr cinfo) ) ; 
METHODDEF (int) decompress„smooth_data 

JPP( { j_decompress_ptr cinfo, JSAMPIMAGE output_buf ) ) ; 
#endif 



LOCAL (void) 

start_iMCU„row ( j_.decompress_ptr cinfo) 

/* Reset within- iMCU-row counters for a new row (input side) */ 
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{ 

my„coef jtr coef = (iny_coef_ptr) cinfo->coef; 



/* In an interleaved scan, an MCU row is the same as an iMCU row, 

* In a noninterleaved scan, an iMCU row has v„sainp_f actor MCU rows. 

* But at the bottom of the image, process only what's left. 
*/ 

if (cinfo->comps„in_scan > 1) { 

coef->MCU_rows_per_iMCU_row = 1; 
) else { 

if (cinfo->input_iMCU_row < (cinfo->total_iMCU__rows-l) ) 

coef->MCU_rows_per__iMCU_row = cinf o->cur„comp_inf o [0] ->v„samp_f actor ; 
else 

coef- >MCU_r ows_per_iMCU_r ow = c i nf o - > cur_c omp_in f o [ 0 } - > 1 as t_r ow_he i gh t ; 

} 

coef->MCU_ctr = 0; 
coef->MCU_vert„of fset - 0; 

} 



/* 

* Initialize for an input processing pass. 
*/ 

METHODDEF(void) 

start_input__pass ( j_decompress_ptr cinfo) 

{ 

cinf o->input„iMCU„row = 0; 
start_iMCU_row(cinfo) ; 

} 

Initialize for an output processing pass. 

M 

ffiJHODDEF(void) 

start_output_pass ( j_decoinpress_ptr cinfo) 

{-^■ 

Htdef BLOCK_SMOOTHING_SUPPORTED 
?7;my_coef_ptr coef = (my_coef_ptr) cinfo->coef; 



/* If multipass, check to see whether to use block smoothing on this pass */ 
Ldf (coef->pub.coef_arrays 1= NULL) { 

L... if (cinf o->do_block_smoothing && smoothing_ok (cinfo) ) 
coef->pub.decompress_data = decompress_smooth_data; 
pi else 

I"-: coef ->pub . dec ompress_data = decompress_data; 

^% 

^|adif 

iiinfo->output_iMCU_row - 0; 



/* 

* Decompress and return some data in the single-pass case. 

* Always attempts to emit one fully interleaved MCU row ("iMCU" row). 

* Input and output must run in lockstep since we have only a one-MCU buffer. 

* Return value is JPEG_ROW_COMPLETED , JPEG_SCAN_COMPLETED , or JPEG_SUSPENDED. 
* 

* NB; output_buf contains a plane for each component in image, 

* which we index according to the component's SOF position. 
*/ 

METHODDEF(int) 

decompress„onepass ( j_decompress_ptr cinfo, JSAMPIMAGE output_buf) 

{ 

my_coef_ptr coef = (my_coef_ptr) cinfo->coef? 

JDIMENSION MCU_col_num; /* index of current MCU within row */ 
JDIMENSION last_MCU_col = cinf o->MCUs_per_row - 1; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
int blkn, ci, xindex, yindex, yoffset, usef ul„width; 
JSAMPARRAY output_ptr; 
JDIMENSION start_col, output_col; 
jpeg_-Component„inf o *compptr; 
inverse„DCT_method_ptr inverse_DCT ; 

/* Loop to process as much as one whole iMCU row */ 

for (yoffset = coef->MCU_vert_of f set ; yoffset < coef ->MCU_rows_per_iMCU__row; 



2 



yoffset++) { 

for (MCU_col„nuin = coef->MCU_ctr ; MCU_col_num <= last_MCU_col ; 
MCU„col_nuni++) { 

/* Try to fetch an MCU. Entropy decoder expects buffer to be zeroed. */ 

jzero_far ( (void *) coef->MCU_buf fer [0] , 

(size_t) {cinfo->blocks_injy[CU * SIZEOF ( JBLOCK) ) } ; 

if (! (*cinf o-> entropy- >decode_racu) (cinfo, coef->MCU_buf fer) ) { 
/* Suspension forced; update state counters and exit */ 
coef->MCU_vert_of f set = yoffset; 
coef->MCU_ctr = MCU__col_nujn; 
return JPEG_SUSPENDED; 

} 

/* Determine where data should go in output„buf and do the IDCT thing. 

* We skip dummy blocks at the right and bottom edges (but blkn gets 

* incremented past theml). Note the inner loop relies on having 

* allocated the MCU_buffer[] blocks sequentially. 

*/ 

blkn = 0; /* index of current DCT block within MCU */ 

for (ci = 0; ci < cinf o->comps_in__scan,* ci++) { 
compptr = cinfo->cur_comp_inf o [ci] ; 

/* Don't bother to IDCT an uninteresting component. */ 
if (1 corapptr->component_needed) { 

blkn += compptr->MCU_blocks; 

continue ; 

} 

inverse_DCT = cinf o->idct ->inverse_DCT[ compptr- >component_index] ; 
useful_width = (MCU_col_num < last„MCU„col) ? compptr->MCU_width 

: compptr- >1 as t_col_width; 
output^ptr - output_buf [compptr- >component_index] + 

yoffset * compptr- >DCT_scaled_size ; 
start_col = MCU_col_num * compptr- >MCU_sample_width; 
f=H for (yindex = 0; yindex < compptr- >MCU_height; yind€X++) { 

if (cinfo->input„iMCU_row < last_iMCU__row | | 
y.J yof f set+yindex < compptr->last_row„height) { 

IjI output_col = start_col; 

for (xindex = 0; xindex < useful_width; xindex++) { 
'"^^ (*inverse_DCT) (cinfoi compptr, 

(JCOEFPTR) coef->MCUjDuffer[blkn+xindex] , 
output_ptr, output_col) ; 
— output_col += compptr->DCT_scaled_size; 

y3 } 

flii > 

blkn += compptr- >MCU_width; 
^ output_ptr += compptr->DCT_scaled_size; 

} 

U } 

ilj /* Coirvpleted an MCU row, but perhaps not an iMCU row */ 
^ coef->MCU„ctr = 0? 

r]/* Completed the iMCU row, advance counters for next one */ 
r=:pinf o->output_iMCU_row++ ; 

--^if (++ {cinfo->input_iMCU_row) < cinf o->total„iMCU„rows) { 
start_iMCU„row{cinf o) ; 
return JPEG_ROW_COMPLETED ; 

} 

/* Completed the scan */ 

{*cinfo->inputctl->f inish_input_pass) (cinfo) ; 
return JPEG_SCAN_COMPLETED ; 

} 



/* 

* Dummy constime- input routine for single -pass operation. 

*/ 

METHODDEF(int) 

du2nmy_„consume_data { j„decompress_ptr cinfo) 

{ 

return JPEG„SUSPENDED; /* Always indicate nothing was done */ 

} 



#ifdef D„MULTISCAN_FILES_SUPPORTED 

/* 

* Consume input data and store it in the full -image coefficient buffer. 

* We read as much as one fully interleaved MCU row ("iMCU" row) per call, 

* ie, v_samp_f actor block rows for each component in the scan. 

* Return value is JPEG„ROWLCOMPLETED , JPEG_SCAN_COMPLETED, or JPEG_SUSPENDED . 
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*/ 



METHODDEF(int) 

consuine_„data ( j_decompress_^tr cinfo) 
{ 

my__coef_ptr coef = (my_coef_ptr ) cinfo->coef; 

JDIMENSION MCU__col_num; /* index of current MCU within row */ 
int blkn, ci, xindex, yindex, yoffset; 
JDIMENSION start_col; 

JBLOCKARRAY buffer [MAX_COMPS_IN_SCAN j ; 
JBLOCKROW buf fer_ptr; 
jpeg„coInponent_info *compptr; 

/* Align the virtual buffers for the components used in this scan. */ 
for {ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 
buffer[ci] = (*cinf o->niem->access_virt_barray) 

( ( j_conmion_ptr) cinfo, coef->whole_iinage [ compptr- >component_index ] , 
cinf o->input_iMCU_row * compptr->v_samp__f actor, 
(JDIMENSION) compptr- >v_samp_f actor, TRUE) ; 
/* Note: entropy decoder expects buffer to be zeroed, 

* but this is handled automatically by the memory manager 

* because we requested a pre-zeroed array. 
*/ 



/* Loop to process one whole iMCU row */ 

for {yoffset = coef ->MCU_vert_off set; yoffset < coef->MCU_rows^er_iMCU_row; 
yoffset++) { 

for (MCU_col_niam = coef ->MCU_ctr; MCU_col_n\jmi < cinf o->MCUs_per_row; 
MCU„col__num+ + ) { 

ri; /* Construct list of pointers to DOT blocks belonging to this MCU */ 
^ blkn =0/ /* index of current DCT block within MCU */ 

y3 for {ci =0; ci < cinf o->comps_in^scan; ci++) { 
n I c ompp tr = cinfo - >cur_c omp_i nf o [ c i ] ; 

start_col = MCU_col_num * compptr- >MCU_width; 

for (yindex = 0; yindex < compptr->MCU_height; yindex++) { 
\J buffer_ptr = buffer [ci] [yindex+yof f set] + start_col; 
, J for (xindex = 0; xindex < compptr->MCU__width; xindex++) { 
coef->MCU_buf f er [bl]cn++] = buf f er_ptr++; 

tfl } 
} 

2; /* Try to fetch the MCU. */ 

L;, if (! {*cinf o->entropy->decode„mcu) (cinfo, coef ->MCU_buf far) ) { 
L^. /* Suspension forced; update state counters and exit */ 
LJ coef->MCU_vert_of fset = yoffset; 
flii coef->MCU__ctr = MCU_col_num; 
return JPEG_SUSPENDED; 
} 

U > 

p:;, /* Completed an MCU row, but perhaps not an iMCU row */ 
coef->MCU_ctr = 0; 

} 

/* Completed the iMCU row, advance counters for next one */ 
if (++ (cinfo- >input_iMCU_row) < cinf o->total_iMCU_rows) { 

start_iMCU_row{ cinfo) ; 

return JPEG_ROW_COMPLETED ; 

} 

/* Completed the scan */ 

(*cinf o->inputctl->f inish_input_pass) (cinfo) ; 
return JPEG_SCAN„COMPLETED ; 



/* 

* Decompress and return some data in the multi-pass case, 

* Always attempts to emit one fully interleaved MCU row ("iMCU" row). 

* Return value is JPEG_ROW_COMPLETED , JPEG„SCAN_C0MPLETED , or JPEG_SUSPENDED. 

* NB; output„buf contains a plane for each component in image. 

*/ 

METHODDEF(int) 

decompress_data ( j_decompress_j)tr cinfo, JSAMPIMAGE output_buf) 

{ 

iny_coef jtr coef = (my__coef_^tr) cinfo->coef; 
JDIMENSION last_iMCU„row - cinf o->total„iMCU_rows - 1; 
JDIMENSION block_niim; 
int ci, block_row, block_rows; 
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JBLOCKARRAY buffer; 
JBLOCKROW buffer_ptr; 
JSAMPARRAY output jtr; 
JDIMENSION output_COl; 
jpeg_coniponent_info *compptr; 
inverse_DCT„method_ptr inverse_DCT; 

/* Force some input to be done if we are getting ahead of the input. */ 
while (cinfo->input_scan_nuinber < cinf o->output_scan_nuinber | | 
(cinfo->input_scan_n\iraber == cinf o->output_scan_n\miber && 
cinf o->input_iMCU_row <= cinf o->output_iMCU_row) ) { 
if ( (*cinfo->inputctl->consume_input) (cinfo) JPEG_SUSPENDED) 
return JPEG_SUSPENDED ; 

} 

/* OK, output from the virtual arrays. */ 

for (ci = 0, compptr = cinf o->conip„inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
/* Don't bother to IDCT an uninteresting component. */ 
if ( ! compptr ->component_needed) 
continue; 

/* Align the virtual buffer for this component. */ 
buffer = (*cinfo->mem->access_virt_barray) 

{ ( j„common_ptr) cinfo, coef ->whole_image [ci] , 
cinfo->output_iMCU„row * compptr->v_samp_factor, 
(JDIMENSION) compptr->v_samp„factor, FALSE) ; 
/* Count non-diimmy DCT block rows in this iMCU row. */ 
if (cinfo->output_iMCU_row < last_iMCU_row} 

blocker ows = compptr->v__samp_f actor; 
else { 

/* NB' can't use last„row__height here; it is input-side -dependent ! */ 
block_rows = (int) ( compptr ->height_in_blocks % compptr->v_samp_factor) ; 
if {block_rows == 0) block_rows = compptr->v_samp_f actor ; 

S: inverse_DCT = cinf o->idct->inverse_DCT [ci] ; 

output_ptr = output_buf [ci] ; 
■4? /* Loop over all DCT blocks to be processed. */ 
%J for (block^row = 0; block_row < bloc]<:_rows; blocK_row++) { 
.2 buffer_ptr = buf fer [blocker ow] ; 

output__col = 0; 1 . \ / 

vf:i for (block_num = 0; block_num < compptr->width_in_blocks; block_num++) i 
m (*inverse_DCT) (cinfo, cortpptr, (JCOEFPTR) bufferjtr, 
= output_ptr, output_col) ; 

Si buffer^tr++; 

:^ : output^col += compptr->DCT_scaled_size; 

} , , . 

LJ output_ptr += compptr->DCT_scaled_size; 

m } 

fiif (++(cinfo->output_iMCU_row) < cinf o->total_iMCU_rows) 
S:- return JPEG_ROW_COMPLETED ; 
■"=l:eturn JPEG„SCAN„COiyEPLETED ; 

} 

#endif /* D_MULTISCAN_FILES_SUPPORTED */ 



#ifdef BLOCK_SMOOTHING_SUPPORTED 
/ 



- This code applies interblock smoothing as described by section K.8 

* of the JPEG standard: the first 5 AC coefficients are estimated from 

* the DC values of a DCT block and its 8 neighboring blocks. 

* We apply smoothing only for progressive JPEG decoding, and only if 

* the coefficients it can estimate are not yet known to full precision. 
*/ 

/* Natural-order array positions of the first 5 zigzag-order coefficients 

fdefine Q01_POS 1 

#define Q10_POS 8 

#define Q20_POS 16 

#define Q11_P0S 9 

#define Q02„POS 2 

/* 

* Determine whether block smoothing is applicable and safe. 

* We also latch the current states of the coef„bits[] entries for the 

* AC coefficients; otherwise, if the input side of the decompressor 

* advances into a new scan, we might think the coefficients are Imown 
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* more accurately than they really are. 
*/ 

LOCAL (boolean) 

smoothing^ok { j_decompress_ptr cinfo) 

{ 

itiy_coef_ptr coef = (my_coef_ptr) cinfo->coef; 
boolean sinoothing_useful = FALSE; 
int ci, coefi; 

jpeg_coinponent_info *coinpptr; 

JQUAWT.TBL * qtable; 

int * coef_bits; 

int * coef__bits_latch; 

if (! cinf o- >pr ogres si ve_mode || cinf o->coef_bits ~= NULL) 
return FALSE; 

/* Allocate latch area if not already done */ 
if {coef->coef_bits„latch == NULL) 
coef->coef_bits_latch = (int *) 

{*cinfo->mem->alloc_small) ( (j_coitimon_ptr) cinfo, JPOOLJMAGE, 
cinfo->niJim_coinponents * 
(SAVED_COEFS * SIZEOF ( int) ) ) ; 
coef„bits_latch = coef->coef_bits_latch; 

for (ci = 0, compptr = cinf o->comp_info; ci < cinf o->nuitt_components ; 
ci++, compptr++) { 
/* All components' quantization values must already be latched. */ 
if ( (qtable = compptr->quant_table) == NULL) 
return FALSE; 

/* Verify DC & first 5 AC quantizers are nonzero to avoid zero-divide. */ 
r-. if (qtable->quantval[0] 0 | t 

qtable->quantval[Q01__POS] == 0 
4J qtable->quantval[Q10„POS] == 0 
f:; qtable->quantval[Q20_POS] == 0 

qtable->quantval [Q11_P0S3 == 0 

qtable->quantvalfQ02_POS3 == 0) 
■^.j return FALSE; 

/* DC values must be at least partly known for all coraponents . */ 
'^-^ coef_bits = cinfo->coef_bits [ci] ; 
C:; if (coef_bits[0] < 0) 
fi: return FALSE; 

' /* Block smoothing is helpful if some AC coefficients remain inaccurate. */ 

for (coefi = 1; coefi <= 5; coefi+ + ) { 
Li; coef_bits_latch [coefi] = coef_bits [coef i] ; 
if (coef_bits [coef i] 1= 0) 

smoothing„useful = TRUE; 

yil } 

coef_bits„latch += SAVED_COEFS; 

3 

f^vreturn smoothing_usef ul ; 



* Variant of decompress_data for use when doing block smoothing. 

*/ 

METHODDEF{int) 

decompress_smooth_data ( j„decompress_ptr cinfo, JSAMPIMAGE output^buf) 
{ 

itvy— coef^ptr coef = {my„coef_ptr) cinfo->coef; 
JDIMENSION last_iMCU_row = cinf o->total_iMCU_rows - 1; 
JDIMENSION block_num, last_block_column; 
int ci, block_row, block_rows, access_rows; 
JBLOCKARRAY buffer; 

JBLOCKROW buffer_ptr, prev_block_row, next__block_row; 

JSAMPARRAY output_ptr; 

JDIMENSION output_col; 

jpeg„component_inf o * compptr; 

inverse„DCT_method__p tr invers e_DCT ; 

boolean first_row, last__row; 

JBLOCK workspace; 

int *coef„bits; 

JQUANT„TBL *quanttbl; 

INT32 QOO,Q01,Q02,Q10,Q11,Q20, num; 

int DCl , DC2 , DC3 , DC4 , DCS , DC6 , DC7 , DCS , DC9 ; 

int Al, pred; 
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/* Force some input to be done if we are getting ahead of the input. */ 
while (cinf o->input_scan„nuinber <= cinf o->output_scan_number && 
! cinf o->inputctl->eoi_reached) { 
if (cinf o->input_scan_nuinber == cinf o->output_scan_nuinber) { 

/* If input is working on current scan, we ordinarily want it to 

* have completed the current row. But if input scan is DC, 

* we want it to keep one row ahead so that next block row's DC 

* values are up to date. 
*/ 

JDIMENSION delta = (cinfo->Ss ==0) ? 1 : 0; 
if {cinfo->input„iMCU_row > cinf o->output_iMCU_row+delta) 
break; 
} 

if ( (*cinf o->inputctl->consume_input) (cinf o) == JPEG_SUSPENDED) 
return JPEG_SUSPENDED ; 



/* OK, output from the virtual arrays. */ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++j compptr++) { 
/* Don't bother to IDCT an uninteresting component. */ 
if ( ! compptr->component_needed) 
continue; 

/* Count non-dummy DCT block rows in this iMCU row. */ 
if (cinfo->output_iMCU_row < last_iMCU_row) { 
block_rows = compptr->v_samp_f actor ; 

access^rows = block_rows * 2; /* this and next iMCU row */ 
last_row = FALSE; 
} else { 

/* NB: Ccui't use last_row„height here; it is input-s ide -dependent ! */ 
block„rows = (int) (compptr->height_in__blocks % compptr ->v_samp_f actor) 
if (block_rows == 0) block_rows = compptr- >v_s amp„f actor ; 
access_rows = block_rows; /* this iMCU row only */ 
last_row = TRUE; 

} 

/* Align the virtual buffer for this component, */ 
if (cinfo->output_iMCU„row > 0) { 

access_rows += compptr- >v_samp_f actor ; /* prior iMCU row too */ 
buffer = (*cinfo->mem->access_virt_barray) 
( ( j_common__ptr) cinfo, coef ->whole_image [ci] , 
{cinfo->output_iMCU„row - 1} * compptr->v„samp„f actor, 
(JDIMENSION) access„rows, FALSE); 

buffer += compptr->v_samp_f actor; /* point to current iMCU row */ 
first_row = FALSE; 
} else { 

buffer = {*cinfo->mem->access„virt_barray) 
{ ( j_common_ptr ) cinfo, coef->whole_image [ci] , 
(JDIMENSION) 0, (JDIMENSION) access_rows, FALSE); 
first„row = TRUE; 

} 

/* Fetch component -dependent info */ 

coef_bits = coef->coef_bits_latch + (ci * SAVED„COEFS) ; 
quanttbl = compptr->quant_table; 
QOO = quant tbl - >quan tval [0] ; 
QOl = quanttbl ->quan tval [Q01_POS] ; 
QIO = guanttbl->quantval[Q10_POS] ; 
Q20 = quanttbl ->quantval [Q20_POS] ; 
Qll = quanttbl->quantval[Qll_POS] ; 
Q02 = quant tbl -'>quan tval [Q02_POS] ; 
inverse_DCT = cinf o->idct->inverse_DCT [ci] ; 
output_ptr = output_buf [ci] ; 

/* Loop over all DCT blocks to be processed. */ 
for (block_row - 0; block_row < block^rows; block_row++) { 
buffer_ptr = buf fer[ blocker ow] ; 
if {first_row ScSe block_row == 0) 
prev_block_row = buffer_ptr; 
else 

prev_block_row = buf f er [block_row-l] ; 

if (last_row && block_row == block_rows-l) 
next_block_row = buffer__ptr; 
else 

next_block_row = buf fer [block_row+l] ; 

/* We fetch the surrounding DC values using a sliding-register approach 
* Initialize all nine here so as to do the right thing on narrow pics. 
*/ 

DCl = DC2 = DC3 = (int) prev_block_row[0] [0] ; 
DC4 = DCS = DC6 = (int) buf f er_ptr [0] [0] ; 
DC7 = DCS ~ DC9 = (int) next_block_rowE 0] [ 0] ; 
output_col = 0 ; 

last_block_colxainn = compptr->width„in_blocks - 1; 
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for (block_num = 0; block_num <= last_block„coluinn; block„num++) 
/* Fetch current DCT block into workspace so we can modify it. */ 
jcopy_block„row(buffer_j)tr, (JBLOCKROW) workspace, (JDIMENSION) 1) 
/* Update DC values */ 
if (block__num < last_block_coluinn) { 

DC3 = (int) prev_block_row[l] [0] ; 

DC6 = (int) buffer_ptr[13 [0] ; 

DC9 = (int) next„block_row[l] [0] ; 

/* Compute coefficient estimates per K.8. 

* An estimate is applied only if coefficient is still zero, 

* and is not known to be fully accurate. 
*/ 

/* ACOl */ ^ ^ 

if { (Al=coef_bits[13 ) != 0 && workspace [1] ==0) { 
num = 36 * QOO * (DC4 - DC6) ; 
if (num >= 0) { 

pred = (int) (((Q01«7) + num) / (Q01«8)); 
if (Al > 0 && pred >= (l«Al)) 
pred = (1«A1)-1; 
) else { 

pred = (int) ( ( (Q01«7) - num) / (Q01«8)); 
if (Al > 0 && pred >- {l«Al)) 

pred = (1«A1)-1; 
pred = -pred; 

} 

workspace [1] = (JCOEF) pred; 

} 

/* ACIO */ 

if ( {Al=coef_bits[2 3 ) != 0 && workspace [8] ==0) { 
num = 36 * QOO * (DC2 - DCS); 
if (num >= 0) { 

pred = (int) (((Q10«7) + num) / (Qi0«8)); 
if (Al > 0 &Sc pred {l«Al)) 
pred = (1«A1)-1; 
} else { 

pred = (int) (((Q10«7) - num) / (Q10«8)); 
if (Al > 0 &Se pred >= (l«Al) ) 

pred = (1«A1)-1; 
pred = -pred; 

} 

workspace [83 ^ (JCOEF) pred; 

} 

/* AC20 */ 

if ( (Al=coef_bits[3] ) i= 0 && workspace [16] 0) { 
num = 9 * QOO * (DC2 + DCS - 2*DC5) ; 
if (num >= 0) { 

pred = (int) (((Q20«7) + niim) / (Q20«8)); 
if (Al > 0 pred >= (l«Al)) 
pred = {1«A1)-1; 
} else { 

pred = (int) (((Q20«7) - num) / (Q20«8)); 
if (Al > 0 && pred >~ (l«Al) ) 

pred = (1«A1)-1; 
pred = -pred; 

workspace [16] = (JCOEF) pred; 

} 

/* ACll */ , 
if ( (Al=coef„bits[4] ) != 0 && workspace [9] ==0) { 
num = 5 * QOO * (DCl - DC3 - DC7 + DC9) ; 
if (num >= 0) { 

pred = (int) (((Qll«7) + num) / (Qll«8)); 
if (Al > 0 && pred >- (l«Al)) 
pred = (1«A1)-1; 
} else { 

pred = (int) (((Qll«7) - num) / (Qll«8)); 
if (Al > 0 && pred >= (1«A1)) 

pred = (1«A1)-1; 
pred = -pred? 

workspace [9] = (JCOEF) pred; 

} 

/* AC02 */ 

if ( (Al=coef„bits[5] ) 1= 0 workspace [2] == 0) { 
num = 9 * QOO * (DC4 + DC6 - 2*DC5); 
if (num >= 0) { 

pred = (int) (((Q02«7) +num) / (Q02«8) ) ; 
if (Al > 0 && pred >= (l«Al) ) 
pred = (1«A1)-1; 



} else { 

pred = (int) (((Q02«7) - num) / (Q02«8)); 
if (Al > 0 && pred >= (1«A1)) 

pred = (1«A1)-1; 
pred = -pred; 

workspace [2] = (JCOEF) pred; 
/* OK, do the IDCT */ 

{*inverse_DCT) (cinfo, compptr, (JCOEFPTR) workspace, 

output_ptr , output_col ) ; 
/* Advance for next column */ 
DCl = DC2; DC2 = DC3j 
DC4 = DCS; DC5 = DC6; 

DC7 = DCS; DCS = DC9; _ ^ 

buffer_ptr++, prev_block_row++ , next_block_row++; 
output_col += compptr->DCT_scaled_size; 

outputjtr += compptr->DCT_scaled_size; 

} 

} 

if (++(cinfo->output_iMCU_row) < cinf o->total_iMCU_rows ) 

return JPEG_ROW„COMPLETED; 
return JPEG_SCAN„COMPLETED ; 

} 

#endif /* BLOCK_SMOOTHING_SUP PORTED */ 

/* 

f Unitialize coefficient buffer controller. 

j^Sit^^d^cotLcontroller < j_decompress_^tr cinfo, boolean need_full„buf f er) 
""iiy_coef jtr coef; 

"^coef = (my_coef_ptr) . ^^^^r ™7.r.-i=. 

© (*cinfo->mem->alloc_small) ( ( j_coinraon_ptr) cmfo, JPOOL_IMAGE, 
niii SIZEOF(ray_coef_controller) ) ; 

''cinfo->coef = (struct jpeg_d_coef_contr oiler *) coef; 
^ coef->pub.start_input_pass = start_input_pass ; 
F;boef->pub.start_output_pass = start_output_pass; 
4k€def BLOCK_SMOOTHIKG„SUPPORTED 
!;rboef->coef J3its_latch = NULL; 
#Jhdif 

..J/* Create the coefficient buffer, */ 

Uit (need^fulljDuffer) { 

flfdef D_J1ULTISCAN_FILES„SUPP0RTED 

/* Allocate a full-image virtual array for each component,/ 

/* padded to a multiple of samp_f actor DCT blocks m each direction. 

/* Note we ask for a pre-zeroed array. */ 

int ci, access_rows; 

jpeg_component_inf o *compptr; 

for (ci - 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
access_rows = compptr->v_samp_f actor; 
#ifdef BLOCK_SMOOTHING_SUPPORTED 

/* If block smoothing could be used, need a bigger window */ 
if {cinf o->pr ogres si ve„mode) 
access__rows *= 3; 

^^^^^^coef->whole_image[ci] = {*cinf o->mem->request_virt_barray) 
{ (j_common_ptr) cinfo, JPOOL_IMAGE, TRUE, ^ , ^ 
(JDIMENSION) jround_up{ (long) compptr->width_in_blocKs, 

(long) compptr->h_samp_f actor) , 
(JDIMENSION) jround_up( (long) compptr- >he i ght_in_bl ocks , 

(long) coinpptr->v_samp_f actor) , 
(JDIMENSION) access_rows) ; 

> 

coef->pTib.consume„data - consume_clata; 

coef->pub.decompress_data = decompress_data; . ^ 

coef ->pub, coef _arrays = coef->whole_image; /* link to virtual arrays 
#else 

ERREXIT(cinfo, JERR_NOT_COMPILED) ; 
#endif 
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/* We only need a single-MCU buffer. */ 
JBLOCKROW buffer; 
int i; 

buffer = (JBLOCKROW) 

(*cinfo->mem->alloc_large) ( ( j_comraon_ptr) cinfo, JPO0L_IMAGE, 
D_MAX_BLOCKS_IN_MCU * SIZEOF ( JBLOCK) ) ; 
for (i = 0; i < D_MAX_BLOCKS_.IN_MCU ; i + + ) { 

coef->MCU__buf fer [i] = buffer + i; 

coef->pub.consuine_data = duinmy_consuine_.data; 
coef->pub,decompress_data = decompress_onepass ; 
coef->pub.coef„arrays = NULL; /* flag for no virtual arrays */ 
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* jdcolor.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains output colorspace conversion routines. 
*/ 

#define JPEG_INTEKNALS 
#include "j include. h" 
#include "jpeglib.h" 



/* Private subobject */ 

typedef struct { 

struct jpeg_color_deconverter pub; /* public fields */ 

/* Private state for ycc->RGB conversion */ 

int * Cr_r_tab; /* => table for Cr to R conversion */ 

int * Cb_b_tab; /* => table for Cb to B conversion */ 

INT32 * Cr_g_.tab; /* table for Cr to G conversion */ 

INT32 * Cb__g_tab; /* => table for Cb to G conversion */ 

} ray_color_deconverter; 

typedef my_color_deconverter * my_cconvert_ptr; 



YcbCr -> RGB conversion: most common case **************/ 

/^:^ 

^lYCbCr is defined per CCIR 601-1, except that Cb and Cr are 

f^ii normalized to the range 0, .MAXJSAMPLE rather than -0.5 0.5. 

The conversion equations to be implemented are therefore 
O R = Y + 1.40200 * Cr 

m G = Y - 0.34414 * Cb - 0.71414 * Cr 
B = Y + 1.77200 * Cb 

where Cb and Cr represent the incoming values less CENTER JS AMPLE, 
if] (These numbers are derived from TIFF 6.0 section 21, dated 3-June-92.) 

To avoid floating-point arithmetic, we represent the fractional constants 
?* as integers scaled up by 2*^16 (about 4 digits precision) ; we have to divide 
|4 the products by 2^16, with appropriate rounding, to get the correct answer. 

Notice that Y, being an integral input, does not contribute any fraction 
S so it need not participate in the rounding. 

1% For even more speed, we avoid doing any multiplications in the inner loop 
by precalculating the constants times Cb and Cr for all possible values. 

13 For 8-bit JSAMPLEs this is very reasonable (only 256 entries per table) ; 
for 12-bit samples it is still acceptable. It's not very reasonable for 
16-bit samples, but if you want lossless storage you shouldn't be changing 

* colorspace anyway. 

* The Cr=>R and Cb=>B values can be rounded to integers in advance; the 

* values for the G calculation are left scaled up, since we must add them 

* together before rounding. 

*/ 

#define SCALEBITS 16 /* speediest right-shift on some machines */ 

#define ONE_HALF {(INT32) 1 « (SCALEBITS-1) ) 

#define FIX(x) ({INT32) ( (x) * {1L« SCALEBITS) + 0.5)} 



/* 

* Initialize tables for YCC->RGB colorspace conversion. 
*/ 

LOCAL (void) 

build__ycc„rgb_ table ( j_decompress_ptr cinfo) 

{ 

my_cconvert_ptr c convert = (my_cconvert_ptr) cinfo->c convert; 
int i; 
INT32 x; 
SHIFT„TEMPS 

cconvert->Cr_r_tab = (int *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+l) * SIZEOF (int) ) ; 
cconvert->Cb_b_tab - (int *) 
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(*cinfo->mem->alloc„small) ( ( j_coinmon_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF { int ) ) ; 
cconvert->Cr_g_tab = {INT32 *) 

(*cinfo->mem->alloc_small) ( { j_common_^tr) cinfo, JPOOL_IMAGE, 
{MAXJSAMPLE+1 ) * SIZEOF ( INT32 )) ; 
cconvert->Cb_g_tab = (INT32 *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF (IKT32 )} ; 

for (i = 0, X = -CENTERJSAMPLE; i <= MAXJSAMPLE; i++, x++) { 

/* i is the actual input pixel value, in the range 0. .MAXJSAMPLE */ 
/* The Cb or Cr value we are thinking of is x = i - CENTERJSAMPLE */ 
/* Cr=>R value is nearest int to 1.40200 * x */ 
cconvert->Cr_r„tab[i] = (int) 

RIGHT_SHIFT(FIX(1.40200) * X + ONE_HALF, SCALEBITS) ; 
/* Cb=>B value is nearest int to 1.77200 * x */ 
cconvert->Cb_b_tab[i] = (int) 

RIGHT_SHIFT( FIX (1.77200) * x + ONE„HALF, SCALEBITS); 
/* Cr=>G value is scaled-up -0.71414 * x */ 
cconvert->Cr_g_tab[i] = {- FIX (0 . 71414) ) * x; 
/* Cb=>G value is scaled-up -0.34414 * x */ 

/* We also add in ONE_HALF so that need not do it in inner loop */ 
cconvert->Cb„g_tab[i] = (- FIX(0 . 34414) } * x + ONE.HALF; 

} 



* Convert some rows of samples to the output colorspace. 

* Note that we change from noninterleaved, one-plane-per-component format 
*,,to interleaved-pixel format. The output buffer is therefore three times 
Bas wide as the input buffer. ^ 

mh starting row offset is provided only for the input buffer. The caller 
l^can easily adjust the passed output_buf value to accommodate any row 
offset required on that side. 

43 

l5^H0DDEF(void) 

yi!l;_rgb_convert ( j_decompress_jptr cinfo, 
,n JSAMPIMAGE input^buf , JDIMENSION input„row, 

5; JSAMPARRAY output jDuf, int num^rows) 

t my_cconvert_ptr cconvert = (my„cconvert jtr) cinf o->cconvert; 
: register int y, cb, cr; 
^'""'tegister JSAMPROW outptr; 

ttegister JSAMPROW inptrO, inptrl, inptr2; 
iSregister JDIMENSION col; 

^ -tTDIMENSION nimt-Cols = cinf o->output_width; 

'■^1/* copy these pointers into registers if possible */ 

r-^^register JSAMPLE * range_limit = cinf o->sample_range_limit; 

^iegister int * Crrtab = cconvert->Cr_r__tab; 

Ertegister int * Cbbtab = cconvert->Cb_b_tab; 

register INT32 * Crgtab = cconvert->Cr_g_tab; 

register INT32 * Cbgtab - cconvert ->Cb_g_tab; 

SHIFT_TEMPS 

while (--num_rows >= 0) { 

inptrO = input_buf [0] Cinput_row] ; 

inptrl = input_buf [11 [input_row] ; 

inptr2 = input„buf [2 ] [input_row] ; 

input„row++ ; 

outptr = *output„buf ++; 

for (col = 0? col < num_cols; col++) { 

y = GET JSAMPLE { inptrO t col ] ) ; 

cb = GETJSAMPLE (inptrl [col] ) ; 

cr = GETJSAMPLE(inptr2[col3) ; , . ^ ^ ^ */ 

/* Range -limiting is essential due to noxse introduced by DCT losses. */ 
outptr [RGB_RED] = range„limit[y + Crrtab[cr]]; 
outptr [RGB_GREEN] = range„limit [y + 

((int) RIGHT^SHIFT (Cbgtab [cb] + Crgtab [cr] , 
SCALEBITS) ) ] ; 
outptr [RGB_BLUE] = range„limit [y + Cbbtab[cb]]; 
outptr += RGB_PIXELSIZE; 

} 

} 



Cases other than YCbCr -> RGB **************/ 
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* Color conversion for no colorspace change: just copy the data, 

* converting from separate-planes to interleaved representation. 
*/ 

METHODDEF (void) 

null„convert ( j„dec empress jtr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY output_buf , int num_rows) 

{ 

register JSAMPROW inptr, outptr; 
register JDIMENSION counts- 
register int num_components = cinf o->num_components; 
JDIMENSION num_cols = cinf o->output_width; 
int ci; 

while ( — num_rows >= 0) { 

for (ci = 0; ci < num_components ; ci++) { 
inptr = input_buf [ci] [input_row] ; 
outptr = output_buf [0] + ci; 

for (count = num_.cols; count > 0; count — ) { 
*outptr = *inptr++; /* needn't bother with GETJSAMPLEO here */ 
outptr += num_components ; 

} 

} 

input„row++; 
output_buf + + ; 

} 

} 

/m 

f J: Color conversion for grayscale: just copy the data, ^ 

S^^This also works for YCbCr -> grayscale conversion, in which 

ii;we just copy the Y (luminance) component and ignore chrominance, 

ll 

iy^5'H0DDEF(void) 

giayscale_convert ( j„decompress_^tr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
f1| JSAMPARRAY output Jouf, int num_rows) 

jcopy_sainple_rows(input__buf [0] , (int) input_row, output„buf, 0, 
h^' niim_.rows, cinf o->output„width) ; 

Convert grayscale to RGB: just duplicate the graylevel three times. 
^^^'This is provided to support applications that don't want to cope 
Si with grayscale as a separate case. 

*7 

METHODDEF (void) 

gray__rgb_convert ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY output_buf , int n\im„rows) 

{ 

register JSAMPROW inptr, outptr; 
register JDIMENSION col; 

JDIMENSION num_cols = cinf o->output_width; 

while ( — nuin_rows >= 0) { 

inptr = input_buf [0] [input_row++] ; 

outptr = *output_buf ++; 

for (col = 0; col < num_cols; col++) { 

/* We can dispense with GETJSAMPLEO here */ 

outptr [RGB_RED] = outptr [RGB„GREEN] = outptr [RGB_BLUE] = inptr [col]; 
outptr += RGB„PIXELSIZE; 

} 

} 

} 



/* 

* Adobe-Style YCCK->CMYK conversion. 

* We convert YCbCr to R=l-C, G=:l-M, and B=l-Y using the same 

* conversion as above, while passing K (black) unchanged. 
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* We assume build_ycc_rgb„table has been called. 
*/ 

METHODDEF(void) 

ycck_cmyk„convert ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION input_row, 
JSAMPARRAY output_buf, int niam_rows) 

^ my_cconvert_ptr cconvert = (niy„cconvert_j)tr) cinf o->cconvert ; 
register int y, cb, cr; 
register JSAMPROW outptr; 

register JSAMPROW inptrO , inptrl, inptr2, inptr3; 
register JDIMENSION col; 

JDIMENSION num_cols = cinf o->output_width; 
/* copy these pointers into registers if possible */ 
register JSAMPLE * range_limit = cinf o->sample_range_liinit ; 
register int * Crrtab = cconvert->Cr_r_tab; 
register int * Cbbtab = cconvert->Cb_b_tab; 
register INT32 * Crgtab = cconvert->Cr_g_tab; 
register INT32 * Cbgtab = cconvert->Cb„g_tab; 
SHIFT_TEMPS 

while ( — nuiri_rows >= 0) { 

inptrO = input_buf [0] [input_row] ; 
inptrl = input„buf [1] [input„row] ; 
inptr2 = input_buf [2] [input„row] ; 
inptr3 = input_buf [3] [input_row] ; 
input_row++; 
outptr = *output_buf ++; 
for (col = 0; col < num_cols; col++) { 
y = GET JSAMPLE { inptrO [ col ] ) ; 
cb = GETJSAMPLE (inptrl [col] ) ; 
LJ cr = GETJSAMPLE (inptr2 [col] ) ; 

/* Range-limiting is essential due to noise introduced by DCT losses. 
S outptr[0] = range_limit [MAX JSAMPLE - (y + Crrtab[cr] ) ] ; /* red */ 

outptr [1] = range_liinit [MAX JSAMPLE - (y + /* green */ 

m ((int) RIGHT_SHIFT (Cbgtab [cb] + Crgtab [cr] , 

;i SCALEBITS) ) ) ] ; 

2 outptr [2] = range_liiait[MAXJSAMPLE - (y + ClDbtab [cb] ) ] ; /* blue */ 
/* K passes through unchanged */ 

outptr [3] = inptr3[col]; /* don't need GETJSAMPLE here */ 
outptr += 4; 

m } 
s } 

m 

Empty method for start_pass. 
ti|rHODDEF{void) 

it;art_pass_dcolor ( j_decompress_ptr cinfo) 

{ 

/* no work needed */ 

} 



* Module initialization routine for output colorspace conversion. 

*/ 

GLOBAL (void) . 
jinit_color_deconverter ( j„decompress_ptr cmfo) 

{ 

my_cconvertjtr cconvert; 
int ci? 

cconvert = (my_cconvert_ptr) 

{*cinfo->mem->alloc_small) ( ( j_common_ptr ) cinfo, JPOOL_IMAGE, 
SIZEOF (my_color_deconverter) ) ; 
cinfo->cconvert = (struct jpeg„color_deconverter *) cconvert; 
cconvert->pub.start_pass = start_pass_dcolor ; 

/* Make sure num_components agrees with jpeg„color_space */ 
switch (cinfo->jpeg„color_space) { 
case JCS_GRAYSCALE: 

if (cinf o->num_components != 1) 

ERREXIT { C info , JERR_BAD__J_COLORSPACE ) ; 

break; 
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case JCS_RGB: 
case JCS_ycbCr: 

if {cinf o->n\jirucomponents != 3) 

ERREXIT{cinfo, JERR_BAD_J_COLORSPACE) ; 

break; 

case JCS_CMYK: 
case JCS_YCCK: 

if (cinf o->nuin_coinponents i= 4) 

ERREXIT ( cinf o , JERR_BAD__J_COLORSPACE ) ; 

break; 

default: /* JCS„UNKNOWN can be anything */ 

if (cinf o->nunucomponents < 1) 

ERREXIT ( cinf o, JERR_BAD„J„COLORSPACE) ; 
break; 

} 

/* Set out_color_components and conversion method based on requested space. 

* Also clear the coinponent„needed flags for any unused components, 

* so that earlier pipeline stages can avoid useless computation. 
*/ 

switch (cinf o->out_color„space) { 
case JCS_GRAYSCALE: 

cinf o->out„color„components = 1; 

if (cinfo->jpeg_color_space == JCS_GRAYSCALE | | 

cinf o->jpeg_color_space JCS_ycbCr) { 

cconvert->pub.color_convert = grayscale_convert; 

/* For color->grayscale conversion, only the Y (0) component is needed */ 

for (ci = 1; ci < cinf o->num_components; ci++) 
cinf o->coinp_inf oEci] . component^needed ~ FALSE; 
} else 

r>l ERREXIT ( cinf o, JERR_CO]WERSION„N0TIMPL) ; 
'■^j; break; 

==-fase JCS„RGB: 

J' cinfo->out„color_components = RGB_PIXELSIZE; 

if (cinf o->jpeg_color_space == JCS_YCbCr) { 
djl cconvert->pub, color^convert = ycc_rgb_convert; 
H bui 1 d_yc c_r gb_t ab 1 e ( c inf o ) ; 

^'^"^ } else if (cinf o->jpeg_color_space == JCS_GRAYSCALE) 

cconvert->pub. color_convert = gray_rgb__convert ; 
Ij^ } else if (cinf o-> jpeg_color_space == JCS_RGB && RGB. 

cconvert->pub* col ©reconvert = null_convert; 
LJ } else 

f; .; ERREXIT (cinf o, JERR_CONVERSION_NOTIMPL) ; 
i'l break; 

tpase JCS_CMYK; 

Z'j.. cinf o->out_color_components = 4; 

if (cinfo->jpeg_color_space == JCS_YCCK) { 

cconvert->pub. col ©reconvert = ycck_cmyk_convert; 

bui ld_ycc_rgb__table (cinf o) ; 
} else if (cinf o->jpeg„color„space == JCS_CMYK) { 

cconvert->pub. col ©reconvert = null„convert ; 
} else 

ERREXIT ( cinf o, JERR_C03WERSI0N„N0TIMPLJ ; 
break; 

default; 

/* Permit null conversion to same output space */ 
if (cinf o->out_color_space == cinf o->jpeg_color_space) { 

cinf o->out_color_components = cinf o->num_components; 

cconvert->pub.color„convert = null_convert; 
} else /* unsupported non-null conversion */ 

ERREXIT ( cinf o , JERR_CONVERSION_NOTIMPL ) ; 
break; 

} 

if (cinf o->quantize_colors) 

cinf o->output_components =1; /* single colormapped output component */ 
else 

cinf o->output_components = cinf o->out„color_components; 

} 



{ 

_PIXELSIZE == 3) { 
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/* 

* jddctmgr^c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the inverse-DCT management logic. 

* This code selects a particular IDCT implementation to be used, 

* and it performs related housekeeping chores. No code in this file 

* is executed per IDCT step, only during output pass setup. 
* 

* Note that the IDCT routines are responsible for performing coefficient 

* dequantization as well as the IDCT proper. This module sets up the 

* dequantization multiplier table needed by the IDCT routine. 
*/ 

#define JPEG„INTERHALS 
# include "jinclude.h" 
# include "jpeglib.h" 

tinclude "jdct.h" /* Private declarations for DCT subsystem */ 



/* 

* The decompressor input side (jdinput.c) saves away the appropriate 

* quantization table for each component at the start of the first scan 

* involving that component. (This is necessary in order to correctly 

* decode files that reuse Q- table slots.) 

* When we are ready to make an output pass, the saved Q-table is converted 

* to a multiplier table that will actually be used by the IDCT routine. 

* The multiplier table contents are IDCT -method-dependent . To support 
application changes in IDCT method between scans, we can remake the 

fr.. multiplier tables if necessary. 

In buffered- image mode, the first output pass may occur before any data 
-J^has been seen for some components, and thus before their Q- tables have 
,f^:;been saved away. To handle this case, multiplier tables are preset 

to zeroes; the result of the IDCT will be a neutral gray level. 



M"" Private subobject for this module */ 
typedef struct ( 

^ struct jpeg_inverse_dct pub; /* public fields */ 

pr;/* This array contains the IDCT method code that each multiplier table 
* is currently set up for, or -1 if it's not yet set up. 

i:.} * The actual multiplier tables are pointed to by dct_table in the 

v,„. ; * per-component comp„info structures. 
*/ 

L-int cur_method[MAX_COMPONENTS] ; 
Fimy_idct„contr oiler ; 

typedef my„idct_controller * my_idct_ptr; 



/* Allocated multiplier tables: big enough for any supported variant */ 

typedef union { 

ISLOW_MULT_TYPE islow_array [DCTSIZE2 ] ; 
#ifdef DCT_IFAST_SUPPORTED 

IFAST_MULT_TYPE if ast_array [DCTSIZE2 ] ; 
#endif 

#ifdef DCT_FLOAT_SUPPORTED 

FLOAT_MULT_TyPE f loat_array [DCTSIZE2 ] ; 
#endif 

} multiplier_table; 



/* The current scaled-IDCT routines require ISLOW-style multiplier tables, 
* so be sure to compile that code if either ISLOW or SCALING is requested. 

*/ 

#ifdef DCT_ISLOW_SUPPORTED 
#define PROVIDE_ISLOW_TABLES 
#else 

#ifdef IDCT_SCALING_SUPPORTED 
#define PROVIDE_ISLOW_TABLES 
#endif 
#endif 
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/* 

* Prepare for an output pass, 

* Here we select the proper IDCT routine for each component and build 

* a matching multiplier table. 
*/ 

METHODDEF(void) 

start_pass ( j„decompress__ptr cinfo) 
{ 

my_idct_ptr idct = (mY_idct_ptr) cinfo->idct; 
int ci, i; 

jpeg_component_inf o *compptr; 
int method = 0; 

inverse_DCT_method_:ptr method_ptr - NULL; 
JQUAMT_TBL * qtbl ; 

for (ci ~ 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components; 
ci++, compptr++) { 
/* Select the proper IDCT routine for this component's scaling */ 
switch (compptr->DCT_scaled_size) { 
#ifdef IDCT_SCALING_SUPPORTED 
case 1: 

method_ptr = jpeg_idct„lxl; 

method = aDCT_ISLOW; /* jidctred uses islow-style table */ 
break; 
case 2: 

method_ptr = jpeg_idct_2x2 ; 

method = JDCT„ISLOW; /* jidctred uses islow-style table */ 
break; 
case 4: 

method_ptr = jpeg_idct_4x4 ; 

method = JDCT_ISLOW; /* jidctred uses islow-style table */ 
UJ break; 
#§|idif 

case DCTSIZE: 

switch {cinfo->dct_method) { 
#ifdef DCT_ISLOW_SUPPORTED 
case JDCT_ISLOW: 
method_ptr = jpeg„idct_islow; 
method = JDCT_ISLOW; 
break; 
f^dif 

Mfdef DCT_IFAST_SUPPORTED 

Li. case JDCT^IFAST: 

L... method_ptr = jpeg_idct_if ast ; 

Li method = JDCT_IFAST; 

fll break; 
iliidif 

ftifdef DCT„FLOAT„SUPPORTED 
r| case JDCT.J'LOAT: 

raethod_ptr = jpeg_idct_f loat ; 

method = JDCT_FLOAT; 

break; 
#endif 

default: 

ERREXIT( cinfo, JERR„NOT_COMPILED) ; 
break; 
} 

break; 
default: 

ERREXITl (cinfo, JERR_BAD_DCTSIZE, compptr->DCT_scaled_size} ; 
break; 

} 

idct->pub. inverse„DCT[ci] = method_ptr; 

/* Create multiplier table from quant table. 

* However, we can skip this if the component is uninteresting 

* or if we already built the table. Also, if no quant table 

* has yet been saved for the component, we leave the 

* multiplier table all-zero; we'll be reading zeroes from the 

* coefficient controller's buffer anyway. 
*/ 

if ( ! compptr ->coraponent_needed | | idct->cur_method[ci] == method) 

continue; 
qtbl - compptr->quant_table; 

if (qtbl -~ NULL) /* happens if no data yet for component */ 

continue; 
idct->cur_methodCci] = method; 
switch (method) { 
#ifdef PROVIDE_ISLOW_TABLES 
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case JDCT_ISLOW: 
{ 

/* For LL&M IDCT method, multipliers are equal to raw quantization 

* coefficients, but are stored as ints to ensure access efficiency. 
*/ 

ISLOW_KULT_TYPE * ismtbl = (ISLOW_MULT_TyPE *) compptr->dct_table ; 
for (i = 0; i < DCTSIZE2? i++) { 

ismtbl [i] = {ISLOW_MULT_TYPE) qtbl->quantval [i] ; 

} 

} 

break; 

#endif 

#ifdef DCT„IFAST_SUPPORTED 
case JDCT_IFAST: 
{ 

/* For AAScN IDCT method, multipliers are equal to quantization 

* coefficients scaled by scalef actor [row] *scalef actor [col] , where 

* scalefactor [0] = 1 

* scalefactor [k] = cos(k*PI/16} * sqrt(2) 

* For integer operation, the multiplier table 

* IFAST_SCALE_BITS . 
*/ 

IFAST_MULT_TYPE * ifmtbl = { IFAST_]y[ULT_TYPE *) compptr->dct_table ; 
#define CONST_BITS 14 

static const INT16 aanscales [DCTSIZE2] = { 

/* precomputed values scaled up by 14 bits */ 
16384, 22725, 21407, 19266, 16384, 12873, 8867, 4520, 
31521, 29692, 26722, 22725, 17855, 12299, 6270, 
29692, 27969, 25172, 21407, 16819, 11585, 5906, 
26722, 25172, 22654, 19266, 15137, 10426, 5315, 
22725, 21407, 19266, 16384, 12873, 8867, 4520, 
17855, 16819, 15137, 12873, 10114, 6967, 3552, 
12299, 11585, 10426, 8867, 6967, 4799, 2446, 
6270, 5906, 5315, 4520, 3552, 2446, 1247 



for k=1..7 
is to be scaled by 



22725, 
21407, 
19266, 
16384, 
12873, 

8867, 

4520, 
}; 

SHIFT_TEMPS 



for (i = 0; i < DCTSIZE2 ? i++) { 
ifmtbl [i] = (IFAST„MULT„TYPE) 

DESCALE (MULTIPLY16V16 ( (IHT32 ) qtbl->quantval [i] , 
{ INT32 ) aanscales [ i ] ) , 
CONST_BITS-IFAST„SCALE_BITS} ; 



} 



} 



Li, break; 
4^8^ndif 

##fdef DCT_FLOAT_SUPPORTED 
fll case JIX:T_FIjOAT: 

/* For float AA&N IDCT method, multipliers are equal to quantization 
CJ * coefficients scaled by scalefactor [row] *scalef actor [col] , where 
S * scalefactor [0] = 1 

* scalefactor [k] = cos{k*PI/16) * sqrt{2) for k=l.,7 
*/ 

FLOAT_MULT_TYPE * fmtbl = { FLOAT_MULT_TyPE *) compptr->dct_table; 
int row, col; 

static const double aanscalef actor [DCTSIZE] = 
1.0, 1.387039845, 1.306562965, 1.175875602, 
1.0, 0.785694958, 0.541196100, 0.275899379 

}; 



{ 



i = 0; 

for {row = 0; row < DCTSIZE; row++) { 
for (col = 0; col < DCTSIZE; col++) { 
fmtbl [i] = {FIiOAT__MULT_TYPE) 
((double) qtbl->quantval [i] * 
aanscalef actor [row] * aanscalef actor [col] ) ; 
i++; 



} 



break; 

#endif 

default: 

ERREXIT{cinfo, JERR_NOT_COMPILED) ; 
break; 

} 

} 
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/* 

* Initialize IDCT manager. 
*/ 

GLOBAL (void) 

jinit_inverse„dct { j^decompress jtr cinfo) 
{ 

ray_idct_ptr idct; 
int ci; 

jpeg_component„info *coinpptr; 

idct - (my_idct_ptr) 

{*cinf o->mem->alloc_.sinall) ( ( j__coinmon_ptr} cinfo, JPOOL_IMAGE, 
SI2EOF(my__idct_controller) ) ; 
cinfo->idct = (struct jpeg„inverse_dct *) idct; 
idct->pub,start_:pass = start_pass; 

for (ci = 0, compptr = cinfo->coinp__inf o; ci < cinf o->num_components ; 
ci++, coinpptr++) { 
/* Allocate and pre- zero a multiplier table for each component */ 
compptr- >dct„table = 

(*cinf o->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (multiplier„table) } ; 
MEMZERO (compptr->dct_table, SIZEOF (multiplier_table) ) ; 
/* Mark multiplier table not yet set up for any method */ 
idct->cur_jnethodEci] = -1; 

} 

} 



* jdhuff.c 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains Huffman entropy decoding routines. 
* 

* Much of the complexity here has to do with supporting input suspension. 

* If the data source module demands suspension, we want to be able to back 

* up to the start of the current MCU. To do this, we copy state variables 

* into local working storage, and update them back to the permanent 

* storage only upon successful completion of an MCU, 
*/ 

tdefine JPEGJNTERNALS 
# include "jinclude.h" 
# include "jpeglib.h" 

#include "jdhuff .h" /* Declarations shared with jdphuff .c */ 



/* 

* Expanded entropy decoder object for Huffman decoding. 
* 

* The savable_state subrecord contains fields that change within an MCU, 

* but must not be updated permanently until we complete the MCU. 

*/ 

typedef struct { 

int last_dc_val [MAX_COMPS_IN_SCAN] ; /* last DC coef for each component */ 
} avable^state ; 

/=|]This macro is to work around compilers with missing or broken 
Ajj structure assignment. You'll need to fix this code if you have 
such a compiler and you change MAX_COMPS_IN_SCAN. 

#ilndef NO_STRUCT_ASSIGN 

fifefine ASSIGN_STATE{dest,src) { (dest) = (src) ) 
i^ise 

Mi MAX_COMPS_IN_SCAN =:= 4 
fdlfine ASS IGN_STATE (dest, src) \ 

s { (dest) .last_dc_val[0] = (src) . last_dc_val [0] , \ 
u.. (dest) .las t_dc_val[l] = (src) .last_dc_val [1] , \ 
Lr (dest) .last_dc„val[2] = (src) . last_dc_val [2 ] , \ 

(dest) .last_dc^al[3I = (src) . last_dc„val [3 ] ) 
fMidif 
iendif 

t^edef struct { 

'^^^=-^btruct jpeg_entropy_de coder pub; /* public fields */ 

/* These fields are loaded into local variables at start of each MCU. 
* In case of suspension, we exit WITHOUT updating them. 
*/ 

bitread_perm_state bitstate; /* Bit buffer at start of MCU */ 
savable„state saved; /* Other state at start of MCU */ 

/* These fields are NOT loaded into local working state. */ 

unsigned int restarts„to_go; /* MCUs left in this restart interval */ 

/* Pointers to derived tables (these workspaces have image lifespan) */ 
d_derived_tbl * dc„derived_tbls [NUM_HUFF_TBLS] ; 
d_derived_tbl * ac_derived_tbls [mJM„HUFF_„TBLS] ; 

/* Precalculated info set up by start _pass for use in decode_mcu: */ 

/* Pointers to derived tables to be used for each block within an MCU */ 
d_derived_tbl * dc_cur_tbls [D_MAX_BL0CKS_IN_MCU3 ; 
d_derived_tbl * ac_cur_tbls [D_MAX„BLOCKS_IN_MCU] ; 

/* Whether we care about the DC and AC coefficient values for each block */ 
boolean dc_needed [D_MAX_BLOCKS_IN_MCU] ; 
boolean ac„needed[D_MAX_BLOCKS_IN_MCU] ; 
} huf f „entropy„decoder ; 

typedef huff_entropy_de coder * huf f_entropy_ptr; 
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/* 

* Initialize for a Huffman- compressed scan. 
*/ 

METHODDEF(void) 

start_pass_huf f_decoder ( j_decompress_ptr cinfo) 
{ 

huf f_entropy_ptr entropy = (huf f_.entropy_ptr} cinf o->entropy; 
int ci, blkn, dctbl, actbl; 
jpeg_coinponent„inf o * compptr; 

/* Check that the scan parameters Ss, Se, Ah/Al are 

* This ought to be an error condition, but we make 

* there are some baseline files out there with all 
*/ 

if (cinfo->Ss f= 0 M cinfo->Se DCTSIZE2-1 || 
cinfo->Ah != 0 | | cinfo->Al 1= 0) 
WARNMS ( cinfo , JWRN_NOT_SEQUENTIAL } ; 

for (ci = 0; ci < cinfo->comps_in_scan; ci++) { 
compptr = cinfo->cur_comp_inf o[ci] ; 
dctbl = corapptr->dc_tbl_no; 
actbl = compptr->ac„tbl_no; 

/* Compute derived values for Huffman tables */ 
/* We may do this more than once for a table, but it's not expensive */ 
jpeg_make__d_der ived_tbl ( c info , TRUE , dctbl , 

& entropy->dc„derived_tbls [dctbl] ) ; 
jpeg_make_d__derived_tbl (cinfo , FALSE , actbl , 

& entropy- >ac_derived_tbls [actbl] ) ; 
/* Initialize DC predictions to 0 */ 
entropy- >saved . las t_dc_val [ ci ] = 0 ; 

u|* Precalculate decoding info for each block in an MCU of this scan */ 
nifor (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
'"zi, ci = cinf o->MCU_jnember ship [bl3aa] ; 

compptr = cinf o->cur_comp_inf o [ci] ; 
\J /* Precalculate which table to use for each block */ 

J; entropy->dc„cur_tbls [blkn] = entropy->dc_derived_tbls [compptr->dc_tbl_no] 
entropy->ac_cur_tbls [bl]cn] = entropy- >ac_derived_tbls [compptr->ac_tbl_no] 
/* Decide whether we really care about the coefficient values */ 
f^'^ if (compptr->component_needed) { 

entropy->dc_needed[blkn] = TRUE; 
£• /* we don't need the ACs if producing a l/8th-size image */ 
Li, entropy->ac_needed[blkn] = (compptr->DCT_scaled_size > 1) ; 
!!!! } else { 

entropy->dc_needed[bl]cn] = entropy- >ac__needed [blkn] = FALSE; 

v\ } 

;;;} 

tiy* Initialize bitread state variables */ 
„J:..entropy->bitstate.bits_lef t = 0; 

'~^'entropy->bitstate.get_buf fer = 0; /* unnecessary, but keeps Purify quiet */ 
entropy- >pub. insufficient_data = FALSE; 

/* Initialize restart co\anter */ 

entropy- >res tart s_to_go = cinf o->restart_interval ; 

} 



/* 

* Compute the derived values for a Huffman table. 

* This routine also performs some validation checks on the table. 

* 

* Note this is also used by jdphuff .c, 
*/ 

GLOBAL (void) 

jP^S— 3naake_d_derived_tbl { j_decompress_ptr cinfo, boolean isDC, int tblno, 
d_derived„tbl ** pdtbl) 

{ 

JHUFF_TBL *htbl; 

d_derived_tbl *dtbl? 

int p, i, 1, si, numsymbols; 

int looldjits, ctr; 

char huf fsize[2573 ; 

unsigned int huf f code [257] ; 

unsigned int code; 

/* Note that huffsizeE] and huffcode[] are filled in code-length order, 



OK for sequential JPEG, 
it a warning because 
zeroes in these bytes. 



2 



* paralleling the order of the symbols themselves in htbl->huf fval [ ] . 
*/ 

/* Find the input Huffman table */ 

if (tblno < 0 I I tblno >= NUM„HUFF_TBLS ) 

ERREXITKcinfo, JERR„NO_HUFF_TABLE , tblno); 
htbl = 

isDC ? cinfo->dc_huff_tbl_^trs [tblno] : cinfo->ac_huff_tbl_j)trs [tblno] ; 
if (htbl == NULL) 

ERREXITl ( cinf o , JERR_NO_HUFF_TABLE , tblno ) ; 

/* Allocate a workspace if we haven't already done so. 
if (*pdtbl NULL) 

*pdtbl = (d_derived_tbl *) 

(*cinf o->mem->alloc_small) ( { j_common_ptr) cinfo, JPOOL_IMAGE, 
SI2E0F(d_derived_tbl) ) ? 

dtbl = *pdtbl; 

dtbl->pub = htbl; /* fill in back link */ 

/* Figure C.l: make table of Huffman code length for each symbol */ 
p = 0; 

for (1 = 1; 1 <= 16; 1++) { 
i = (int) htbl->bits[l] ; 

if (i<0 j| p+i>256) /* protect against table overrun */ 

ERREXIT ( c inf JERR_BAD_HUFF_TABLE ) ; 
while {i — ) 

huff size [p++] = (char) 1; 

} 

huffsize[p] - 0; 
nximsymbols = p; 

k-^* Figure C.2: generate the codes themselves */ 

ySl* We also validate that the counts represent a legal Huffman code tree. */ 

'^:code = 0; 

iii = huffsize[0]; 

%p = 0; 

.:While (huf fsizefp] ) { 

"^^S while (((int) huffsize[p]) == si) { 
i|| huf fcode [p-t-+3 = code; 
^in; code++ ; 
H.:^ } 

E /* code is now 1 more than the last code used for codelength si; but 

H , * it must still fit in si bits, since no code is allowed to be all ones. 

*/ 

O if (((INT32} code) >= (((INT32) 1) « si)) 

ii ERREXIT { cinf o , JERR^BAD_JIUFFjrABLE ) ; 
T;. code «- 1; 
'^'i si++; 

Figure F.15: generate decoding tables for bit-sequential decoding */ 
P ^ 0; 

for (1 = 1; 1 <= 16; 1++) { 
if (htbl->bits[l] ) { 

/* valoffset[l] = huffvaltl index of 1st symbol of code length 1, 
* minus the minimimi code of length 1 
*/ 

dtbl->valoffset[l] = (INT32) p - (INT32) huffcodeCp]; 
p +- htbl->bits[l] ; 

dtbl->maxcode [1] = huf fcode [p-l] ; /* maximum code of length 1 */ 
} else { 

dtbl->maxcode [1] =-1; /*-lifno codes of this length */ 

} 

} 

dtbl->maxcode[17] = OxFFFFFL; /* ensures jpeg_huf f_decode terminates */ 

/* Compute lookahead tables to speed up decoding. 

* First we set all the table entries to 0, indicating "too long"; 

* then we iterate through the Huffman codes that are short enough and 

* fill in all the entries that correspond to bit sequences starting 

* with that code. 
*/ 

MEMZERO(dtbl->look_nbits, SIZEOF (dtbl->look_nbits) ) ; 
p = 0; 

for (1=1; 1 HUFF_LOOKAHEAD; 1++) { 
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for (i = 1; i <= (int) htbl->bits [1] ; i++, p++) { 

/* 1 = current code's length, p = its index in huffcode[] & hiiffval[]. */ 

/* Generate left- justified code followed by all possible bit sequences */ 

lookbits = huffcode[p] « (HUFF_L00KAHEAD-1) ; 

for (ctr = 1 « {HUFF_L00KAHEAD-1) ; ctr > 0; ctr--} { 
dtbl->look_nbits [lookbits] ™ 1; 
dtbl->look__sym[ lookbits] = litbl->huf fval [p] ; 
loo3cbits++; 

} 

) 



/* Validate symbols as being reasonable, 

* For AC tables, we make no check, but accept all byte values 0..255. 

* For DC tables, we require the symbols to be in range 0..15. 

* (Tighter bounds could be applied depending on the data deptli and mode, 

* hut this is sufficient to ensure safe decoding,} 
*/ 

if (isDC) { 

for (i = 0; i < nximsymbols; i++} { 

int sym = htbl->huf fval [i] ; 

if (sym < 0 I I sym > 15} 
ERREXIT(cinfo, JERR_BAD_HUFF_TABLE) ; 
} 

} 



/* 

* Out-of-line code for bit fetching (shared with jdphuff ,c) . 

* See jdhuff .h for info about usage. 

.*:^.Note: current values of get_buffer and bits_left are passed as parameters, 
*^but are returned in the corresponding fields of the state struct, 

i'iOn most machines MIN_GET_BITS should be 25 to allow the full 32-bit width 
of get_buffer to be used. (On machines with wider words, an even larger 

13 buffer could be used.) However, on some machines 32-bit shifts are 
quite slow and take time proportional to the number of places shifted. 

% (This is true with most PC compilers^ for instance.) In this case it may 

'^===be a win to set MIN_GET_BITS to the minimum value of 15. This reduces the 
average shift distance at the cost of more calls to jpeg_f ill_bit_buf f er . 

Mfdef SLOW„SHIFT_32 

M^fine MIN_GET_BITS 15 /* minimum allowable value */ 
^Felse 

fibfine MIN_GET_BITS (BIT_BUF_SIZE-7 ) 
fWidif 



GHpBAL (boolean) 

j-Seg_f ill„bit_buf fer (bitread_working„state * state, 

register bit_buf_type get_buffer, register int bits^left, 
int nbits) 

/* Load up the bit buffer to a depth of at least nbits */ 
{ 

/* Copy heavily used state fields into locals (hopefully registers) */ 
register const JOCTET * next_input_byte = state- >next_input_byte; 
register size_t bytes_in_buf f er = state->bytes_in_buf f er ; 
j__decompress_ptr cinfo = state->cinf o; 

/* Attempt to load at least MIN_GET_BITS bits into get_buffer. */ 

/* (It is assumed that no request will be for more than that many bits.) */ 

/* We fail to do so only if we hit a marker or are forced to suspend. */ 

if ( cinfo- >unread_marker =- 0) { /* cannot advance past a marker */ 
while (bits_left < MXN_GET_BITS ) { 
register int c; 

/* Attempt to read a byte */ 

if (bytes_in_jDuf f er ==0) { 
if (1 (*cinf o->src->f ill_input__buf f er) (cinfo)) 

return FALSE; 
next_input_byte = cinf o->src->next_input_byte; 
bytes„in_buf f er cinf o->src->bytes_in_buf f er ; 

} 

bytes_in_buf f er — ; 

c = GETJOCTET(*next_input_byte+-»-) ; 

/* If it's OxFF, check and discard stuffed zero byte */ 
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if (c == OxFF) { 
/* Loop here to discard any padding FF's on terminating marker, 

* so that we can save a valid unread_marker value. NOTE: we will 

* accept multiple FF's followed by a 0 as meaning a single FF data 

* byte. This data pattern is not valid according to the standard. 
*/ 

do { 

if (bytes_in_buffer ==0) { 

if (! {*cinfo->src->f ill_input_buf fer) (cinf o) ) 

return FALSE; 
next_input_byte = cinf o->src->next_input_byte; 
bytes_in_buf f er = cinf o~>src->bytes„in_buf f er; 

} 

bytes_in_buf f er — ; 
c = GETJOCTET(*next„input__byte++) ; 
} while (c == OxFF) ; 

if (c == 0) { 

/* Found FF/00, which represents an FF data byte */ 

C - OxFF; 
} else { 

/* Oops, it's actually a marker indicating end of compressed data. 

* Save the marker code for later use. 

* Fine point: it might appear that we should save the marker into 

* bitread working state, not straight into permanent state. But 

* once we have hit a marker, we cannot need to suspend within the 

* current MCU, because we will read no more bytes from the data 

* source. So it is OK to update permanent state right away. 
*/ 

cinfo->unread__marker = c; 

/* See if we need to insert some fake zero bits. */ 
r=^; goto no_more_bytes; 

^ ^ } 

l^i /* OK, load c into get_buffer */ 

get_buffer = (get„buffer « 8) | c; 
%J bits„left 8; 

} /* end while */ 
'^3 else { 
y:|io_rnore_bytes : 

nil /* We get here if we've read the marker that terminates the compressed 
' * data segment. There should be enough bits in the buffer register 
^ * to satisfy the request; if so, no problem. 
U */ 

if (nbits > bits_left) { 

/* uh-oh. Report corrupted data to user and stuff zeroes into 
nj * the data stream, so that we can produce some kind of image. 
L H * We use a nonvolatile flag to ensure that only one warning message 

* appears per data segment. 

D */ 

f-!i if ( ! cinf o->entropy->insuf f icient^data) { 
'""^ WARJSIMS(cinfo, JWRN_HIT_MARKER) ; 

cinf o->entropy->insuf f icient_data = TRUE; 

} 

/* Fill the buffer with zero bits */ 
get_buffer «= MIN_GET„BITS - foitsjeft; 
bits_left = MIN„GET„BITS ; 

} 

) 



/* Unload the local registers */ 
state ->next_input_.byte = next_input„byte; 
state->bytes_in_buf fer = bytes_in_buf f er ; 
state->get_buf fer = get_buffer? 
state->bits_lef t = bits„left; 



return TRUE; 

} 



* Out-of-line code for Huffman code decoding. 

* See jdhuff .h for info about usage. 



GLOBAL (int) 

jpeg_huf f_decode (bitread_working_state * state, 

register bit_buf_type get_buffer, register int bits_left, 
d„derived_tbl * htbl, int min_bits) 
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register int 1 = min_bits; 
register INT32 code; 

/* HUFF_DECODE has determined that the code is at least min_bits */ 
/* bits long, so fetch that many bits in one swoop. */ 

CHECK_BIT_BUFFER(*state, 1, return -De- 
code = GET_BITS(1) ; 

/* Collect the rest of the Huffman code one bit at a time. */ 
/* This is per Figure F.16 in the JPEG spec. */ 

while (code > htfol->maxcode [1] ) { 
code «= 1; 

CHECK_BIT_BUFFER{*state, 1, return -1) ; 
code I = GET^BITS { 1 ) ; 

1++; 

} 

/* Unload the local registers */ 
state->get_buf fer = get_buffer; 
state->bits_lef t = bits_left; 

/* With garbage input we may reach the sentinel value 1 = 17 . */ 

if (1 > 16) { 

WARNMS {State->cinf o , JWRW_HUFF_BAD_CODE ) ; 

return 0; /* fake a zero as the safest result */ 

} 

^return htbl->pub->huf fval [ (int) (code + htbl->valof f set [1] ) 1; 



/I: 

#J Figure F,12: extend sign bit. 

■t.il On some machines, a shift and add will be faster than a table lookup. 

Sf 

^ygEdef AVOID_TABLES 

ISefine HUFF_EXTEND(x,s) ( (x) < {l«{(s)-l)) ? (x) + {({-l)«(s)) + 1) : (x) ) 
false 

liiefine HUFF^EXTEND (x, s) ( (x) < extend„test [s] ? (x) + extend_of f set [ s] ; (x) ) 

static const int extend„test [16] = /* entry n is 2**(n-l) */ 

2H 0, 0x0001, 0x0002, 0x0004, 0x0008, 0x0010, 0x0020, 0x0040, 0x0080, 

O 0x0100, 0x0200, 0x0400, 0x0800, 0x1000, 0x2000, 0x4:000 }; 

ir€atic const int extend_of f set [ 16] = /* entry n is (-1 « n) + 1 */ 
{ 0, ((-1)«1) + 1, ((-1)«2) + 1, ((-1)«3) + 1, ((-1)«4) + 1, 
((-1)«5) + 1, ((-1)«6) + 1, ((-1)«7) + 1, ((-1)«8) + 1, 
((-1)«9) + 1, ((-1)«10) + 1, ({-1)«11) + 1, ((-1}«12) + 1, 
((-1)«13) + 1, ({-1)«14) + 1, ((-1)«15) + 1 }; 

#endif /* AVOID_TABLES */ 



/* 

* Check for a restart marker & resynchronize decoder. 

* Returns FALSE if must suspend. 
*/ 

LOCAL (boolean) 

process_restart { j_decompress^tr cinfo) 

{ 

huf f_entropy_ptr entropy = (huf f_entropy_ptr ) cinf o->entropy; 
int ci? 

/* Throw away any unused bits remaining in bit buffer; */ 
/* include any full bytes in next_marker ' s count of discarded bytes */ 
cinfo ->marker->discarded_bytes entropy->bitstate .bits_lef t / 8; 
entropy- >bitstate.bits_left = 0; 

/* Advance past the RSTn marker */ 

if (I (* cinf o->marker->read_res tar t_marker) (cinfo)) 
return FALSE; 
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/* Re-initialize DC predictions to 0 */ 
for (ci = 0; ci < cinf o->comps_in_scan; ci++) 
entropy- >saved . last_dc_val [ci ] = 0 ; 

/* Reset restart counter */ 

entropy->restarts_to_go = cinfo->restart_interval; 

/* Reset out- of -data flag, unless read_restart_marker left us smack up 

* against a marker. In that case we will end up treating the next data 

* segment as empty, and we can avoid producing bogus output pixels by 

* leaving the flag set. 

*/ 

if {cinfo->unread_marker == 0) 

entropy->pub.insuf ficient_data = FALSE; 

return TRUE; 



/* 

* Decode and return one MCU's worth of Huffman -compressed coefficients. 

* The coefficients are reordered from zigzag order into natural array order, 

* but are not dequantized. 
* 

* The i'th block of the MCU is stored into the block pointed to by 

* MCU_data[i] . WE ASSUME THIS AREA HAS BEEN ZEROED BY THE CALLER. 

* (Wholesale zeroing is usually a little faster than retail..,) 

* 

* Returns FALSE if data source requested suspension. In that case no 

* changes have been made to permanent state. (Exception: some output 
coefficients may already have been assigned. This is harmless for 
this module, since we'll just re-assign them on the next call.) 

# 

mi-HODDEF (boolean) 

dS;ode_mcu ( j_decompress_ptr cinfo, JBLOCKROW *MCU__data) 

^ii^ff_entropy_ptr entropy - (huf f_entropy_ptr ) cinf o->entropy; 
'^^4nt bllcn; 
v|^ITREAD_STATE_yARS ; 

f^!isavable_state state; 

= /* Process restart marker if needed; may have to suspend */ 
|,,df (cinfo->restart_interval) { 

if { entropy- >res tar ts_to_go == 0) 
l:J if (! process_restart (cinf o) ) 
fU return FALSE; 

tj/* If we've run out of data, just leave the MCU set to zeroes. 

* This way, we return uniform gray for the remainder of the segment. 

if (• entropy->pub. insuf f icient_data) { 

/* Load up working state */ 

BITREAD_LOAD„STATE (cinf o, entropy->bitstate) ; 
ASSIGN_STATE (state , entropy- > saved) ; 

/* Outer loop handles each block in the MCU */ 

for (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
JBLOCKROW block = MCU_data [blkn] ; 

d_derived_tbl * dctbl - entropy- >dc_cur_tbls [blkn] ; 
d__derived_tbl * actbl = entropy- >ac_cur„tbls [blkn] ; 
register int s, k, r; 

/* Decode a single block's worth of coefficients */ 

/* Section F.2.2.1: decode the DC coefficient difference */ 
HUFF_DECODE(s, br^state, dctbl, return FALSE, labell) ; 
if is) { 

CHECK_BXT__BUFFER(br_state, s, return FALSE) ; 
r = GET„BITS(s) ; 
s = HUFF_EXTEMD(r, s); 
} 

if {entropy->dc_needed[blkn3 ) { 
/* Convert DC difference to actual value, update last_dc_val */ 
int ci = cinf o->MCU_membership [blkn] ; 
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s += state.last_dc_val[ci] ; 

state.last_dc_val[ci3 = s; ^ , ^ r^-i n^ */ 

/* Output the DC coefficient (assumes 3peg_natural_order [0] =0) / 
(*block) [0] = (JCOEF) s; 
} 

if (entropy->ac_needed[blkn] ) { 
/* Section F.2.2.2: decode the AC coefficients */ 

/* Since zeroes are skipped, output area must be cleared beforehand */ 
for (k = 1; k < DCTSIZE2; k++) { 

HUFF„DECODE ( s , br_state, actbl, return FALSE, label2); 

r = s » 4; 
s &= 15; 

if (s) { 
k += r; 

CHECK„BIT„BUFFER(br__state, s, return FALSE); 

r = GET_BITS(s) ; 

s = HUFF__EXTEND(r, s) ; 

/* Output coefficient in natural (dezigzagged) order. 

* Note: the extra entries in jpeg_natural_order [] will save us 

* if k >= DCTSIZE2, which could happen if the data is corrupted. 
*/ 

(*block) [jpeg„natural„order[k] 3 = (JCOEF) s; 
} else { 

if (r 1= 15) 

break; 
k += 15; 

} 

n > 

} else { 

/* Section F.2.2.2: decode the AC coefficients */ 
y!] /* In this path we just discard the values */ 

for (k 1; k < DCTSIZE2; k++) { 
^ HUFF_DECODE { s , br_state, actbl, return FALSE, label3); 

Jii r = s » 4; 
^'i s 15; 

^ if (s) { 

. k +— r * 

!lr CHECK_BIT_BUFFER(br_state, s, return FALSE) ; 

O DROP_BITS(s) ; 

n !i } else { 

if (r 1= 15) 
break; 
fi: k += 15; 

z;. } 

} 

} 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE(cinfo, entropy->bitstate) ; 
ASS IGN_STATE( en tropy-> saved, state) ; 

} 

/* Account for restart interval (no-op if not using restarts) */ 
entropy->restarts_to_go — ; 

return TRUE; 

} 



* Module initialization routine for Huffman entropy decoding. 

*/ 

GLOBAL (void) 

jinit_huff_decoder { j_decompress_ptr cmfo) 

{ 

huff_entropy_^tr entropy; 
int i; 

entropy - (huf f_entropy_ptr ) 
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(*cinf o->mem->alloc_small) ( ( j__coinmon_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF{huf f_entropy_decoder) ) ; 
cinf o->entropy = (struct jpeg_entropy_de coder *) entropy; 
entropy->pub. start_pass = start_pass_huf f_decoder ; 
entropy- >pub. dec ode_mcu = decode_mcu; 

/* Mark tables unallocated */ 

for (i = 0; i < JJUM_HUFF_TBLS; { 

entropy->dc_derived__tbls [i] = entropy->ac_derived_tbls [i] = NULL; 

} 



/* 

* jdinput.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains input control logic for the JPEG decompressor . _ 

* These routines are concerned with controlling the decompressor's input 

* processing (marker reading and coefficient decoding) . The actual input 

* reading is done in jdmarker.c, jdhuff .c, and jdphuff .c. 
*/ 

idefine JPEG_INTERNALS 
#include " j include. h" 
ttinclude "jpeglib.h" 



/* Private state */ 

typedef struct { 

struct jpeg_input__controller pub; /* public fields */ 

boolean inheaders; /* TRUE until first SOS is reached */ 

} my_input_controller; 

typedef my_input_controller * my_inputctl_ptr ; 



/* Forward declarations */ 

METHODDEF(int) consume_markers JPP { ( j_decompress_ptr cinfo) ) ; 



1=! Routines to calculate various quantities related to the size of the image. 
lS€AL{void) 

iriitial_setup { j_decompress_ptr cinfo) 

/:*J Called once, when first SOS marker is reached */ 

in 

srlnt ci; 

I peg_component_inf o * compptr ; 

" /* Make sure image isn't bigger than I can handle */ 

^'if ((long) cinfo->image_height > (long) jpeg_max_dimension || 

f (long) cinf o->image_width > (long) JPEG_MAX_DIMENSION) 

.2" ERREXITl (cinfo, JERR_IMAGE_TOO_BIG, (unsigned int) JPEG_MAX„DIMENSION) ; 

'=.V* For now, precision must match compiled-in value... */ 
■--^if {cinfo->data_:precision != BITS_IN_JSAMPLE) 

ERREXITI (cinf o, JERR_BAD_PRECISI0N, cinfo->data^recision) ; 

V* Check that n\imber of components won't exceed internal array sizes */ 
if (cinfo->num„components > MAX_COMPONENTS ) 

ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->n\im_components , 
MAX_COMPONENTS) ; 

/* Compute maximum sampling factors; check factor validity */ 
cinf o->max_h_samp_f actor = 1; 
cinf o->max_v_samp_f actor = 1; 

for (ci - 0, compptr - cinf o->comp_inf o; ci < cinf o->num_components; 
ci++ , compptr++) { 

if (compptr->h_samp_factor<=0 1 | compptr->h_samp„f actor>MAX„SAMP_FACTOR | | 
compptr->v_samp_factor<=0 | 1 compptr->v_samp_f actor>MAX_SAMP_FACTOR) 

ERREXIT (cinfo , JERR_BAD_SAMPLING) ; 
cinf o->max_h_samp_f actor = MAX (cinfo->max_h_samp_f actor, 

compptr->h_samp_f actor) ; 
cinf o->max_v_samp_f actor = MAX (cinf o->max_v_samp_f actor , 

compptr->v_samp_f actor) ; 

} 

/* We initialize DCT_scaled_size and min_DCT_scaled_size to DCTSIZE. 

* In the full decompressor, this will be overridden by jdmaster.c; 

* but in the trans coder, jdmaster.c is not used, so we must do it here. 
*/ 

cinfo->min_DCT_scaled_size = DCTSIZE; 
/* Compute dimensions of components */ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinfo->n\im_components; 
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ci++, compptr++) { 
compptr->DCT_scaled_size = DCTSIZE; 
/* Size in DCT blocks */ 
compptr->width_in_blocks = (JDIMENSION) 

jdiv_round_up( (long) cinfo->image_width * (long) compptr->h„samp„factor, 
(long) (cinfo->max_h_samp_f actor * DCTSIZE)); 
corapptr->height_in_blocks = (JDIMENSION) 

jdiv_round_up( (long) cinf o->iinage_height * (long) compptr->v_samp_f actor , 
(long) (cinfo->max_v_samp_factor * DCTSIZE)); 
/* dovmsainpled_width and downs ampled_height will also be overridden by 

* jdmaster.c if we are doing full decompression. The transcoder library 

* doesn't use these values, but the calling application might. 
*/ 

/* Size in samples */ 

compptr->downsampled_width = (JDIMENSION) 

jdiv„round_up( (long) cinfo->iraage_width * (long) compptr->h_samp_f actor , 
(long) cinf o->max_h_samp_factor) ; 
compptr->downsampled_height = (JDIMENSION) 

jdiv_round_up{ (long) cinf o->image„height * (long) corapptr->v_samp_f actor, 
(long) cinf o->max_v_samp_f actor) ; 
/* Mark component needed, until color conversion says otherwise */ 
compptr->component_needed = TRUE; 

/* Mark no quantization table yet saved for component */ 
compptr->quant_table = NULL; 

} 

/* Compute number of fully interleaved MCU rows, */ 
cinfo->total_iMCU_rows = (JDIMENSION) 

jdiv_round__up ( (long) cinf o->image_height , 

(long) (cinfo->max_v_samp_f actor*DCTSIZE) ) ; 

/* Decide whether file contains multiple scans */ 
tlf (cinfo->comps__in_scan < cinf o->n\am_components | | cinf o- >pr ogres si ve_mode) 
.'S cinfo->inputctl->has_multiple_scans = TRUE; 
T.%lse 

cinfo->inputctl->has_multiple_scans = FALSE; 

^5 

mChh (void) 

p&r_scan_setup ( j_decompress_:ptr cinfo) 

^ Do computations that are needed before processing a JPEG scan */ 

ill cinf o->comps_in_scan and cinf o->cur_comp_info [] were set from SOS marker */ 

^\int ci, mcublks, tmp; 
r=^peg_component_inf o *compptr; 

Saf (cinf o->comps_in_scan ==1) { 

\i /* Noninterleaved (single -component) scan */ 
c ompp t r = cinfo - >c ur„c omp__i n f o [ 0 ] ; 

O /* Overall image size in MCUs */ 

cinf o->MCUs_^er_row = compptr->width_in_.blocks; 
cinfo->MCU_rows_in_scan - compptr->height_in__blocks; 

/* For noninterleaved scan, always one block per MCU */ 
compptr->MCU_width = 1; 
compptr->MCU_height = 1; 
compptr->MCU_blocks =1; 

compptr->MCU_sample_width - compptr->DCT_scaled„size; 

compptr->last_col_width =1; . i. • 

/* For noninterleaved scans, it is convenient to define last_row_height 

* as the number of block rows present in the last iMCU row. 

*/ 

tmp = (int) (compptr->height_in_blocks % compptr->v„samp„f actor) ; 
if (tmp == 0) tmp = compptr->v_samp_f actor; 
compptr->last_row_height = tmp; 

/* Prepare array describing MCU composition */ 
cinf o->blocks_in_MCU = 1; 
cinfo->MCU_membership [0] = 0; 

} else { 

/* Interleaved (multi-component) scan */ 

if (cinfo->comps_in_scan <= 0 | | cinf o->comps_in_s can > MAX_COMPS__IN_SCAN) 
ERREXIT2 (cinfo, JERR_COMPONENT_COUNT , cinf o->comps_in_s can, 
MAX_COMPS_IN_SCAN) ; 



/* Overall image size in MCUs */ 
cinfo->MCUs_per_row = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->image_width, 

(long) (cinfo->max_h_sainp_factor*DCTSIZE) ) ; 
cinfo->MCU_rows_in_scan = (JDIMENSION) 

jdiv_round_up ( (long) cinf o->iraage_height , 

(long) {cinfo->max_v_samp_factor*DCTSIZE) ) ; 

cinf o->blocks_in_MCU = 0; 

for (ci =0? ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o[ci] ; 

/* Sampling factors give # of blocks of component in each MCU */ 
compptr- >MCU_width = compptr->h_samp_f actor; 
compptr->MCU_height = compptr->v_samp_f actor; 

compptr->MCU_blocks = compptr->MCU_width * compptr->MCU_height; 
compptr->MCU_sample_width = compptr- >MCU_width * compptr ->DCT_scaled_size 
/* Figure number of non-dummy blocks in last MCU column & row */ 
trap = (int) (compptr->width„in_blocks % compptr- >MCU_wi dth ) ; 
if (tmp == 0) tmp = compptr->MCU__width; 
compptr->last_col_width = tmp; 

tmp = (int) (compptr->height_in_blocks % compptr->MCU_height) ; 

if (tmp == 0) tmp = compptr->MCU„height; 

compptr ->last_row_height = tmp; 

/* Prepare array describing MCU composition */ 

mcublks = compptr->MCU„blocks; 

if (cinfo->blocks„in_MCU + mcublks > D_MAX_BLOCKS_IN_MCU) 
ERREXIT(cinfo, JERR_BAD_MCU_SIZE) ; 

while (mcublks — > 0) { 
c inf o->MCU_member ship [cinf o->blocks_in_MCU++] = ci; 

} 

} 



M 

Save away a copy of the Q-table referenced by each component present 
■M in the current scan, unless already saved during a prior scan, 

^^In a multiple-scan JPEG file, the encoder could assign different components 
SJ the same Q-table slot number, but change table definitions between scans 

so that each component uses a different Q-table. (The IJG encoder is not 
y currently capable of doing this, but other encoders might.) Since we want 
¥^ to be able to dequantize all the components at the end of the file, this 
f*=^ means that we have to save away the table actually used for each component. 
5t We do this by copying the table at the start of the first scan containing 
m the component. 

The JPEG spec prohibits the encoder from changing the contents of a Q-table 
jS, slot between scans of a component using that slot. If the encoder does so 
^ anyway, this decoder will simply use the Q-table values that were current 
H at the start of the first scan for the component. 

*' 

* The decompressor output side looks only at the saved quant tables, 

* not at the current Q-table slots. 

*/ 

LOCAL (void) 

latch_quant_tables ( j_decompress_ptr cinfo) 
{ 

int ci, gtblno; 
jpeg_component_inf o * compptr; 
JQUANT_TBL * qtbl; 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_.inf o [ci] ; 

/* No work if we already saved Q-table for this component */ 
if (compptr->quant_table != NULL) 
continue; 

/* Make sure specified quantization table is present */ 

qtblno = compptr->quant_tbl_no; 

if (qtblno < 0 I I qtblno >= NUM„QUANT_TBLS | 1 

cinf o->quant_tbl_ptrs [qtblno] -= NULL) 

ERREXITl ( C info , JERR_NO_QUANT_TABLE , qtblno ) ; 
/* OK, save away the quantization table */ 
qtbl = (JQUANT_TBL *) 

(*cinfo->mem->alloc_small) ( ( j„common_^tr) cinfo, JPOOL_IMAGE, 
SI2E0F(JQUANT„TBL) ) ; 
MEMCOPY (qtbl , cinf o->quant_tbl_j)trs [qtblno] , SIZEOF ( JQUANT_TBL) ) ; 



3 



corapptr->quant_table = qtbl; 

} 

} 



/* 

* Initialize the input modules to read a scan of compressed data. 

* The first call to this is done by jdmaster.c after initializing 

* the entire decompressor (during jpeg_start_de compress) . 

* Subsequent calls come from consume_markers, below, 
*/ 

METHODDEF(void) 

start_input^ass ( j_decompress_ptr cinfo) 
{ 

per_scan_se tup (cinfo) ; 

la tch_quant„ tables (cinfo) ; 

(*cinf o->entropy->start_pass) (cinfo) ; 

(*cinf o->coef->start_input_pass) (cinfo) ; 

cinf o->inputctl->consume_input = cinf o->coef ->consume_data; 

} 



/* 

* Finish up after inputting a compressed-data scan. 

* This is called by the coefficient controller after it's read all 

* the expected data of the scan. 
*/ 

METHODDEF(void) 

f inish_input^ass { j_de compress^ tr cinfo) 

{ 

r"^inf o->inputctl->cons\jme_input = consume_markers ; 



m 

*! Read JPEG markers before, between, or after compressed-data scans. 
*l Change state as necessary when a new scan is reached. 

#1 Return value is JPEG_SUSPENDED, JPEG_REACHED_SOS , or JPEG_REACHED_EOI . 

1::' 

^^=J The consume_input method pointer points either here or to the 

ffj coefficient controller's consume_data routine, depending on whether 

"* we are reading a compressed data segment or inter-segment markers. 

^/ 

MJ5PH0DDEF{int) 

c"Dlisume_raarkers ( j_decompress_ptr cinfo) 

iu 

'•-:I^Y— inputctl _ptr inputctl = (my_inputctl_ptr) cinf o->inputctl; 
xzrAnt val; 

Of (inputctl->pub.eoi_reached) /* After hitting EOT, read no further */ 
return JPEG_REACHED_EOI ; 

val ~ ( *cinf o->marker->read_markers) (cinfo); 

switch (val) { 

case JPEG_REACHED_SOS : /* Found SOS */ 
if (inputctl->inheaders) { /* 1st SOS */ 
initial_setup (cinfo) ; 
inputctl ->inheaders = FALSE; 

/* Note: start_input_pass must be called by jdmaster.c 

* before any more input can be consumed, jdapimin.c is 

* responsible for enforcing this sequencing, 
*/ 

} else { /* 2nd or later SOS marker */ 

if (i inputctl ->pub.has_multiple_scans) 
ERREXIT{ cinfo, JERR_EOI_EXPECTED) ; /* Oops, I wasn't expecting this i */ 

s tar t_input_pass (cinfo) ; 

} 

break ; 

case JPEG_REACHED_EOI : /* Found EOT */ 
inputctl->pub. eoi_reached = TRUE; 

if (inputctl->inheaders) { /* Tables-only datastream, apparently */ 

if (cinf o->marker->saw_SOF) 
ERREXIT (cinfo , JERR_SOF_NO_SOS ) ; 
} else { 

/* Prevent infinite loop in coef ctlr's decompress_data routine 

* if user set output_scan_n\imber larger than number of scans. 
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*/ 

if (cinfo->output_scan_number > cinf o->input_scan_number) 
cinfo->output_scan_nuinber = cinf o->input_scan_nuinber; 

break; 
case JPEG_SUSPENDED: 
break; 

} 

return val; 

} 

/* 

* Reset state to begin a fresh datastream. 

*/ 

METHODDEF(void) 

reset„input_controller ( j_decompress_ptr cinfo) 

my_inputctl__ptr inputctl = {my_inputctl_ptr) cinfo->inputctl; 
inputctl->pub.consume_input = consume_markers ; 

inputctl->pub.has_multiple_scans = FALSE; /* "unknown" would be better */ 
inputctl->pub.eoi_reached = FALSE; 
inputctl->inheaders = TRUE; 
/* Reset other modules */ 

(*cinfo->err->reset_error_mgr) ( ( j_common_ptr) cinfo) ; 
(*cinfo->marker->reset_marker_reader) (cinfo) ; 

/* Reset progression state — would be cleaner if entropy decoder did this */ 
cinfo->coef_bits = NULL; 



0 

111 Initialize the input controller module. 

This is called only once, when the decompression object is created 

qLpBAL(void) 

J||iit„input_controller ( j_decompress_ptr cinfo) 

nlny_inputctl_ptr inputctl; 

/* Create subobject in permanent pool */ 
|:.anputctl = (my_inputctl_ptr) 

p-;: (*cinf o->mem->alloc_small) ( ( j_coinmon_ptr) cinfo, JPOOL_PERMANENT , 

^ SIZEOF(my_input_controller) ) ; 

npinfo->inputctl = (struct jpeg_input_controller *) inputctl; 

Initialize method pointers */ 
^|nputctl ->pub . consume_input = consume_markers ; 
kinputctl->pub.reset_input_controller = reset_input„controller ; 
C|'^P^tctl->pub.start_input_^ass = start_input_pass; 
""inputctl ->pub.finish_input__pass = f inish_input_pass ; 
/* Initialize state: can't use reset_input_controller since we don't 

* want to try to reset other modules yet. 

*/ 

inputctl->pub.has_multiple__scans = FALSE; /* "unknown" would be better */ 
inputctl->pub.eoi_reached = FALSE; 
inputctl ->inheaders = TRUE; 

} 
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/* 

* jdmainct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software, 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains the main buffer controller for decompression. 

* The main buffer lies between the JPEG decompressor proper and the 

* post-processor; it holds downsampled data in the JPEG colorspace. 

* Note that this code is bypassed in raw-data mode, since the application 

* supplies the equivalent of the main buffer in that case, 

*/ 

tdefine JPEG_INTERNALS 
# include "jinclude.h" 
# include "jpeglib.h" 



/* 

* In the current system design, the main buffer need never be a full-image 

* buffer; any full-height buffers will be found inside the coefficient or 

* postprocessing controllers. Nonetheless, the main controller is not 

* trivial. Its responsibility is to provide context rows for upsampling/ 

* rescaling, and doing this in an efficient fashion is a bit tricky. 

* Postprocessor input data is counted in "row groups", A row group 

* is defined to be {v_samp_f actor * DCT_scaled_size / min_DCT_scaled_size) 

* sample rows of each component. (We require DCT_scaled_size values to be 

* chosen such that these nximbers are integers. In practice DCT_scaled__si2e 

* values will likely be powers of two, so we actually have the stronger 
l'*^ condition that DCT_scaled_size / min_DCT_scaled_size is an integer.) 

Upsampling will typically produce max_v_samp_f actor pixel rows from each 
^4 row group (times any additional scale factor that the upsampler is 
applying) . 

■^=fThe coefficient controller will deliver data to us one iMCU row at a time; 

"^Jeach iMCU row contains v_samp_f actor * DCT_scaled_si2e sample rows, or 
exactly min_DCT_scaled_size row groups. (This amount of data corresponds 
to one row of MCUs when the image is fully interleaved.) Note that the 

IJ number of sample rows varies across components, but the number of row 

f^ii groups does not. Some garbage sample rows may be included in the last iMCU 
row at the bottom of the image. 

^•s. Depending on the vertical scaling algorithm used, the upsampler may need 
J^.;. access to the sample row(s) above and below its current input row group. 
f-;The upsampler is required to set need_context_rows TRUE at global selection 
f^jtime if so. When need_context_rows is FALSE, this controller can simply 

obtain one iMCU row at a time from the coefficient controller and dole it 
*:out as row groups to the postprocessor. 

fjiWhen need_context_rows is TRUE, this controller guarantees that the buffer 
*" passed to postprocessing contains at least one row group's worth of samples 

* above and below the row group (s) being processed. Note that the context 

* rows "above" the first passed row group appear at negative row offsets in 

* the passed buffer. At the top and bottom of the image, the required 

* context rows are manufactured by duplicating the first or last real sample 

* row; this avoids having special cases in the upsampling inner loops. 

* The amount of context is fixed at one row group just because that's a 

* convenient number for this controller to work with. The existing 

* upsamplers really only need one sample row of context. An upsampler 

* supporting arbitrary output rescaling might wish for more than one row 

* group of context when shrinking the image; tough, we don't handle that. 

* (This is justified by the assumption that downsizing will be handled mostly 

* by adjusting the DCT_scaled_size values, so that the actual scale factor at 

* the upsample step needn't be much less than one.) 

* To provide the desired context, we have to retain the last two row groups 

* of one iMCU row while reading in the next iMCU row. (The last row group 

* can't be processed until we have another row group for its below-context , 

* and so we have to save the next-to-last group too for its above -con text . ) 

* We could do this most simply by copying data around in our buffer, but 

* that'd be very slow. We can avoid copying any data by creating a rather 

* strange pointer structure. Here's how it works. We allocate a workspace 

* consisting of M+2 row groups (where M = min_DCT_scaled_si2e is the number 

* of row groups per iMCU row) . We create two sets of redundant pointers to 

* the workspace. Labeling the physical row groups 0 to M+1, the synthesized 

* pointer lists look like this: 
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* M+1 M-1 

* master pointer — > 0 master pointer — > 0 

* 1 1 
* 

* M-3 M-3 

* M-2 M 

* M-1 M+1 

* M M-2 

* M+1 M-1 

* 0 0 

* We read alternate iMCU rows using each master pointer; thus the last two 

* row groups of the previous iMCU row remain un-overwritten in the workspace. 

* The pointer lists are set up so that the required context rows appear to 

* be adjacent to the proper places when we pass the pointer lists to the 

* upsampler. 
* 

* The above pictures describe the normal state of the pointer lists. 

* At top and bottom of the image, we diddle the pointer lists to duplicate 

* the first or last sample row as necessary (this is cheaper than copying 

* sample rows around) . 
* 

* This scheme breaks down if M < 2, ie, min_DCT_scaled_size is 1. In that 

* situation each iMCU row provides only one row group so the buffering logic 

* must be different (eg, we must read two iMCU rows before we can emit the 

* first row group) . For now, we simply do not support providing context 

* rows when min_DCT_scaled__size is 1. That combination seems unlikely to 

* be worth providing if someone wants a l/8th-size preview, they probably 

* want it quick and dirty, so a context-free upsampler is sufficient. 
*/ 



4* Private buffer controller object */ 



tj^edef struct { 

^^^jStruct jpeg_d_main_controller pub; /* public fields */ 

Pointer to allocated workspace (M or M+2 row groups) . */ 
CiJSAMPARRAY buf f er EMAX_COMPONEKTS] ; 

-:|1fooolean buffer_full; /* Have we gotten an iMCU row from decoder? */ 

j^ljJDIMENSION rowgroup_ctr; /* counts row groups output to postprocessor */ 

iW* Remaining fields are only used in the context case. */ 

: V* These are the master pointers to the funny-order pointer lists. */ 
[^'^JSAMPIMAGE xbuffer[2]; /* pointers to weird pointer lists */ 

ji'dnt whichptr; /* indicates which pointer set is now in use */ 

J'-'int context_state; /* process_data state machine status */ 

'"^IjDIMENSION rowgroups^avail ; /* row groups available to postprocessor */ 
fiJDIMENSION iMCU_row_ctr; /* counts iMCU rows to detect image top/bo t */ 
E r?^y_main_c on t r o 1 1 er ; 

typedef my_main_controller * my_jnain_ptr ; 
/* context__state values: */ 

#define CTX_PREPARE_FOR_IMCU 0 /* need to prepare for MCU row */ 
#define CTX_PROCESS_IMCU 1 /* feeding iMCU to postprocessor */ 
#define CTX_POSTPONED_ROW 2 /* feeding postponed row group */ 



/* Forward declarations */ 

METHODDEF (void) process_data_simple_main 

JPP( ( j_decompress_ptr cinfo, JSAMPARRAY output_buf, 

JDIMENSION *out_row„ctr, JDIMENSION out„rows„avail) ) ; 
METHODDEF (void) process__data__context_main 

JPP ( ( j_decompress_ptr cinfo, JSAMPARRAY output_buf, 

JDIMENSION *out_row_ctr, JDIMENSION out_rows_avail ) ) ; 
#ifdef QUANT„2PASS_SUPP0RTED 
METHODDEF (void) process_data_crank_post 

JPP( ( j_decompress_ptr cinfo, JSAMPARRAY output_buf, 

JDIMENSION *out_row_ctr, JDIMENSION out_rows_avail) ) ; 

#endif 



LOCAL (void) 

alloc_funny_po inters { j_decompress_ptr cinfo) 
/* Allocate space for the funny pointer lists 
* This is done only once, not once per pass. 

*/ 
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{ 

my_raain_ptr main = (my_main_:ptr) cinf o->inain; 
int ci, rgroup; 

int M = cinfo->min_DCT_scaled_size; 
jpeg_coinponent_inf o *compptr; 
JSAMPARRAY xbuf ; 

/* Get top-level space for component array pointers. 
* We alloc both arrays with one call to save a few cycles. 

*/ 

inain->xbuffer [0] = (JSAMPIMAGE) 

(*cinf o->mem->alloc_sniall) { ( j„common_^tr) cinfo, JPOOLJMAGE, 
cinfo->n\im_components * 2 * SIZEOF (JSAMPARRAY) ) ; 
main->xbuf f er [1] = main->xbuf f er [0] + cinf o->num_coInponents; 
for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->n\am_coinponents ; 
ci++/ compptr++) { 
rgroup = { compptr- >v_samp_f actor * compptr->DCT_scaled_size) / 

cinfo->min_DCT_scaled_size; /* height of a row group of component */ 

/* Get space for pointer lists M+4 row groups in each list. 

* We alloc both pointer lists with one call to save a few cycles. 
*/ 

xbuf = (JSAMPARRAY) 

(*cinfo->mem->alloc_small) ( { j_common_ptr ) cinfo, JPOOL_IMAGE, 
2 * (rgroup * (M+4)) * SIZEOF (JSAMPROW) ) ; 
xbuf += rgroup; /* want one row group at negative offsets */ 

main->xbuf fer [0] [ci] = xbuf; 
xbuf += rgroup * (M + 4) ; 
main->xbuffer [1] [ci] = xbuf; 

} 

}_ 

M:AL(void) 

ipke_funny_po inters ( j_decompress_ptr cinfo) 

/i^: Create the funny pointer lists discussed in the comments above. 

^-^i The actual workspace is already allocated (in main->buf fer) , 

'"^^l and the space for the pointer lists is allocated too. 

J% This routine just fills in the curiously ordered lists. 

^ This will be repeated at the beginning of each pass. 

m/ 

my_main_jptr main = (my_main_ptr ) cinfo->main; 
^ int ci , i , rgroup ; 

|r.l.int M = cinf o->min_DCT_scaled_si2e; 
pr; jpeg_component_inf o *compptr ; 
h'lJSAMPARRAY buf, xbufO, xbufl; 



H,. iifor (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
™r ci++, compptr++} { 

rgroup = (compptr->v_samp_f actor * compptr->DCT_scaled„si2e) / 
Q cinfo->minJiCT_scaled_size; /* height of a row group of component */ 

xbufO = main->xbuffer [0] [ci] ; 

xbufl = main->xbuf fer [1] [ci] ; 

/* First copy the worlcspace pointers as -is */ 

buf = main->buf fer [ci] ; 

for (i = 0; i < rgroup * (M + 2); i++) { 
XbufO [i] = xbufl [i] = buf[i]; 

} 

/* In the second list, put the last four row groups in swapped order */ 
for (i = 0; i < rgroup * 2; i-i-+) { 

xbufl [rgroup* (M-2) + i] = buf[rgroup*M + i] ; 

xbufl [rgroup*M + i] = buf [rgroup* (M-2 > + i] ; 

} 

/* The wraparound pointers at top and bottom will be filled later 

* (see set__wraparound_po inters, below) , Initially we want the *• above" 

* pointers to duplicate the first actual data line. This only needs 

* to happen in xbuffer[0]. 
*/ 

for (i = 0; i < rgroup; i++) { 
xbufOti - rgroup] - xbufO[0]; 

} 

} 

} 



LOCAL (void) 

set_wraparound_po inters ( j_de compress.^ tr cinfo) 

/* Set up the "wraparound" pointers at top and bottom of the pointer lists. 
* This changes the pointer list state from top-of -image to the normal state. 
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*/ 

{ 

my_main__ptr main ~ (my_main_ptr) cinf o->main; 
int ci, i, rgroup; 

int M = cinf o->min_DCT_scaled_si2e; 
jpeg_coinponent__inf o *compptr; 
JSAMPARRAY xbufO, xbufl; 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->niam_coraponents ; 
ci++, compptr++) { 
rgroup = (compptr->v_sainp_factor * coinpptr->DCT_scaled_si2e) / 

cinf o->min_DCT_scaled_size; /* height of a row group of component */ 
xbufO = main->xbuf fer [0] [ci] ; 
xbufl = main- >xbuf fer [1] [ci] ; 
for (i = 0; i < rgroup; i++) { 

xbufO[i - rgroup] = xbufO [rgroup* (M+l ) + i] ; 

xbufl [i - rgroup] = xbufl [rgroup* (M+l) + i]; 

xbufO [rgroup* {M+2) + i] = xbufO[i]; 

xbufl [rgroup* (H+2) + i] = xbufl [i]; 

} 

} 

} 



LOCAL (void) 

set_bottom_pointers ( j_decompress_ptr cinfo) 

/* Change the pointer lists to duplicate the last sample row at the bottom 

* of the image, whichptr indicates which xbuffer holds the final iMCU row. 

* Also sets rowgroups_avail to indicate number of nondummy row groups in row. 
*/ 

{ 

my_main _ptr main = {my_main_^tr) cinfo->main? 
r^nt ci, i, rgroup, iMCUheight, rows_left; 
1i3 peg_c omponen t_inf o * c ompp tr ; 
^l47SAMPARRAY xbuf ; 

j^or (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
■^^^ ci+ + , compptr++) { 

"'"I /* Count sample rows in one iMCU row and in one row group */ 
,rli iMCUheight = c ompp tr->v_samp_f actor * compptr->DCT„scaled_size; 

rgroup = iMCUheight / cinf o->min„DCT__scaled_size; 
y3 /* Count nondummy sample rows remaining for this component */ 
nii rows_left - (int) (compptr->downsampled_height % (JDIMENSION) iMCUheight) ; 

if (rows_left == 0) rows_left = iMCUheight; 
^ /* Count nondummy row groups. Should get same answer for each component, 
Lh * so we need only do it once. 
*/ 

if (ci 0) { 

m main->rowgroups_avail = (JDIMENSION) ( (rows_lef t-1) / rgroup + 1); 

^.li } 

/* Duplicate the last real sample row rgroup*2 times; this pads out the 
Wl * last partial rowgroup and ensures at least one full rowgroup of context. 

n */ 

xbuf = main->xbuf fer [main- >whichptr] [ci] ; 
for (i = 0; i < rgroup * 2; i++) { 

xbuf [rows_l eft + i] = xbuf [rows_lef t-1] ; 

} 

} 

} 



/* 

* Initialize for a processing pass. 
*/ 

METHODDEF(void) 

start_pass_main ( j_decompress_ptr cinfo, J_BUF_MODE pass_mode) 

{ 

my_main_ptr main = (my_main_ptr) cinfo->main; 

switch {pass_mode) { 
case JBUF_PASS_THRU: 

if (cinf o->upsample->need_context_rows) { 

main->pub.process_data = process„data_context_main; 
make_funny_pointers (cinfo) ; /* Create the xbuffer [] lists */ 
main->whichptr =0; /* Read first iMCU row into xbuffer [0] */ 
main->context_state = CTX_PREPARE_FOR_IMCU; 
main->iMCU__row_ctr - 0; 
} else { 

/* Simple case with no context needed */ 
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main->pub.process_data = process_data_simple_inain; 

} 

main->buf fer_full ~ FALSE; /* Mark buffer empty */ 

main->rowgroup_ctr = 0; 

break; 

#ifdef QUANT_2PASS_SUPP0RTED 
case JBUF„CRANK_DEST : 

/* For last pass of 2-pass quantization, just crank the postprocessor */ 
main->pub.process_data = process_data_crank_post; 
break; 
#endif 
default: 

ERREXIT { cinf o , JERR_BAD_BUFFER_MODE ) ; 
break; 

} 

} 



/* 

* Process some data. 

* This handles the simple case where no context is required. 

*/ 

METHODDEF (void) 

process_data__simple_main ( j_decompress_ptr cinfo, 

JSAMPARRAY output„buf, JDIMENSION *out„row_ctr , 
JDIMENSION out„rows_avail) 

{ 

my_inain__ptr main = (my_main_ptr) cinfo->main; 
JDIMENSION rowgroups_avail; 

_„/* Read input data if we haven't filled the main buffer yet */ 
L:|if {! main->buf f er_full) { 

j% if (! (*cinfo->coef->decompress_data) {cinfo, main->buf f er) ) 

I! return; /* suspension forced, can do nothing more */ 

main->buf f er_full = TRUE; /* OK, we have an iMCU row to work with */ 

'V* There are always min„DCT_scaled_size row groups in an iMCU row. */ 
;i||rowgroups__avail = (JDIMENSION) cinf o->min_j:)CT_scaled^size; 
,H-i;/* Note: at the bottom of the image, we may pass extra garbage row groups 
2": * to the postprocessor. The postprocessor has to check for bottom 
fiJ * of image anyway (at row resolution) , so no point in us doing it too. 

a */ 

psy* Feed the postprocessor */ 

f |(*cinfo->post->post_process_data) (cinfo, main->buf f er , 
^'I &main->rowgroup_ctr , rowgroups_avail , 

output_buf , out_row_ctr, out_rows_avail) ; 

Has postprocessor consumed all the data yet? If so, mark buffer empty */ 
5"fif (iEiain->rowgroup_ctr >= rowgroups_avail) { 
O main->buf f er_full = FALSE; 
main->rowgroup__ctr := 0; 

} 

} 



/* 

* Process some data. 

* This handles the case where context rows must be provided. 

*/ 

METHODDEF (void) 

process_data_context_main ( j„decompress_^tr cinfo, 

JSAMPARRAY output_buf , JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avail) 

{ 

my_main_ptr main = (my_main_j)tr) cinfo->main; 

/* Read input data if we haven't filled the main buffer yet */ 
if (1 main->buf fer_full) { 

if {! (*cinfo->coef->decornpress_data) (cinfo, 

main->xbuf f er [main->whichptr] ) ) 
return; /* suspension forced, can do nothing more */ 

main->buf f er_full = TRUE; /* OK, we have an iMCU row to work with */ 
main->iMCU_row__ctr++; /* count rows received */ 

} 

/* Postprocessor typically will not swallow all the input data it is handed 
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* in one call (due to filling the output buffer first) . Must be prepared 

* to exit and restart. This switch lets us keep track of how far we got. 

* Note that each case falls through to the next on successful completion. 

*/ 

switch (inain->context_state) { 
case CTX_POSTPONED_ROW: 

/* Call postprocessor using previously set pointers for postponed row */ 
{*cinf o->post->post_process_data) (cinfo, main->xbuf f er [main->whichptr] , 
&:main->rowgroup_ctr , main->rowgroups_avail , 
output_buf , out_row_ctr, out_rows_avail) ; 
if (main->rowgroup_ctr < main->rowgroups_avail ) 

return; /* Need to suspend */ 

main- >context_s tat e = CTX_PREPARE_FOR_IMCU ; 
if (*out_row_ctr >= out_rows_avail) 

return; /* Postprocessor exactly filled output buf */ 

/*FALLTHROUGH*/ 
case CTX_PREPARE_FOR_IMCU : 

/* Prepare to process first M-1 row groups of this iMCU row */ 
main->rowgroup_ctr = 0; 

main->rowgroups_avail = (JDIMENSION) (cinf o->min_DCT_scaled_si2e - 1) ; 
/* check for bottom of image: if so, tweak pointers to "duplicate" 

* the last sample row, and adjust rowgroups_avail to ignore padding rows. 

*/ 

if {maln->iMCU„row_ctr == cinf o->total_iMCU_rows ) 

set_bottom_pointers (cinf o) ; 
main->context_state = CTX_PROCESS„IMCU; 
/*FALLTHROUGH*/ 
case CTX_PROCESS_IMCU : 

/* Call postprocessor using previously set pointers */ 
(*cinf o->post->post_process_data) (cinfo, main->xbuf f er [main->whichptr] , 
&main->rowgroup„ctr , main->rowgroups_avail , 
output_buf , out_row_ctr, out_rows_avail) ; 
if (rnain->rowgroup_ctr < main->rowgroups_avail) 
"Z, return; /* Need to suspend */ 

/* After the first iMCU, change wraparound pointers to normal state */ 
01 if (main->iMCU_row_ctr ~- 1) 

set__wraparound_:pointers (cinf o) ; 
/* Prepare to load new iMCU row using other xbuffer list */ 
main->whichptr 1; /* 0=>1 or 1=>0 */ 
ill main->buffer_full = FALSE; 

/* Still need to process last row group of this iMCU row, */ 
/* which is saved at index M+1 of the other xbuffer */ 
nj main->rowgroup_ctr = (JDIMENSION) (cinf o->min_DCT_scaled^size + 1) ; 

main->rowgroups_avail = (JDIMENSION) (cinf o->min_DCT_scaled„size + 2); 
" main->context_state ~ CTX_POSTPONED_ROW; 

tj 



M 

^,;f Process some data. 

M Final pass of two-pass quantization: just call the postprocessor. 
Source data will be the postprocessor controller's internal buffer. 

#ifdef QUANT_2PASS_SUPP0RTED 
METHODDEF(void) 

process_data_crank_^ost ( j_decompress_^tr cinfo, 

JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avai 1 ) 

{ 

(*cinfo->post->post_process__data) (cinfo, (JSAMPIMAGE) NULL, 
(JDIMENSION *) NULL, (JDIMENSION) 0, 
output_buf , out_row_ctr, out_rows_avail) ; 

} 

#endif /* QUANT_2PASS_SUPP0RTED */ 



/* 

* Initialize main buffer controller. 

*/ 

GLOBAL (void) 

jinit_d_main_controller ( j_decompress__ptr cinfo, boolean need„full_buf f er) 

{ 

my_main_ptr main; 

int ci, rgroup, ngroups; 

jpeg_component_inf o *compptr; 
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main = (iiiy_inain_ptr) 

(*cinf o->mem-->alloc_sinall) ( ( j_coinmon _ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (itiy„main_controller) ) ; 
cinfo->inain = (struct jpeg_d_main„controller *) main; 
main->pub.start jass = start_pass_main; 

if (need_full_buf f er) /* shouldn't happen */ 

ERREXIT ( cinf o , JERR_BAD_BUFFER_MODE ) ; 

/* Allocate the workspace, 
* ngroups is the number of row groups we need. 
*/ 

if (cinf o->upsainple->need_context_rows) { 

if (cinf o->min_DCT_scaled„size < 2) /* unsupported, see comments above */ 
ERREXIT ( cinf o , JERR^NOTIMPL ) ; 

alloc„funny__pointers (cinf o) ; /* Alloc space for xbuffer[] lists */ 

ngroups = cinf o->min_DCT_scaled„size + 2; 
} else { 

ngroups = cinf o->min_DCT_scaled__size; 



for (ci = 0, compptr = cinf o->comp__inf o; ci < cinfo->num_components; 
ci++, compptr++) { 
rgroup = (compptr->v„samp„f actor * compptr->DCT„scaled_size) / 

cinf o->min„DCT__scaled_size; /* height of a row group of component */ 
main->buf f er [ci] = (*cinf o->mem->alloc_sarray) 
( { j_common_^tr) cinfo, JPOOL_IMAGE, 

compptr->width_in_blQcks * compptr->DCT_scaled_size, 
(JDIMENSION) {rgroup * ngroups)); 

} 

} 



/* 

* jdmarker.c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane, 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

A 

* This file contains routines to decode JPEG datastream markers, 

* Most of the complexity arises from our desire to support input 

* suspension: if not all of the data for a marker is available, 

* we must exit back to the application. On resumption, we reprocess 

* the marker. 
*/ 

#define JPEG_INTERNALS 
# include " j include, h" 
# include "jpeglib.h" 



typedef enum { /* JPEG marker codes */ 







OxcO , 


M_S0F1 




Oxcl , 


M_S0F2 


— 


0xc2 , 


M_S0F3 




0xc3 , 


M S0F5 


_ 


0xc5, 


M_S0F6 


= 


0xc6/ 


M_S0F7 


— 


Oxc7 , 


M_JPG 




Oxc8, 


M_S0F9 




0xc9 , 


M_SOF10 




Oxca, 


pfI_SOFll 




Oxcb, 


i|yLS0Fl3 




Oxcd, 


OI^SOF14 




Oxce, 


^'J;=k_S0Fl5 




Oxcf , 


'^^^|1_DHT 


= 


Oxc4, 






Oxcc, 


flM^RSTO 




OxdO, 


''$1_RST1 


- 


Oxdl, 


^ M_RST2 


= 


0xd2, 


LM_RST3 




0xd3 , 


i=-.^-_RST4 




Oxd4, 


^il_RST5 


= 


OxdS, 


riiLRST6 




0xd6, 


i,H_RST7 


- 


0xd7, 


Cii_soi 




OxdS; 




= 


0xd9, 




— 


Oxda, 


M_DQT 




Oxdb; 


M_DNL 




Oxdc, 


M_DRI 




Oxdd, 


M_DHP 




Oxde, 


M_EXP 




Oxdf , 


M_APPO 




OxeO, 


M_APP1 




Oxel, 


M_APP2 




0xe2, 


M_APP3 




0xe3, 


M_APP4 




0xe4, 


M APP5 




0xe5, 


M_APP6 




0xe6, 


M_APP7 




Oxe7, 


M APP8 




0xe8, 


M_APP9 




0xe9, 


M_APP10 




Oxea, 


M_APP11 




Oxeb, 


M_APP12 




Oxec, 


M_APP13 




Oxed, 


M_APP14 




Oxee; 


M_APP15 




Oxef , 


M_JPGO 




OxfO, 


M_JPG13 




Oxfd, 


M„COM 




Oxfe; 



1 



M_TEM = 0x01, 



M_ERROR = 0x100 
} JPEG_MAHKER; 



/* Private state */ 

typedef struct { 

struct jpeg_marker__reader pub; /* public fields */ 

/* Application-overridable marker processing methods */ 
jpeg— marker_parser_jnethod process_COM; 
jpeg_marker_parser_method process_APPn [16] ; 

/* Limit on marker data length to save for each marker type */ 
unsigned int length_limit__COM; 
unsigned int length_limit_APPn[16] ; 

/* Status of COM/APPn marker saving */ 

jpeg_saved„marker_ptr cur_marker; /* NULL if not processing a marker */ 
unsigned int bytes_read; /* data bytes read so far in marker */ 

/* Note: cur_inarker is not linked into marker_list until it's all read. */ 
} my_marker_reader; 

typedef my__marker_reader * my_marker_ptr; 



* Macros for fetching data from the data source module. 
* 

At all times, cinf o->src->next_input_byte and ->bytes_in__buf f er reflect 
"f^ the current restart point; we update them only when we have reached a 
suitable place to restart if a suspension occurs. 

m 

Declare and initialize local copies of input pointer/count */ 
#d^fine INPUT_VARS {cinf o) \ 

struct jpeg_source„mgr * datasrc = (cinf o) ->src; \ 
const JOCTET * next_input_byte = datasrc->next_input_byte; \ 
^Ji size_t bytes„in_buf f er = datasrc->bytes_in_buf f er 

Z"*"" Unload the local copies do this only at a restart boundary */ 

«efine INPUT_SYNC {cinf o) \ 

( datasrc ->next_input_byte - next_input_byte, \ 

datasrc ->bytes_in_buffer = bytes_in_bu£f er ) 

/i J Reload the local copies used only in MAKE_BYTE_AVAIL */ 

#4ffine INPUT_RELOAD(cinfo) \ 
Ji { next_input_byte = datasrc ->next_input_bytex \ 
bytes_in_buf f er = datasrc ->bytes„in„buffer ) 

/^■'Internal macro for INPUT_ByTE and INPUT_2BYTES : make a byte available. 

* Note we do *not* do INPUT_SYNC before calling f ill_input_buf f er, 

* but we must reload the local copies after a successful fill. 

*/ 

#define MAKE_BYTE_avAIL (cinf o, action) \ 
if (bytes_in_buf f er === 0) { \ 

if (! (*datasrc->fill_input_buffer) (cinfo) ) \ 

{ action; } \ 
INPUT_RELOAD (cinfo ) ; \ 

} 

/* Read a byte into variable V. 

* If must suspend, take the specified action (typically "return FALSE"). 

#define INPUT_BYTE (cinf o,V, action) \ 

MAKESTMT{ MAKE_BYTE_AVAIL (cinfo, action) ; \ 
bytes_in„buf f er--; \ 

V = GETJOCTET(*next_input_byte++) ; ) 

/* As above, but read two bytes interpreted as an unsigned 16-bit integer. 

* V should be declared unsigned int or perhaps INT32. 
*/ 

#define IKPUT_2BYTES (cinf o,V, action) V 

MAKESTMT( MAKE_BYTE_AVAIL (cinf o, action) ; \ 
bytes_in_buf fer-- ; \ 

V ^ ({unsigned int) GET JOCTET { *next_input_byte+-J-) ) « 8; \ 
iy[AKE_BYTE_AVAIL (cinf o , action) ; \ 
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bytes_in_buf fer--; \ 

V += GETJOCTET(*next_input_byte++) ; } 



* Routines to process JPEG markers. 
* 

* Entry condition: JPEG marker itself has been read and its code saved 

* m cxnfo->unread_marker? input restart point is just after the marker. 

* Exit: if return TRUE, have read and processed any parameters, and have 

* updated the restart point to point after the parameters. 

* If return FALSE, was forced to suspend before reaching end of 

* marker parameters; restart point has not been moved. Same routine 

* will be called again after application supplies more input data. 

* This approach to suspension assumes that all of a marker's parameters 

* can fit into a single input bufferload. This should hold for "normal" 

* markers. Some COM/APPn markers might have large parameter segments 

* that might not fit. If we are simply dropping such a marker, we use 
skip_input_data to get past it, and thereby put the problem on the 

* source manager's shoulders. If we are saving the marker's contents 

* into memory, we use a slightly different convention: when forced to 
suspend, the marker processor updates the restart point to the end of 

* what It's consumed (ie, the end of the buffer) before returning FALSE 
On resumption, cinf o->unread__marker still contains the marker code 

* but the data source will point to the next chunk of marker data 

* The marker processor must retain internal state to deal with this. 

* Note that we don't bother to avoid duplicate trace messages if a 

* suspension occurs within marker parameters. Other side effects 

* require more care. 

Lg^AL (boolean) 

gSt—Soi ( j_decompress_ptr cinfo) 
/^^ Process an SOI marker */ 

H 

.-nant i; 

yilTRACEMS (cinfo , 1 , JTRC_SOI ) ; 

^'If (cinf o->marker->saw_SOI) 

s ERREXIT (cinfo, JERR_SOI_DUPLICATE) ; 

IS^* Reset all parameters that are defined to be reset by SOI */ 

Hfor (i = 0; i < NUiyLARITH_TBLS; i++) { 
l^l cinfo->arith_dc_L[i] = 0; 
2^ cinfo->arith„dc_U[i] = 1; 
fj cinfo->arith_ac_Kti] = 5; 

ft 

'=-einfo->restart_interval = 0; 
/* Set initial ass-umptions for colorspace etc */ 
cinfo->jpeg_color_space = JCS_UNKNOWN; 

cinfo->CCIR601_sampling = FALSE; /* Assume non-CCIR sampling??? */ 
cinfo->saw_JFIF_marker = FALSE; 

cinfo->JFIF_major_version = 1; /* set default JFIF APPO values */ 

c info- >JFIF_minor__vers ion = 1; 

cinfo->density_unit = 0; 

cinfo->X_density = 1; 

cinfo->Y_density = 1; 

cinfo- >saw_Adobe„marker = FALSE; 

cinfo ->Adobe_trans form = 0? 

cinfo->marker->saw_SOI = TRUE; 

return TRUE; 

} 



LOCAL (boolean) 

get_sof (j_decompress_ptr cinfo, boolean is_prog, boolean is arith) 

/* Process a SOFn marker */ ~ 

{ 

INT32 length; 



3 



int c, ci; 

jpeg_component_inf o * compptr; 
INPUT_VARS (cinf o) ; 

cinf o->pr ogress ive_mode = is_prog; 
cinfo->arith_code ~ is_arith; 

INPUT_2BYTES{cinfo, length, return FALSE} ; 

INPUT_BYTE(cinfo, cinf o->data_precision, return FALSE) ; 
INPUT_2BYTES (cinfo, cinf o->image_height , return FALSE); 
INPOT_2BYTES(cinfo, cinf o->image_width, return FALSE) ; 
INPUT_BYTE ( cinf o , cinf o->nvim_components ; return FALSE) ; 

length -= 8; 

TRACEMS4(cinfo, 1, JTRC_SOF, cinf o->unread_inarker , 

(int) cinfo->image_width, (int) cinf o->iniage_height, 
cinf o->n\am_components) ; 

if (cinf o->inarker->saw_SOF) 

ERREXIT ( cinf o . JERR_SOF_DUPLICATE ) ; 

/* We don't support files in which the image height is initially specified */ 
/* as 0 and is later redefined by DKL. As long as we have to check that, */ 
/* might as well have a general sanity check. */ 
if (cinfo->image_height <= 0 | | cinf o->iniage_width <- 0 
I I cinfo->nuin_coinponents 0) 
ERREXIT { cinf o , JERR_EMPTY_IMAGE ) ; 

if (length != (cinf o->nuni_components * 3)) 
ERREXIT (cinf o, JERR_BAD_LENGTH) ; 

,r#f (cinfo->comp_info == NULL) /* do only once, even if suspend */ 

cinfo->comp_info = ( jpeg_component„inf o *) {*cinf o->mem->alloc_small) 
{ ( j_common_ptr) cinfo, JPOOL_IMAGE, 
4l cinfo->num_components * SIZEOF { jpeg_component_inf o) ) ; 

^€or (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
y;i ci++, compptr++) { 
j:^ compptr- >component__index = ci; 

J- INPUT_BYTE{cinfo, compptr->component_id, return FALSE) ; 
Hi INPUT_BYTE(cinfo, c, re tura FALSE) ; 

compptr- >h_samp_f actor = (c » 4) & 15; 
'\ compptr->v_samp_f actor = (c ) & 15; 

INPUT_BYTE(cinfo, compptr->quant_tbl_no , return FALSE) ; 

Z: TRACEMS4 (cinfo, 1, JTRC_SOF_COMPONENT , 

compptr->component_id, compptr->h_samp_f actor , 
compptr->v_samp_f actor, compptr- >quant_tbl_no) ; 

Cl?info->marker->saw_SOF = TRUE; 

INPUT_SYNC(cinfo) ; 
return TRUE; 

} 



LOCAL (boolean) 

get_sos ( j_decompress_ptr cinfo) 

/* Process a SOS marker */ 

{ 

INT32 length; 
int i, ci, n, c, cc; 
jpeg_component_info * compptr; 
INPUT_VARS (cinfo) ; 

if a cinf o->marker->saw_SOF) 

ERREXIT (cinfo, JERR_SOS_NO_SOF) ; 

INPUT_2BYTES (cinfo, length, return FALSE) ; 

INPUT_BYTE{ cinfo, n, return FALSE); /* Number of components */ 
TRACEMSKcinfo, 1, JTRC_SOS, n) ; 

if (length i=(n*2+6)|tn<l||n> MAX_COMPS_IN_SCAN) 
ERREXIT { cinfo , JERR_BAD_LENGTH ) ; 
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cinfo->comps_in_scan = n; 

/* Collect the component-spec parameters */ 

for (i = 0; i < n; { 

INPUT__BYTE(cinfo, CO, return FALSE) ; 
INPUT_BYTE(cinfo, c, return FALSE); 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
if {cc == compptr- >component_id) 
goto id__found; 
} 

ERREXITKcinfo, JERR_BAD_COMPONENT_ID, cc) ; 

id_f ound : 

cinf o->cur_comp_info [i] = compptr; 
compptr ->dc_tbl_no = (c » 4) & 15; 
compptr->ac_tbl__no = (c ) & 15; 

TRACEMS3 (cinfo, 1, JTRC_SOS_COMPONENT, cc, 

compptr->dc_tbl_no, compptr->ac_tbl_no) ; 

} 

/* Collect the additional scan parameters Ss, Se, Ah/Al . */ 
INPUT_BYTE{cinfo, c, return FALSE) ; 
cinfo->Ss = c; 

INPUT_BYTE(cinfo, c, return FALSE) ; 

cinfo->Se = c; 

INPUT_BYTE(cinfo, c, return FALSE) ; 

riCinfo->Ah = (c » 4) & 15; 
^|k;info->Al = (c ) & 15; 

OlrRACEMS4 (cinfo, 1, JTRC_SOS_PARAMS , cinfo->Ss, cinfo->Se, 
J] cinfo->Ah, cinfo->Al); 

"'iii/* Prepare to scan data & restart markers */ 
y;]pinf o->marker->next_restart_num = 0; 

r:':!/* Count another SOS marker */ 
0 Jc inf o - > i npu t_s can^nxunber + + ; 

: INPUT_SYNC (cinf o) ; 
|=^^return TRUE; 

fifdef D_ARITH_CODING_SUPPORTED 
M:al (boolean) 

^^t„dac ( j_decompress_ptr cinfo) 

/"*' Process a DAC marker */ 

{ 

INT32 length; 
int index, val; 
INPUT^VARS (cinf o) ; 

INPUT_2 BYTES (cinfo, length, return FALSE) ; 
length -= 2; 

while (length > 0) { 

INPUT_BYTE (cinfo, index, return FALSE); 
INPUT_BYTE (cinfo, val, return FALSE); 

length -- 2; 

TRACEMS2 (cinfo, 1, JTRC_DAC, index, val); 

if (index < 0 t| index >= (2*NUM_ARITH_TBLS) ) 
ERREXITl (cinfo, JERR„DAC_INDEX , index); 

if (index >= NUM_ARITH_TBLS) { /* define AC table */ 

cinfo->arith_ac_K[index-NUM_ARITH_TBLS] = (UINT8) val; 
} else { /* define DC table */ 

cinf o->arith_dc_L [index] = (UINT8) (val & OxOF) ; 

cinf o->ari th_dc_U[ index] = (UINT8) (val » 4); 

if (cinf o->arith_dc_L [index] > cinf o->ar it h_dc_U[ index ] ) 
ERREXITl (cinfo, JERR_DAC_VALUE , val); 
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} 

} 

if (length != 0) 

ERREXIT (cinf o , JERR_BAD_LENGTH) ; 

INPUT„SYNC ( cinf o ) ; 
return TRUE; 

} 

#else /* ! D_ARITH__CODING_SUPPORTED */ 
#define get_dac (cinf o) skip_variable (cinf o) 
#endif /* D_ARITH_CODING_SUPPORTED */ 



LOCAL (boolean) 

get_dht ( j_decompress_j)tr cinfo) 

/* Process a DHT marker */ 

{ 

INT32 length; 
UINT8 bits [17] ; 
UINT8 huffval[256] ; 
int i, index, count; 
JHUFF_TBL **htblptr; 
INPUT_VARS (cinfo) ; 

INPUT_2BYTES (cinfo, length, return FALSE); 
length -= 2 ; 

_ while (length > 16) { 

O INPUT_BYTE (cinfo, index, return FALSE); 

TRACEMSl (cinfo, 1, JTRC_DHT, index); 

ifi bits[0] = 0; 

count = 0 ; 
"^^ for (i = 1; i <= 16; i++) { 

INPUT_BYTE( cinfo, bits[i], return FALSE) ; 
. = -1 count += bits[i3; 

Si ^ 

length -- 1 + 16; 

TRACEMS8 (cinfo, 2, JTRC„HUFFBITS , 
ri bits[l], bits [2], bits [3], bits [4], 

bits[5], bits[6], bits[7], bits[8]); 
TRACEMS8 (cinfo, 2, JTRC_HUFFBITS, 
\J bits [9], bits [10], bits [11], bits [12], 

bits [13], bits [14], bits [15], bits[16]); 

O /* Here we just do minimal validation of the counts to avoid walking 

* off the end of our table space, jdhuff .c will check more carefully. 

*/ 

if (count > 256 || ( (INT32) count) > length) 
ERREXIT (cinfo, JERR_BAD_HUFF_TABLE ) ; 

for (i = 0; i < count; i++) 

INPUT_BYTE( cinfo, huffval[i], return FALSE) ; 

length -= count; 

if (index & 0x10) { /* AC table definition */ 

index -= 0x10; 

htblptr = &cinfo->ac„huff_tbl_ptrs [index] ; 
} else { /* DC table definition */ 

htblptr = &cinfo->dc_huff_tbl_ptrs [ index] ; 

} 

if (index < 0 | | index >= NUM„HUFF_TBLS ) 
ERREXITl (cinfo, JERR_DHT„INDEX, index); 

if (*htblptr == NULL) 

*htblptr = jpeg_alloc_huf f_table ( ( j_common_ptr) cinfo); 

MEMCOPY( (*htblptr)->bits, bits, SIZEOF ( ( *htblptr ) ->bits) ) ; 
MEMCOPY( (*htblptr)->huffval, huffval, SIZEOF ( (*htblptr) ->huffval) ) ; 
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if (length !^ 0) 

ERREXIT ( cinf o , JERR_BAD_LENGTH } ; 

INPUT_SYNC (cinf o) ; 
return TRUE; 

} 



LOCAL (boolean) 

get_dqt ( j_decompress _ptr cinfo) 

/* Process a DQT marker */ 

{ 

INT32 length; 
int n, i, prec; 
unsigned int tmp; 
JQUANT_TBL *quant_ptr; 
INPUT^VARS (cinfo) ; 

INPUT_2BYTES (cinfo, length, return FALSE) ; 
length -= 2; 

while (length > 0) { 

INPUT_BYTE( cinfo, n, return FALSE) ; 
prec = n >> 4 ; 
n &= OxOF; 

TRACEMS2 (cinfo, 1, JTRC_DQT, n, prec); 

if (n >= NUM_QUANT_TBLS) 

ERREXITl (cinfo, JERR_DQT„INDEX , n) ; 

if (cinf o->quant_tbl_ptrs [n] == NULL) 
'zi cinf o->quant_tbl_ptrs [n] = jpeg_alloc_quant_table ( ( j_common_j)tr) cinfo); 
=J:' quant_ptr = cinf o->quant_tbl_ptrs [n] ; 

f": for (i = 0; i < DCTSIZE2; i++) { 
'^'^ if (prec) 

INPUT_2BYTES( cinfo, tmp, return FALSE) ; 
.T.r, else 

J/ INPUT_BYTE (cinfo, tmp, return FALSE) ; 

iV^ /* We convert the zigzag-order table to natural array order. */ 
quant jtr->quantval [ jpeg_natural_order [i] ] = (UINT16) tmp; 

:\ } 

fi; if (cinf o->err->trace_level >= 2) { 
3;: for (i = 0; i < DCTSIZE2; i += 8) { 
l-^ TRACEMS8 (cinfo, 2, JTRC_QUANTVALS , 

quant__ptr->quantval [i] , quant_ptr->quantval [i+1] , 
^.'i quant_ptr->quantval [i+2 ] , quant__ptr->quantval [i+3 ] , 

^ quant_ptr->quantval [i+4] , quant_ptr->quantval [i+5] , 

EjI quant_ptr->quantval [i+6] , quant_^tr->quantval [i+7] ) ; 

} 

} 

length -= DCTSIZE2+1; 

if (prec) length -= DCTSIZE2; 

} 

if (length != 0) 

ERREXIT (cinfo , JERR_BAD_LENGTH) ; 

INPUT„SYNC (cinf o) ; 
return TRUE; 

} 



LOCAL (boolean) 

get_dri ( j_decompress__ptr cinfo) 

/* Process a DRI marker */ 

{ 

INT32 length; 
unsigned int tmp; 
INPUT„VARS (cinfo) ; 

INPUT_2BYTES (cinfo, length, return FALSE) ; 

if {length != 4) 

ERREXIT (cinfo, JERR_BAD_LENGTH ) ; 

INPUT„2BYTES (cinfo, tmp, return FALSE) ; 
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TRACEMSKcinfo, 1, JTRC_DRI, tmp) ; 



cinfo->restart_interval - tmp; 

INPUT_SyNC(cinfo) ; 
return TRUE; 

} 



/* 

* Routines for processing APPn and COM markers . 

* These are either saved in memory or discarded, per application request. 

* APPO and APP14 are specially checked to see if they are 

* JFIF and Adobe markers, respectively. 
*/ 

#define APPO_DATA_LEN 14 /* Length of interesting data in APPO */ 
#define APP14_DATA„LEN 12 /* Length of interesting data in APP14 */ 
#define APPN_DATA_LEH 14 /* Must be the largest of the above!! */ 



LOCAL (void) 

examine_appO ( j_decompress_ptr cinfo, JOCTET * data, 

unsigned int datalen, INT32 remaining) 
/* Examine first few bytes from an APPO. 

* Take appropriate action if it is a JFIF marker. 

* datalen is # of bytes at data[] . remaining is length of rest of marker data. 
*/ 

{ 

f':INT32 totallen = (INT32) datalen + remaining; 

-4f (datalen >= APPO_DATA^LEN && 
m GETJOCTET(data[0] ) 0x4A 

GETJOCTET(data[l] ) == 0x46 && 

GETJ0CTET{data[2] ) == 0x49 
^Jl GETJ0CTET(data[3] ) == 0x46 && 

GETJ0CTET(data[4] ) ===0) { 
't!. /* Found JFIF APPO marker: save info */ 
41 cinfo->saw_JFIF_marker = TRUE; 

fil cinf o->JFIF_major_jversion = GETJ0CTET{data[5] ) ; 

cinfo->JFIF_minor_version ~ GETJ0CTET(data[6] ) ; 
" cinf o->density_unit = GET JOCTET (data [7 ]) ; 

L=. cinfo->X_density = ( GET JOCTET (data [8] ) « 8) + GET JOCTET (data [ 9 ]) ; 
cinfo->Y_density = ( GET JOCTET (data [10] ) « 8) + GET JOCTET (data [11] ) ; 
/* Check version. 

01 * Major version must be 1, anything else signals an incompatible change. 

* (We used to treat this as an error, but now it's a nonfatal warning, 

* because some bozo at Hijaak couldn't read the spec.) 

Lrl * Minor version should be 0..2, but process anyway if newer. 

O */ 

™" if (cinf o->JFIF_major_version != 1} 
WARNMS2 (cinfo, JWRN_JFIF_MAJOR, 

cinf o->JFIF„major_version, cinf o->JFIF_minor_version) ; 
/* Generate trace messages */ 
TRACEMS5 ( cinf o , 1 , JTRC_JFIF , 

cinf o->JFIF_maj or_vers ion, cinf o->JFIF_minor_version, 
cinf o->X_density, cinf o->Y_density , cinf o->density_unit) ; 
/* Validate thumbnail dimensions and issue appropriate messages */ 
if (GETJ0CTET(data[12] ) | GET JOCTET (data [13 ]) ) 
TRACEMS2 (cinfo, 1, JTRC_JFIF_THUMBNAIL, 

GETJ0CTET(data[12] ) , GETJOCTET (data [13 ] ) ) ; 
totallen -= APP0_DATA_LEN; 
if (totallen != 

( (INT3 2) GETJOCTET (data [12] ) * ( INT3 2) GETJOCTET (data [13] ) * (INT32) 3)) 

TRACEMSl (cinfo, 1, JTRC_JFIF„BADTHUMBNAILSIZE, (int) totallen); 
} else if (datalen >= 6 && 

GETJOCTET (data [0 ] ) == 0x4A && 

GETJOCTET (data [1 ] ) == 0x46 && 

GETJOCTET (data [2 ] ) == 0x58 && 

GETJOCTET (data [3 ] ) == 0x58 && 

GETJOCTET ( data [ 4 ] ) == 0 ) { 
/* Found JFIF "JFXX" extension APPO marker */ 
/* The library doesn't actually do anything with these, 

* but we try to produce a helpful trace message . 
*/ 

switch (GETJOCTET (data [ 5 ] ) ) { 
case 0x10: 

TRACEMSl (cinfo, 1, JTRC_THUMB_ JPEG , (int) totallen); 
break ; 
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case 0x11: 

TRACEMSl {cinfo, 1, JTRC_THUMB_PALETTE , (int) totallen) ; 
break; 
case 0x13 : 

TRACEMSl (cinfo, 1, JTRC_THUMB_RGB , (int) totallen); 
break; 
default : 

TRACEMS2(cinfO; 1, JTRC_JFIF_EXTENSION, 

GETJ0CTET{data[5] ) , (int) totallen) ; 
break; 

} 

} else { 

/* Start of APPO does not match "JFIF" or "JFXX% or too short */ 
TRACEMSKcinfo, 1, JTRC_APPO, (int) totallen); 

} 

} 



LOCAL (void) 

examine_appl4 { j_de compress.^ tr cinfo, JOCTET * data, 

unsigned int datalen, INT32 remaining) 
/* Examine first few bytes from an APP14. 

* Take appropriate action if it is an Adobe marker. 

* datalen is # of bytes at data[], remaining is length of rest of marker data. 



{ 



unsigned int version, flagsO, flagsl, transform; 

if (datalen >= APP14_DATA_LEN && 

GETJOCTET(data[0] ) == 0x41 && 

GETJ0CTET(data[13 ) == 0x64 && 
3 GETJ0CTET(data[2] ) == 0x6F && 

GETJ0CTET(data[3] ) == 0x62 && 
;f GET JOCTET (data [ 4 ] ) == 0x65 ) { 
Vi. /* Found Adobe APP14 marker */ 

r~ version = ( GET JOCTET (data [5] ) « 8) + GETJ0CTET(dataE6] ) ; 
^! flagsO = ( GET JOCTET ( data [ 7 3 ) « 8) + GET JOCTET (data [8] ) ; 
>1 flagsl = (GETJ0CTET(data[9] ) « 8) + GETJOCTET (data [10] ) ; 
;i transform = GETJOCTET (data [11] ) ; 

'1 TRACEMS4 (cinf o, 1, JTRC_ADOBE, version, flagsO, flagsl, transform); 

cinf o->saw_Adobe_marker = TRUE; 
]] cinfo->Adobe_transf orm = (UINT8) transform; 
else { 

/* Start of APP14 does not match "Adobe", or too short */ 
TRACEMSl (cinf o, 1, JTRC_APP14, (int) (datalen + remaining)); 



} 



]^THODDEF (boolean) 

^^_interesting_appn ( j_decompress_ptr cinfo) 

ygf; Process an APPO or APP14 marker without saving it */ 

INT32 length; 
JOCTET b[APPN_DATA„LEN3 ; 
unsigned int i, numtoread; 
INPUT.VARS ( cinfo ) ; 

INPUT_2BYTES (cinfo, length, return FALSE) ; 
length -= 2; 

/* get the interesting part of the marker data */ 
if (length >= APPN_DATA_LEN) 

numtoread = APPN_DATA_LEN; 
else if (length > 0} 

numtoread = (unsigned int) length; 
else 

numtoread = 0 ; 
for (1=0; i < numtoread; i++) 

INPUT_BYTE { cinfo , b [ i ] , return FALSE ) ; 
length -= numtoread; 



/* process it */ 

switch (cinf o->unread_marker) 

case M_APP0: 

examine_appO (cinfo , (JOCTET 

break; 
case M_APP14 : 

examine„appl4 (cinfo, (JOCTET 

break; 



) b, numtoread, length); 



') b, numtoread, length); 
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default: 

/* can't get here unless jpeg_save_markers chooses wrong processor */ 

ERREXITKcinfo, JERR_UNKNOWN_MARKER , cinf o->unread_marker ) ; 

break; 

} 

/* skip any remaining data — could be lots */ 
INPUT_SYNC(cinfo) ; 
if (length > 0} 

(*cinfo->src->skip_input_data) (cinfo, (long) length) ; 

return TRUE; 



#ifdef SAVE_MARKERS_SUPPORTED 
METHODDEF (boolean) 

save_raarker ( j„decoinpress_ptr cinfo) 

/* Save an APPn or COM marker into the marker list */ 
{ 

my_marker_ptr marker = (my„marker_^tr) cinf o->marker ; 
jpeg„saved_raarker_ptr cur_marker = marker ->cur_marker; 
unsigned int bytes_read, data_length; 
JOCTET * data; 
INT32 length = 0; 
INPUT_VARS (cinf o) ; 

if (cur_marker == NULL) { 

/* begin reading a marker */ 

INPUT_2BYTES (cinfo, length, return FALSE); 

length -= 2; 

if (length >= 0) { /* watch out for bogus length word */ 

-4| /* figure out how much we want to save */ 
unsigned int limit; 

if (cinfo->unread_marker (int) M_COM) 
44 limit = marker ->length„limit_COM; 

^=■-..1 else 

_J limit = marker->length_limit_APPn[cinf o->unread_marker - (int) M_APPO] 

if ((unsigned int) length < limit) 
i^L"; limit = (unsigned int) length; 

rVr. /* allocate and initialize the marker item */ 
;y cur_marker = ( jpeg_saved„marker_ptr) 

- (*cinfo->mem->alloc_large) ( { j_common_ptr) cinfo, JPOOL_IMAGE, 
Ll SIZEOF (struct jpeg_marker_struct) + limit); 

'ir cur_marker->next = NULL; 

O cur_marker->marker = (UINT8) cinf o->unread_marker; 
Til cur_marker->original„length = (unsigned int) length; 
cur_marker->data_length = limit; 

/* data area is just beyond the jpeg_marker_struct */ 
O data = cur_marker->data = (JOCTET *) (cur^arker + 1); 
i-^ marker ->cur_marker = cur_marker; 

marker->bytes_read = 0; 

bytes_read = 0; 

data_length = limit; 
} else { 

/* deal with bogus length word */ 
bytes_read = data_length = 0; 
data = NULL; 

} 

} else { 

/* resiime reading a marker */ 
bytes_read = marker->bytes_read; 
data_length = cur_marker->data_length; 
data = cur„marker->data + bytes_read; 



while (bytes_read < datajength) { 

INPUT„SYNC (cinf o) ; /* move the restart point to here */ 

marker ->bytes„read = bytes_read; 

/* If there's not at least one byte in buffer, suspend */ 

MAKE_BYTE_AVAIL( cinfo, return FALSE); 

/* Copy bytes with reasonable rapidity */ 

while (bytes_read < data_length && bytes_in_buf f er > 0) { 

*data++ = *next_input_byte++; 

bytes_in_buf f er — ; 

bytes_read++ ; 

} 

} 
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/* Done reading what we want to read */ 

if (cur_marker 1= NULL) { /* will be NULL if bogus length word */ 
/* Add new marker to end of list */ 
if (cinfo->marker_list == NULL) { 

cinf o->inarker_list = cur_marker; 
} else { 

jpeg_saved_marker_ptr prev = cinf o->marker_list; 
while (prev->next 1= NULL) 
prev = prev->next; 

prev->next = cur_niarker; 

} 

/* Reset pointer & calc remaining data length */ 
data = cur_marker->data; 

length = cur_marker->original_length - data_length; 

} 

/* Reset to initial state for next marker */ 
marker ->cur_marker = NULL; 

/* Process the marker if interesting; else just make a generic trace msg 
switch {cinfo->unread_marker) { 
case M_APPO: 

examine_appO (cinfo, data, data_length, length); 

break ; 
case M_APP14: 

examine_appl4 (cinfo, data, data_length, length); 

break ; 
default : 

TRACEMS2 (cinfo, 1, JTRC_MISC__MARKER, cinf o->unread_marker , 

(int) {data_length + length)); 
break; 

} 

kr.J/* skip any remaining data — could be lots */ 
--j;S:NPUT__SYNC (cinf o) ; /* do before skip_input_data */ 

i|5if (length > 0) 

"^1,: {*cinfo->src->skip„input_data) (cinfo, (long) length); 
return TRUE; 

tjndif /* SAVE_MARKERS_SUPPORTED */ 



tIETHODDEF (boolean) 

skip_variable ( j_decompress_ptr cinfo) 

y^*' Skip over an unlcnown or uninteresting variable- length marker */ 

£';■ 

f, INT32 length; 
:^-":XNPUT_VARS (cinfo) ; 

f-INPUT_2 BYTES (cinfo, length, return FALSE); 
;:;iength -= 2; 

TRACEMS2 (cinfo, 1, JTRC_MISC_MARKER, cinf o->unread_marker , (int) length) 

INPUT__SYNC (cinf o) ; /* do before skip_input„data */ 

if (length > 0) 

(*cinfo->src->skip_input_data) (cinfo, (long) length) ; 

return TRUE; 

} 



/* 

* Find the next JPEG marker, save it in cinf o->ianread_marker . 

* Returns FALSE if had to suspend before reaching a marker; 

* in that case cinf o->unread„marker is unchanged. 

« 

* Note that the result might not be a valid marker code, 

* but it will never be 0 or FF, 
*/ 

LOCAL (boolean) 

next„marker ( j__decompress_ptr cinfo) 
{ 

int c; 

INPUT_VARS (cinf o) ; 

for (;;) { 

INPUT_BYTE( cinfo, c, return FALSE) ; 
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/* Skip any non-FF bytes. 

* This may look a bit inefficient; but it will not occur in a valid fil 

* We sync after each discarded byte so that a suspending data source 

* can discard the byte from its buffer. 
*/ 

while {c != OxFF) { 

c info - >mar ker - >di s car ded_by t es + + ; 
INPUT_SYNC(cinfo) ; 

INPUT_BYTE(cinfo, c, return FALSE) ; 

/* This loop swallows any duplicate FF bytes. Extra FFs are legal as 

* pad bytes, so don't count them in discarded_bytes . We assume there 

* will not be so many consecutive FF bytes as to overflow a suspending 

* data source's input buffer. 
*/ 

do { 

INPUT_BYTE(cinfo, c, return FALSE) ; 
} while (c == OxFF) ; 
if (c != 0) 

break; /* found a valid marker, exit loop */ 

/* Reach here if we found a stuffed-zero data sequence (FF/00) . 

* Discard it and loop back to try again. 
*/ 

cinfo->marker->discarded„bytes += 2; 
INPUT_SYNC (cinf o) ; 

} 

if (cinfo->marker->discarded_bytes 1= 0) { 

WARNMS2 (cinfo, JWRN_EXTRANEOUS_DATA, cinf o- >mar ker- >dis car ded_bytes , c) ; 
cinf o->marker->discarded__bytes = 0; 

} 



c info ->unread_mar ker = c; 

JiNPUT„SYNC(cinfo) ; 
^'^ibeturn TRUE; 

m 



I&AL (boolean) 

ti^f st_marker ( j_decompress_ptr cinfo) 

Like next_marker, but used to obtain the initial SOI marker. */ 
/I4J For this marker, we do not allow preceding garbage or fill; otherwise, 
SI* we might well scan an entire input file before realizing it ain't JPEG. 
:;*= If an application wants to process non-JFIF files, it must seek to the 
SOI before calling the JPEG library, 

m 
111 

""^int c, c2; 
'^IeNPUT.JVARS ( cinfo ) ; 

riNPUT_BYTE( cinfo, c, return FALSE) ; 
l^tNPUT_BYTE (cinfo , c2 , return FALSE) ; 
if (c 1= OxFF M c2 1= (int) M_SOI) 
ERREXIT2 (cinfo, JERR_NO_SOI, c, c2); 

cinf o->unread_marker = c2; 

INPUT_SYNC{ cinfo) ; 
return TRUE; 

} 



* Read markers until SOS or EOI . 

A 

* Returns same codes as are defined for jpeg_consume_input : 

* JPEG_SUSPENDED, JPEG_REACHED_SOS , or JPEG_REACHED_EOI . 

*/ 

METHODDEF(int) 

read_markers ( j_decompress_ptr cinfo) 
{ 

/* Outer loop repeats once for each marker. */ 
for (;;) { 

/* Collect the marker proper, unless we already did. */ 

/* NB: f irst_marker 0 enforces the requirement that SOI appear first, * 
if (cinf o->unread_marker =-0) { 

if (! cinf o->marker->saw_SOI) { 
if (! first_marker (cinfo) ) 
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return JPEG„SUSPENDED ; 
} else { 
if {] next_marker (cinf o) ) 
return JPEG_SUSPENDED; 
} 

/* At this point cinf o->unread_inarker contains the marker code and the 

* input point is just past the marker proper, but before any parameters. 

* A suspension will cause us to return with this state still true. 
*/ 

switch (cinf o->unread_jnarker) { 
case M„SOI: 

if (1 get_soi (cinf o) ) 
return JPEG_SUSPENDED; 

breaks- 



case M_SOF0: /* 
case M__S0F1: /* 

if (I get_sof (cinfo, 
return JPEG_SUSPENDED; 

break; 



Baseline */ 

Extended sequential, Huffman */ 
FALSE, FALSE)) 



case M_S0F2 : /* Progressive, Huffman */ 

if (! get„sof (cinfo, TRUE, FALSE)) 

return JPEG_SUSPENDED; 
breaks- 



case M_S0F9: /* 
if (! get_sof (cinf o, 

return JPEG_SUSPENDED; 
break; 



Extended sequential, arithmetic 
FALSE, TRUE)) 



case M„SOF10: /* Progressive, arithmetic */ 

if (! get_sof (cinfo, TRUE, TRUE)) 
return JPEG_SUSPENDED; 

break; 



/* Currently unsupported SOFn types */ 



case M_S0F3: /* 

case M__S0F5: /* 

case M_S0F6: /* 

case M_S0F7: /* 

case M_JPG: /* 

case M_S0F11: /* 

case M_S0F13: /* 

case M_S0F14: /* 

case M_S0F15: /* 

ERREXITl (cinfo, JERR. 

break; 



Lossless, Huffman */ 
Differential sequential, Huffman */ 
Differential progressive, Huffman */ 
Differential lossless, Huffman */ 
Reserved for JPEG extensions */ 
Lossless, arithmetic */ 
Differential sequential, arithmetic */ 
Differential progressive, arithmetic */ 
Differential lossless, arithmetic */ 
SOF UNSUPPORTED, cinf o->unread_marker ) ; 



case M_SOS: 

if (! get_sos (cinf o) ) 
return JPEG_SUSPENDED; 

cinfo->unread_marker = 0; /* processed the marker */ 

return JPEG_REACHED_SOS ; 



case M„EOI : 

TRACEMS (cinfo , 1 , JTRC_EOI ) ; 

cinfo->unread_marker =0; /* processed the marker */ 
return JPEG_.REACHED_EOI; 



case M_DAC: 

if (! get_dac (cinfo) ) 
return JPEG_SUSPENDED; 

break; 



case M_DHT: 

if (! get„dht (cinfo) ) 
return JPEG_SUSPENDED; 

break; 



case M_DQT: 

if (! get_dqt (cinf o) ) 
return JPEG_SUSPENDED; 

break; 



case M„DRI: 

if (! get_dri (cinf o) ) 
return JPEG_SUSPENDED; 

break; 
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case M_APPO: 
case M_APP1: 
case M_APP2 : 
case M„APP3 : 
case M_APP4: 
case M_APP5 : 
case M_APP6: 
case M_APP7 : 
case M_APP8 : 
case M_APP9 : 
case M_APP10: 
case M„APP11: 
case M_APP12: 
case M_APP13: 
case M_APP14: 
case M_APP15: 

if ( ! (* ( (my_marker_ptr) cinf o->marker) ->process_APPn[ 
cinfo->unread_niarker - (int) M_APPO]) (cinfo)) 
return JPEG_SUSPENDED; 
break; 

case M_COM: 

if {! (* ( {my„marker_ptr) cinf o->inark€r) ->process„COM) (cinfo)) 
return JPEG_SUSPENDED; 
break; 

case M_RSTO: /* these are all parameterless */ 

case M_RST1: 

case M_RST2: 

case M„RST3: 
-^.^ case M_RST4: 

case M_RST5: 
lJ'^ case M_RST6: 

case M_RST7: 

case M:_TEM: 

£j TRACEMSK cinfo, 1, JTRC_PARMLESS_MARKER, cinf o->unread_marker ) ; 
\^ break; 

'■^ case M_DNL: /* Ignore DNL ... perhaps the wrong thing */ 

if (i skip_variable (cinfo) ) 
return JPEG_SUSPENDED; 
break; 

;\ default: /* must be DHP, EXP, JPGn, or RESn */ 

' /* For now, we treat the reserved markers as fatal errors since they are 
O * likely to be used to signal incompatible JPEG Part 3 extensions. 
k'-i * Once the JPEG 3 version-niimfoer marker is well defined, this code 
' * ought to change • 

*/ 

f;-: ERREXITK cinfo, JERR_UNKNOWN_MARKER , cinfo->unread_marker) ; 
5^ break; 

/* Successfully processed marker, so reset state variable */ 
cinf o->unread_marker = 0; 
} /* end loop */ 

} 



* Read a restart marker, which is expected to appear next in the datastream; 

* if the marker is not there, take appropriate recovery action. 

* Returns FALSE if suspension is required. 
* 

* This is called by the entropy decoder after it has read an appropriate 

* number of MCUs . cinf o->unread_marker may be nonzero if the entropy decoder 

* has already read a marker from the data source. Under normal conditions 

* cinfo->unread_marker will be reset to 0 before returning; if not reset, 

* it holds a marker which the decoder will be unable to read past. 
*/ 

METHODDEF (boolean) 

read„restart_marker ( j_decompress_ptr cinfo) 
/* Obtain a marker unless we already did. */ 

/* Note that next„marker will complain if it skips any data. */ 
if (cinf o->unread„marker ==0) { 
if {! next__marker (cinf o) ) 
return FALSE; 

} 
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if (cinf o->unread_marker == 

{(int) M_RSTO + cinf o->marker- >next_res tar t_num) ) { 

/* Normal case swallow the marker and let entropy decoder continue */ 

TRACEMSl (cinfo, 3, JTRC_RST, cinf o->marker ->next_res tar t_num) ; 
cinf o->unread_marker = 0; 

} else { ^ ^ , 

/* Uh-oh, the restart markers have been messed up. */ 
/* Let the data source manager determine how to resync. */ 
if (! (* cinf o->src->resync_to_res tart) {cinfo, 

cinf o->marker- >next_res tar t_n\im) ) 

return FALSE; 



/* Update next-restart state */ 

cinfo->marker->next_restart_num = (cinf o- >marker->next„res tar t_num +1) & 7; 
return TRUE; 



* This is the default resync_to_restart method for data source managers 

* to use if they don't have any better approach. Some data source managers 

* may be able to back up, or may have additional knowledge about the data 

* which permits a more intelligent recovery strategy; such managers would 

* presumably supply their own resync method. 
* 

* read_restart_marker calls resync_to„restart if it finds a marker other than 

* the restart marker it was expecting. (This code is *not* used unless^ 

* a nonzero restart interval has been declared.) cinf o->unread_marker is 
.^..the marker code actually found (might be anything, except 0 or FF) . 
yi-The desired restart marker number (0..7) is passed as a parameter. 
■*1:This routine is supposed to apply whatever error recovery strategy seems 

appropriate in order to position the input stream to the next data segment. 
"^'Note that cinf o->unread_marker is treated as a marker appearing before 
ilthe current data-source input point; usually it should be reset to zero 

before returning. 

Returns FALSE if suspension is required. 

il 

.*1^This implementation is substantially constrained by wanting to treat the 
11 input as a data stream; this means we can't back up. Therefore, we have 
^^^^ only the following actions to work with: 

1. Simply discard the marker and let the entropy decoder resume at next 
:.*. byte of file. 

^ 2. Read forward until we find another marker, discarding intervening 
ffii data. (In theory we could look ahead within the current bufferload, 

Si! without having to discard data if we don't find the desired marker. 

This idea is not implemented here, in part because it makes behavior 
dependent on buffer size and chance buffer -boundary positions.) 
3. Leave the marker unread (by failing to zero cinf o->unread_marker) . 
X This will cause the entropy decoder to process an empty data segment, 

Efe' inserting dummy zeroes, and then we will reprocess the marker. 

* #2 is appropriate if we think the desired marker lies ahead, while #3 is 

* appropriate if the found marker is a future restart marker (indicating 

* that we have missed the desired restart marker, probably because it got 

* corrupted) . 

* We apply #2 or #3 if the found marker is a restart marker no more than 

* two counts behind or ahead of the expected one. We also apply #2 if the 

* foxand marker is not a legal JPEG marker code (it's certainly bogus data) . 

* If the found marker is a restart marker more than 2 counts away, we do #1 

* (too much risk that the marker is erroneous; with luck we will be able to 

* resync at some future point) . 

* For any valid non-restart JPEG marker, we apply #3. This keeps us from 

* overrunning the end of a scan. An implementation limited to single-scan 

* files might find it better to apply #2 for markers other than EOI, since 

* any other marker would have to be bogus data in that case. 

GLOBAL ( boo 1 e an ) 

jpeg_resync„to_restart ( j_decompress_ptr cinfo, mt desired) 

int marker = cinf o->unread_marker ; 
int action = 1; 

/* Always put up a warning. */ 

WAR3MMS2 (cinf o, JWRN_MUST_RESYNC , marker, desired); 

/* Outer loop handles repeated decision after scanning forward. */ 
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for (;;) { 

if (marker < (int) M_SOF0) 

action =2; /* invalid marker */ 

else if (marker < (int) M„RSTO || marker > (int) M_RST7) 

action =3; /* valid non-restart marker */ 

else { , , 

if (marker == ((int) M_RSTO + ( (desired+1) & 7)) 1| 

marker == {(int) M_RSTO + ((desired+2) & 7))) 
action =3; /* one of the next two expected restarts */ 

else if (marker {(int) M_RSTO + ( (desired-1) & 7)) |1 
marker == {(int) M_RSTO + ((desired-2) & 7))) 
action =2; /* a prior restart, so advance */ 

else 

action =1; /* desired restart or too far away */ 

TRACEMS2 (cinfo, 4, JTRC_RECOVERY_ACTION, marker, action); 
switch (action) { 

case 1: . * 

/* Discard marker and let entropy decoder resume processing, 
cinfo- >unread_marker = 0; 
return TRUE; 

case 2 : • > ^ , 

/* Scan to the next marker, and repeat the decision loop. */ 

if (! next„marker (cinfo) ) 
return FALSE; 

marker = cinf o->unread_marker ; 

break; 
case 3 : 

/* Return without advancing past this marker. */ 

/* Entropy decoder will be forced to process an empty segment. 

return TRUE; 

'"^ /* end loop */ 

y4i 



^1 Reset marker processing state to begin a fresh datastream. 
ml?HODDEF (void) 

ifeget_marker_reader ( j_decompress_ptr cinfo) 

" my_marker_ptr marker = {my_marker_ptr) cinf o->marker ; 

^■cinfo->comp„info = NULL; /* until allocated by get_sof */ 
^^~tinfo->input_scan_number = 0; /* no SOS seen yet */ 

nbinfo->unread_marker =0; /* no pending marker */ 
^_^marker->pub.saw_.SOI = FALSE; /* set internal state too */ 



J3narker->pub.saw_S0F = FALSE; 
Clnarker->pub.discarded_bytes - 0; 
v=--marker->cur_marker = NULL; 



* Initialize the marker reader module. 

* This is called only once, when the decompression object is created. 
*/ 

GLOBAL (void) 

jinit_marker_reader { j„decompress_ptr cinfo) 
{ 

my_marker_:ptr marker; 
int i; 

/* Create subobject in permanent pool */ 
marker ~ {my_marker_^tr) 

(*cinfo->mem->alloc_small) { ( j_common_ptr) cinfo, JPOOL_PERMANENT , 
SIZEOF(my_marker_reader) ) ; 
cinfo->marker = (struct jpeg_marker_reader *) marker; 
/* Initialize public method pointers */ 
marker->pub.reset_marker_reader = reset_marker_reader; 
marker->pub.read_markers = read_markers ; 
marker->pub.read_restart_marker = read_restart_marker ; 
/* Initialize COM/APPn processing. 

* By default, we examine and then discard APPO and APP14, 

* but simply discard COM and all other APPn. 
*/ 

marker ->process_COM = skip_variable; 
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marker->length_limit_COM = 0; 
for (i = 0; i < 16; i++) { 

marker->process_APPn[i] = skip_variable; 

marker->iength_limit_APPn[i] = 0; 

marker->process_APPn[0] = ge t_in teres ting_appn ; 
marker->process_APPn[14] = get_interesting_appn; 
/* Reset marker processing state */ 
reset„inarker_reader (cinfo) ; 



/* 

* Control saving of COM and APPn markers into marker_list. 

*/ 

iifdef SAVE_MARKERS_SUPPORTED 

GLOBAL (void) . 
jpeg_save„markers { j_decompress_ptr cinfo, mt marker_cocle , 
unsigned int length_limit ) 

^ my„marker_ptr marker = (my_marker_ptr) cinf o->marker ; 
long maxlength; 

jpeg_marker_:parser_method processor; 

/* Length limit mustn't be larger than what we can allocate 

* (should only be a concern in a 16-bit environment) . 

* / 

maxlength = cinf o->mem->max_alloc_chunk - SIZEOF (struct jpeg_marker_struct) ; 
if (((long) length_limit) > maxlength) 
O length_limit = (unsigned int) maxlength; 

%jic Choose processor routine to use. 

01* APP0/APP14 have special requirements. 

r if (1 ength_l imi t ) { 

"'^1 processor = save_inarker ; ^ 

/* If saving APP0/APP14, save at least enough for our internal use. */ 
11. if (marker„code == (int) M^PPO && length_limit < APPO_DATA_LEN) 

length_limit = APPO_DAT^JiEN; _ 
ni else if (marker„code =^ (int) MJ^PP14 && length_lirait < APP14_r>ATA_LEN) 
1"' length_liniit = APP14_DATA_LEN; 
^ } else { 

Mi processor = skip_variable; , 

k.., /* If discarding APP0/APP14, use our regular on-the-fly processor. */ 
Jit if (marker_code == (int) M_APPO |1 marker^code == (int) M^PP14) 
flJ processor = get_interesting_appn; 

\| 

^^hf (marker_code == (int) M_COM) { 
fi marker->process_COM = processor; 

marker->length_limi t_.COM = length_limit ; ^ r 

} else if (marker_code >= (int) M_APPO Sc& marker_code <= (int) M_APP15) { 

marker->process_APPn[marker_code - (int) M_APPO] = processor; 

marker->length_limit_APPn[marker_code - (int) M_APP03 = length_limit ; 

ERREXITKcinfo, JERR_UNKNOWN„MARKER, marker_code) ; 

} 

#endif /* SAVE_MARKERS_SUPPORTED */ 



* Install a special processing method for COM or APPn markers. 

*/ 

GLOBAL (void) , ^ . , 

jpeg_set_marker_processor ( j_decompress jtr cmfo, mt marker_cocie , 
jpeg_marker_parser_method routine) 

^ my_marker_ptr marker = {my_marker_^tr) cinf o->marker; 

if (marker_code == (int) M_COM) 

marker->process_COM = routine; 
else if (marker_code >= (int) M_APPO && marker_code <= dnt) M_APP15) 

raarker->process_APPn[marker_code - (int) M_APPO] = routine; 

ERREXITl (cinfo, JERR_UNKNOWN_MARKER , marker_code) ; 
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* jc3master.G 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains master control logic for the JPEG decompressor. 

* These routines are concerned with selecting the modules to be executed 

* and with determining the number of passes and the work to be done in each 

* pass. 
*/ 

#define JPEG_INTERNALS 
#include »j include. h" 
#include "jpeglib.h" 

/* Private state */ 

typedef struct { . . ^ * / 

struct jpeg_decomp_master pub; /* public fields */ 

int pass_n\amber; /* # of passes completed */ 

boolean us ing_merged_ups ample; /* TRUE if using merged upsample/cconvert */ 

/* Saved references to initialized quantizer modules, 
* in case we need to switch modes. 

*/ 

struct jpeg_color_quantizer * quantizer_lpass; 
f Struct jpeg_color_quantizer * quant izer_2pass; 
} ' ;;'|iy_decomp„mas t e r ; 



tgpedef my_decomp_master * my_master_^tr ; 

*-I Determine whether merged upsample/color conversion should be used. 
CRUCIAL: this must match the actual capabilities of jdmerge.c! 

# 



IjOCAL (boolean) 

\^e_merged_upsample { j_decompress_ptr cinfo) 
4if def UPSAMPLE„MERGING_SUPPORTED 

LJy* Merging is the equivalent of plain box-filter upsamplmg */ 
flilLf (cinf o->do_fancy_jupsampling | ] cinf o->CCIR601_sainpling) 
L";: return FALSE; 

"^/* jdmerge.c only supports YCC=>RGB color conversion */ 

Qif (cinfo->jpeg„color_space JCS_YCbCr || cinf o->num_components != 3 | 
cinfo->out„color_space != JCS_RGB | | 
cinfo->out_color_components != RGB„PIXELSIZE) 
return FALSE; 

/* and it only handles 2hlv or 2h2v sampling ^ ratios */ 
if (cinf o->comp_info [0] .h_samp_f actor 1= 2 ' ' 

cinf o->comp_inf o [1] .h_samp_f actor i= 1 

cinf o->comp„info [2] .h_samp_f actor 1= 1 

cinfo->comp_info[0] .v_samp_f actor > 2 

cinfo->comp_info[l] .v_samp_f actor != 1 

cinf o->comp_info [2] .v_samp_f actor != 1) 

/*^furthermore! it doesn't work if we've scaled the IDCTs differently */ 



= cinfo->min_DCT_scaled_size 
= cinf o->min_DCT_scaled_size 
= cinfo->min_DCT_scaled_size) 



if (cinfo->comp_info[0] .DCT_scaled_size 
cinfo->comp_info[l] .DCT_scaled_size 
cinf o->comp_inf o [ 2 ] . DCT_scaled_size 
return FALSE; ^. ^ ^ ^ */ 

/* ??? also need to test for upsample-time rescalmg, when & if supported */ 
return TRUE; /* by golly, it'll work... */ 

#else 

return FALSE; 
#endif 
} 



* Conpute output image dimensions and related values.^ 

* NOTE: this is exported for possible use by application. 

* Hence it mustn't do anything that can't be done twice. 

* Also note that it may be called before the master module is initialized! 
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*/ 

GLOBAL (void) . 

jpeg_calc_output_dimensions ( j_decompress_ptr cmfo) 

/* Do computations that are needed before master selection phase */ 

{ 

#ifdef IDCT_SCALING_SUPPORTED 
int ci; 

jpeg„component_inf o *compptr; 
#endif 

/* Prevent application from calling me at wrong times */ 
if (cinfo->global_state != DSTATE_READY) 

ERREXITKcinfo, JERR_BAD_STATE , cinfo->global_state) ; 

#ifdef IDCT_SCALING_SUPPORTED 

/* Compute actual output image dimensions and DCT scaling choices. */ 
if {cinfo->scale_num * 8 <= cinf o->scale„denom) { 
/* Provide 1/8 scaling */ 
cinfo->output_width = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_width, 8L) ; 
cinfo->output_height = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_height, 8L) ; 
cinfo->min_DCT_scaled_size = 1; 
} else if (cinfo->scale_num * 4 <= cinf o->scale_denom) { 
/* Provide 1/4 scaling */ 
cinfo->output_width = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_width, 4L) ; 
cinfo->output_height = (JDIMENSION) 

jdiv_round_up( (long) cinf o->image_height , 4L) ; 
cinf o->min_DCT_scaled_size = 2; 
"■I else if {cinfo->scale_nxim * 2 <= cinf o->scale_denom) { 
-4=^ /* Provide 1/2 scaling */ 
31 cinfo->output_width = (JDIMENSION) 
'^r-^ jdiv_round_up( (long) cinf o->image_width, 2L) ; 

cinfo->output_height = (JDIMENSION) 
^■1 jdiv_round^p( (long) cinf o->image_height, 2L) ; 
^% cinfo->min_DCT_scaled^size = 4; 
^!} else { 

C /* Provide 1/1 scaling */ 

ftl cinfo->output_width = cinf o->image_width; 

cinfo->output_height = cinf o->image_height ; 
" cinfo->min_DCT_scaled_size = DCTSIZE; 

--i/* In selecting the actual DCT scaling for each component, we try to ^ 

* scale up the chroma components via IDCT scaling rather than upsamplmg 
Oj * This saves time if the upsampler gets to use 1:1 scaling. 

'^i * Note this code assumes that the supported DCT scalings are powers of 2 

■■^^ */ 

Of or (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
f'% ci++, compptr++) { 

'"'"^ int ssize = cinf o->min_DCT_scaled__size; 
while (ssize < DCTSIZE && 

(compptr->h_samp_factor * ssize * 2 <= 

cinf o->max_h_samp_factor * cinf o->min_DCT_scaled_size) && 
(compptr->v_samp_f actor * ssize * 2 <= 

cinf o->max_v_samp_factor * cinf o->min_DCT„scaled„size) ) { 
ssize = ssize * 2; 

} 

compptr- >DCT__scaled__size = ssize; 

} 

/* Recompute downsampled dimensions of components; 

* application needs to taow these if using raw downsampled data. 

*/ 

for (ci = 0, compptr = cinf o->comp_inf o ; ci < cinf o->num_components; 
ci-f-+ , compptr+H-) { 
/* Size in samples, after IDCT scaling */ 
compptr->downsampled„width = (JDIMENSION) 
jdiv_round__up( (long) cinf o->image_width * 

(long) (compptr->h„samp_f actor * compptr->DCT_scaled_size) , 
(long) (cinfo->max_h_samp_factor * DCTSIZE)); 
compptr->downsampled_height = (JDIMENSION) 

jdiv_round_up{ (long) cinf o->image_height * ^ . . 

(long) (compptr->v_samp_f actor * compptr->DCT_scaled_size) , 
(long) ( cinf o->max__v_samp_f actor * DCTSIZE)); 

} 

#else /* ! IDCT_SCALING_SUPPORTED */ 
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/* Hardwire it to "no scaling'' */ 
cinfo->output_width = cinf o->iraage_width; 
cinf o->output_height = cinf o->image_height; 
/* jdinput.c has already initialized DCT_scaled_size to DCTSIZE, _ 
* and has computed unsealed downsainpled_width and downs amp 1 ed_he ight . 

*/ 

#endif /* I DCT_SCALING_SUP PORTED */ 

/* Report number of components in selected colorspace. */ 

/* Probably this should be in the color conversion module... */ 

switch (cinf o->out_color_space) { 

case JCS„GRAYSCALE: 

cinfo->out_color_components = In- 
break; 

case JCS_RGB: 
#if RGB„PIXELSIZE != 3 

cinfo->out_color_components = RGB_PIXELSIZE; 

break; 

#endif /* else share code with YCbCr */ 
case JCS_YCbCr: 

cinfo->out_color_components ~ 3; 

break; 
case JCS_CMYK: 
case JCS_YCCK: 

cinfo->out_color_components = 4; 

break; . */ 

default: /* else must be same colorspace as in file */ 

cinfo->out_color_components = cinf o->nxim_components; 
break; 

.'^^ 

'===?i;info->output_components = (cinf o->quantize_colors ? 1 : 
;Jl cinf o->out_color_components) ; 

^=7* See if upsampler will want to emit more than one row at a time */ 
4if (use_merged„upsainple (cinfo) ) 

%i cinfo->rec_outbuf_height = cinf o->max_v_samp_f actor ; 

..[^Ise 

cinf o->rec_outbuf_height = 1; 

Several decompression processes need to range-limit values to the range 
0 MAXJSAMPLE; the input value may fall somewhat outside this range 
due to noise introduced by quantization, roundoff error, etc. These 
processes are inner loops and need to be as fast as possible. On most 
machines, particularly CPUs with pipelines or instruction prefetch, 
a (subscript-check-less) C table lookup 

m X = s amp 1 e_r ange_l imi t [ x ] ; 

Si is faster than explicit tests 
if (X < 0) X = 0; 

* else if (X > MAXJSAMPLE) x = MAXJSAMPLE; 

* These processes all use a common table prepared by the routine below. 

* 

* For most steps we can mathematically guarantee that the initial value 

* of X is within MAXJSAMPLE+1 of the legal range, so a table running from 

* - (MAXJSAMPLE+1) to 2*MAXJSAMPLE+1 is sufficient. But for the initial 

* limiting step (just after the IDCT) , a wildly out-of -range value is 

* possible if the input data is corrupt. To avoid any chance of indexing 

* off the end of memory and getting a bad-pointer trap, we perform the 

* post-IDCT limiting thus: 

* X = range_limit[x & MASK]; ^ ^.^ ^ o i,-*- 

* where MASK is 2 bits wider than legal sample data, le 10 bits for 8-bit 

* samples. Under normal circumstances this is more than enough range and 

* a correct output will be generated; with bogus input data the mask will 

* cause wraparound, and we will safely generate a bogus -but- in-range output. 

* For the post-IDCT step, we want to convert the data from signed to unsigned 

* representation by adding CENTERJSAMPLE at the same time that we limit it. 

* So the post-IDCT limiting table ends up looking like this: 

* CENTERJSAMPLE , CENTERJSAMPLE+ 1 , MAXJSAMPLE , 

* MAXJSAMPLE (repeat 2* (MAXJSAMPLE+1) -CENTERJSAMPLE times), 

* 0 (repeat 2* (MAXJSAMPLE+1) -CENTERJSAMPLE times), 

* 0,1,..., CENTERJSAMPLE- 1 

* Negative inputs select values from the upper half of the table after 

* masking. 
* 

* We can save some space by overlapping the start of the post-IDCT table 

* with the simpler range limiting table. The post-IDCT table begins at 
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* sample_range_.limit + CENTERJSAMPLE . 
* 

* Note that the table is allocated in near data space on PCs; it's small 

* enough and used often enough to justify this. 
*/ 

LOCAL (void) . ^ ^ 

prepare_range_liinit_table ( j_decompress_ptr cmfo) 

/* Allocate and fill in the sample_range_limit table */ 

{ 

JSAMPLE * table; 
int i; 

table = (JSAMPLE *) 

(*cinfo->mem->alloc_small) ( ( j„coinmon_ptr ) cinfo, JPOOL_IMAGE, 
(5 * (MAXJSAMPLE+1) + CENTERJSAMPLE) * S I ZEOF (JSAMPLE) ) ; 
table += (MAXJSAMPLE+1) ; /* allow negative subscripts of simple table */ 
cinfo->sample_range_limit = table; 

/* First segment of "simple" table: limit [x] = 0 for x < 0 */ 
MEMZERO( table - (MAXJSAMPLE+1), (MAXJSAMPLE+1) * SIZEOF (JSAMPLE) ) ; 
/* Main part of "simple" table: limit [x] = x */ 
for (i = 0; i <= MAXJSAMPLE; i++) 

table [i] = (JSAMPLE) i; . ^ * / 

table += CENTERJSAMPLE; /* Point to where post-IDCT table starts */ 
/* End of simple table, rest of first half of post-IDCT table */ 
for (i = CENTERJSAMPLE; i < 2 * (MAXJSAMPLE+1) ; i++) 

table [i] = MAXJSAMPLE; 
/* Second half of post-IDCT table */ 
MEMZERO(table + (2 * { MAXJSAMPLE+1) ) , 

(2 * (MAXJSAMPLE+1) - CENTERJSAMPLE) * SIZEOF (JSAMPLE) ) ; 
MEMCOPY (table + (4 * (MAXJSAMPLE+1) - CENTERJSAMPLE), 

cinfo->sample_range_limit, CENTERJSAMPLE * SIZEOF (JSAMPLE) ) ; 



■iJ Master selection of decompression modules. 

'=^;This is done once at jpeg_start_decompress time. We determine 

C which modules will be used and give them appropriate initialization calls. 

W^we also initialize the decompressor input side to begin consuming data. 

Since jpeg„read_header has finished, we know what is in the SOF 
and (first) SOS markers. We also have all the application parameter 
^* settings. 

1^ 



riotALCvoid) 

i?^jster_s elect ion ( j„decompress_ptr cinfo) 

^'^iny_master_ptr master = (my_master_ptr) cinf o->master; 
f Isoolean use„c_buf f er ; 
Siong samplesperrow; 
'^^^'ijDIMENSION j d_s ample sparrow; 

/* Initialize dimensions and other stuff */ 
jpeg_calc„output_dimensions (cinfo) ; 
prepare_range_limit_table (cinf o) ; 

/* Width of an output scanline must be representable as JDIMENSION. */ 
samplesperrow = (long) cinf o->output_width * (long) cinf o->out_color_components 
jd_samplesperrow = (JDIMENSION) samplesperrow; 
if ((long) jd„samplesperrow >= samplesperrow) 
ERREXIT (cinfo , JERR_WIDTH_OVERFLOW) ; 

/* Initialize my private state */ 

master->pass_number = 0; , . 4= ^ 

raaster->using_merged„upsample = use_merged_upsample (cmf o) ; 

/* Color quantizer selection */ 
master->quantizer_lpass = NULL; 
master->quantizer_2pass = NULL; 

/* No mode changes if not using buffered- image mode. */ 
if {{ cinfo->quanti2e_colors 1| 1 cinf o->buf f ered_image) { 

cinf o->enable_lpass_quant = FALSE; 

cinfo->enable„external_quant = FALSE; 

cinfo->enable_2pass_quant - FALSE; 

if (cinf o->quantize_colors) { 
if (cinf o->raw_data_out) 

ERREXIT ( cinfo , JERR_NOTIMPL) ; 
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/* 2-pass quantizer only works in 3-coinponent color space. */ 
if (cinf o->out_color_coniponents != 3) { 

cinfo->enable_lpass_quant = TRUE; 

cinfo->enable_external_quant = FALSE; 

cinfo->enable_2pass_quant = FALSE; 

cinf o->colorniap = NULL; 
} else if {cinfo->colormap != NULL) { 

cinfo->enable_external_quant = TRUE; 
} else if (cinf o->two_pass_quantize) { 

cinfo->enable_2pass_quant = TRUE; 
} else { 

cinfo->enable_lpass_quant - TRUE; 

} 

if (cinf o->enable_lpass_quant) { 
#ifdef QUANT_1PASS_SUPP0RTED 

jinit_lpass_quantizer (cinfo) ; 
master->quantizer_lpass = cinf o->cquantize; 

#else 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 

#endif 
} 

/* We use the 2-pass code to map to external colormaps. */ 
if (cinfo->enable_2pass_quant | | cinf o->enable_external_quant) { 
#ifdef QUANT_2PASS_SUPP0RTED 

jinit_2pass_quantizer (cinfo) ; 
master->quantizer_2pass = cinf o->cquantize; 

#else 

ERREXIT (cinfo , JERR_NOT„COMPILED) ; 

#endif 

Q /* If both quantizers are initialized, the 2-pass one is left active; 
iJI * this is necessary for starting with quantization to an external map. 
S */ 

Post-processing: in particular, color conversion first */ 
At {I cinfo->raw_data_out) { 
tfj if ( mas ter->using_merged_ups ample) { 
Mldef UPSAMPLE_MERGING_SUPPORTED 

jinit_merged_upsampler (cinfo) ; /* does color conversion too */ 

rfeise 

a ERREXIT (cinfo , JERR_NOT„COMPILED) ; 

=te!idif 

} else { 

L'l jinit_color_deconverter (cinf o) ; 
i jinit_upsampler (cinf o) ; 

"'""j jinit_d_post_controller (cinfo, cinf o->enable_2pass_quant) ; 

f>} 

;;:/* Inverse DCT */ 

Wjinit_inverse_dct (cinf o) ; . ^. + / 

/* Entropy decoding: either Huffman or arithmetic coding. */ 
if (cinf o->arith_code) { 

ERREXIT (cinfo, JERR_ARITH_NOTIMPL) ; 
} else { 

if (cinf o->pr ogres si ve„mode) { 
#ifdef D_PROGRESSIVE_SUPPORTED 

jinit_phuff_decoder (cinfo) ; 

#else 

ERREXIT (cinfo, JERR_NOT_COMPILED) ; 

#endif 

} else 

jinit_huf f„dec Oder (cinf o) ; 

} 

/* Initialize principal buffer controllers. */ 

use_c_buf f er = cinf o->inputctl ->has_mul tip le_s cans | | cinf o->buf f ered_image 
jinit_d_coef_controller (cinfo, use_c_buf f er) ; 

if (1 cinfo->raw_data_out) . ^ */x 

jinit_d_main_controller (cinfo, FALSE /* never need full buffer here */); 

/* We can now tell the memory manager to allocate virtual arrays. */ 
{*cinfo->mem->realize„virt_arrays) ( ( j_conimon_ptr) cinfo) ; 

/* Initialize input side of decompressor to consume first scan. */ 
(*cinfo->inputctl->start_input__pass) (cinfo) ; 
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#ifdef D_MULTISCAN_FILES_SUPPORTED 

/* If jpeg_start_decompress will read the whole file, initialize 

* progress monitoring appropriately. The input step is counted 

* as one pass. 
*/ 

if (cinfo->progress ! = NULL && I cinfo->buf f ered_image && 
cinfo->inputctl->has_multiple_scans) { 
int nscans; 

/* Estimate number of scans to set pass_liinit. */ 
if (cinf o->pr ogres si ve_mode) { 

/* Arbitrarily estimate 2 interleaved DC scans + 3 AC scans /component . */ 

nscans = 2 + 3 * cinf o->num_components ; 
} else { 

/* For a nonprogressive multiscan file, estimate 1 scan per component. */ 
nscans = cinf o->num_components ; 

} 

cinf o->progress->pass_counter = OL; 

cinfo->progress->pass_limit = (long) cinf o->total_iMCU_rows * nscans; 
cinf o->progress->completed__passes = 0; 

cinfo->progress->total_passes = (cinf o->enable_2pass„quant ? 3 : 2) ; 

/* Count the input pass as done */ 

master->pass_number++; 

} 

#endif /* D_MULTISCAN_FILES_SUPPORTED */ 



* Per-pass setup. . 

* This is called at the beginning of each output pass. We determine which 

* modules will be active during this pass and give them appropriate 
start_j)ass calls. We also set is_dummy_^ass to indicate whether this 

%Jis a "real" output pass or a dummy pass for color quantization. 

{In the latter case, jdapistd.c will crank the pass to completion.) 

J^ilHODDEF (void) 

pi:fepare_f.or„output_pass ( j_decompress jtr cinfo) 
*Ji3^y_master_^tr master = (my_master_ptr ) cinf o->master; 
i 1 f ( mas t er - >pub . i s_dummy_^ ass) { 

fitdef QUANT_2PASS_SUPP0RTED 
s /* Final pass of 2-pass quantization */ 
i - master->pub.is_dimimy_pass = FALSE; 

{*cinfo->cquantize->start_pass) (cinfo, FALSE); 
D (*cinfo->post->start_pass) (cinfo, JBUF_CRANKJ)EST ) ; 
51: (*cinfo->main->start_pass) (cinfo, JBUF_CRANK_DEST) ; 

#eise 

Ni ERREXIT( cinfo, JERKJ^OT_COMPILED) ; 
fendif /* QUANT_2PASS_SUPP0RTED */ 
else { 

U if (cinf o->quantize_colors && cinf o->colormap == NULL) { 
/* Select new quantization method */ 

if (cinfo->twojpass_quantize && cinf o->enable_2pass_quant) { 
cinfo->cquantize = master->quantizer_2pass; 
master->pub.is_dummy_pass = TRUE; 

} else if (cinf o->enable_lpass__quant) { 
cinfo->cquantize = master->quantizer_lpass; 

} else { 

ERREXIT ( c inf o , JERR_MODE_CHANGE ) ; 
} 

(*cinfo->idct->start_pass) (cinfo) ; 
(*cinfo->coef->start_output_pass) (cinfo) ; 
if (! cinfo->raw_data_out) { 

if ( ! mas ter->using_merged_ups ample) 
(*cinfo->cconvert->start_pass) (cinfo) ; 

(*cinf o->upsample->start_pass) (cinfo) ; 

if (cinf 0">quanti ze_co lor s) 
(*cinfo->cquantize->start_pass) (cinfo, master->pub. is_duinmy_pass) ; 

(*cinfo->post->startjass) (cinfo, 

(master->pub.is_dummy_pass ? JBUF„SAVE_AND_PASS : JBUF_PASS_THRU) ) ; 

(*cinfo->main->start_pass) (cinfo, JBUF_PASS_THRU) ; 

} 

} 

/* Set up progress monitor's pass info if present */ 
if (cinf o->progress != NULL) { 

cinf o->progress->completed_passes = master->pass_number ; 
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cinfo->progress->total_passes = master->pass_niimber + 

(master->pub. is_d\immy^ass 7 2:1); 
/* In buffered- image mode, we assume one more output pass if EOI not 

* yet reached/ but no more passes if EOI has been reached. 

*/ 

if (cinf o->buf fered_iraage && ! cinf o->inputctl->eoi_reached) { 

cinfo->progress->total_passes (cinf o->enable_2pass_quant ? 2 : 1) 

} 

} 

} 



* Finish up at end of an output pass. 
V 

METHODDEF(void) 

f inish_output_pass { j_decompress_ptr cinfo) 

my_master_j)tr master = {my_master_ptr) cinf o->raaster ; 

if (cinf o->quantize_colors) 

(*cinfo->cquantize->f inish_pass) (cinfo) ; 
master->pass_number++ ; 

} 



#ifdef Djy[ULTISCAN_FILES_SUPPORTED 
/* 

* Switch to a new external colormap between output passes. 

H 

Gi©BAL (void) 

j^fg_new_colormap ( j_decompress_ptr cinfo) 

4Siy_master_ptr master = (my_master_ptr) cinf o->master ; 

f* Prevent application from calling me at wrong times */ 
'^if (cinfo->global_state DSTATE_BUFIMAGE) 

ERREXITKcinf o, JERR_BAD_STATE , cinf o->global_state) ; 

"••^if (cinf o->quantize„colors && cinf o->enable_external_quant && 

cinf o->colormap != NULL) { 
~ /* Select 2 -pass quantizer for external colormap use */ 

cinf o->cquantize = master->quantizer_2pass; 
£j. /* Notify quantizer of colormap change */ 
rr {*cinf o->cquanti2e->new_color_map) (cinfo) ; 
f'^^' master->pub.is_dummy_pass = FALSE; /* just in case */ 
"-^ else 

ERREXIT( cinfo, JERR„MODE_CHANGE) ; 
#endif /* D_MULTISCAN_FILES_SUPPORTED */ 



* Initialize master decompression control and select active modules. 

* This is performed at the start of jpeg_start_decompress . 
*/ 

GLOBAL (void) 

jinit_master_decompress ( j_de compress.^ tr cinfo) 
{ 

my_master_ptr master ; 

master = (my„master_ptr ) 

{*cinfo->mem->alloc_small) ( ( j__common_ptr) cmfo, JPOOL_IMAGE, 
SIZEOF(my_.decomp_j:naster) ) ; 
cinfo->master = (struct jpeg_.decomp_master *) masters- 
master ->pub. prep are_for_output_pass = prepare_for_output_pass? 
master->pub. f inish_output_pass = f inish_output jass; 

mas t er- >pub . i s_dxammy_pas s = FALSE ; 

master_selection (cinf o) ; 

} 
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/* 

* j dmerge . c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains code for merged upsampling/color conversion. 
* 

* This file combines f\mctions from jdsample.c and jdcolor.c; 

* read those files first to understand what's going on. 
* 

* When the chroma components are to be upsampled by simple replication 

* (ie, box filtering) , we can save some work in color conversion by 

* calculating all the output pixels corresponding to a pair of chroma 

* samples at one time. In the conversion equations 

* R = Y + Kl * Cr 

* G = Y + K2 * Cb + K3 * Cr 

* B = Y + K4 * Cb 

* only the Y term varies among the group of pixels corresponding to a pair 

* of chroma samples, so the rest of the terms can be calculated just once, 

* At typical sampling ratios, this eliminates half or three-quarters of the 

* multiplications needed for color conversion. 

* 

* This file currently provides implementations for the following cases: 

* YCbCr => RGB color conversion only. 

* Sampling ratios of 2hlv or 2h2v. 

* No scaling needed at upsample time. 

* Corner-aligned (non-CCIR601) sampling alignment. 

* other special cases could be added, but in most applications these are 

* the only common cases. (For uncommon cases we fall back on the more 
.-1*==: general code in jdsample.c and jdcolor.c.) 

y 

#|[|fine JPEG_INTERNALS 
#f Gclude " j inc lude . h " 
#Mclude "jpeglib.h" 

#iidef UPSAMPLE_MERGING_.SUPPORTED 

/f^;; Private subobject */ 
t^edef struct { 

L^truct jpeg_ups ampler pub; /* public fields */ 

Pointer to routine to do actual upsampling/ conversion of one row group */ 
f1plETH0D(void, upmethod, ( j_decompress_ptr cinfo, 
V) JSAMPIMAGE input_buf, JDIMENSION in_row_group_ctr , 

^'1 JSAMPARRAY output_buf ) ) ; 

Private state for YCC->RGB conversion */ 

'^^'Int * Cr_r_tab; /* => table for Cr to R conversion */ 

int * Cb_b_tab; /* => table for Cb to B conversion */ 

INT32 * Cr_g_tab; /* => table for Cr to G conversion */ 

INT32 * Cb_g_tab; /* => table for Cb to G conversion */ 

/* For 2:1 vertical sampling, we produce two output rows at a time. 

* We need a "spare" row buffer to hold the second output row if the 

* application provides just a one-row buffer; we also use the spare 

* to discard the dummy last row if the image height is odd, 
*/ 

JSAMPROW spare_row; 

boolean spare_full; /* T if spare buffer is occupied */ 

JDIMENSION out_row_width; /* samples per output row */_ 
JDIMENSION rows_to„go; /* counts rows remaining in image */ 
} itiy_up sampler; 

typedef my_ups ampler * my__upsample_ptr ; 

#define SCALEBITS 16 /* speediest right-shift on some machines */ 

#define ONE„HALF {(INT32) 1 « (SCALEBITS-1) ) 

#define FIX(x) {(INT32) ( (x) * (1L« SCALEBITS) + 0,5)) 



/* 

* Initialize tables for YCC->RGB colorspace conversion. 

* This is taken directly from jdcolor.c; see that file for more info. 
*/ 
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LOCAL (void) , 
build_ycc_rgb_table ( j_decompress_ptr cmfo) 

^ my_upsample_ptr upsample = (my_upsample_ptr) cinf o->upsample; 
int i; 
INT32 x; 
SHIFT„TEMPS 

upsample->Cr_r_tab = (int *) 

{*cinfo->mem->alloc_small) ( ( j_coinmon_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF ( int ) ) ; 
upsample->Cb_b_tab = (int *) 

{*cinfo->mem->alloc_small) ( ( j_commonjtr) cinfo, JPOOL_IHAGE, 
(MAXJSAMPLE+1) * SIZEOF ( int )) ; 
upsaniple->Cr„g_tab = (INT32 *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF (INT32 )) ; 
upsample ->Cb_g_tab = (INT32 *) 

(*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
(MAXJSAMPLE+1) * SIZEOF ( INT32 )) ; 

for (i = 0, X = -CENTERJSAMPLE; i <= MAXJSAMPLE; i++, x++) { 

/* i is the actual input pixel value, in the range 0 . .MAXJSAMPLE */ 
/* The Cb or Cr value we are thinking of is x = i - CENTERJSAMPLE */ 
/* Cr=>R value is nearest int to 1,40200 * x */ 
upsample->Cr_r_tab[i] = (int) 

RIGHT_SHIFT (FIX (1.4 0200) * X + ONE_HALF, SCALEBITS) ; 
/* Cb=>B value is nearest int to 1.77200 * x */ 
upsample->Cb_b_tab[i] = (int) 

RIGHT_SHIFT (FIX (1,77200) * X + ONE_HALF, SCALEBITS); 
Tii /* Cr=>G value is scaled-up -0.71414 * x */ 
It upsainple->Cr_g_tab[i] = (- FIX (0 . 71414 ) ) * x; 
-J:^ /* Cb=>G value is scaled-up -0.34414 * x */ 

/* We also add in ONE_HALF so that need not do it in inner loop */ 
upsample->Cb_g_tab[i] = (- FIX (0 . 34414) ) * x + ONE_HALF; 

Mi- 

f*;; Initialize for an upsampling pass. 

y/ 

jfeTHODDEF (void) 

4fc;^rt_pass_merged_upsample ( j_decompress_i)tr cinfo) 

fijni^_upsainple_ptr upsample = (iay_upsample_ptr ) cinf o->ups ample; 

3* Mark the spare buffer empty */ 
Crupsainple->spare_full = FALSE; 

f¥* Initialize total-height counter for detecting bottom of image */ 

^'^upsaniple->rows„to_go = cinf o->output_height; 

} 

/* 

* Control routine to do upsampling (and color conversion). 
* 

* The control routine just handles the row buffering considerations. 
*/ 

METHODDEF(void) 

merged_2v_upsample ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION * in_row_group_ctr , 

JDIMENSION in„row_groups_avail, 

JSAMPARRAY output_buf, JDIMENSION *out_row„ctr , 

JDIMENS ION out_r ows„avai 1 ) 
/* 2:1 vertical sampling case: may need a spare row. */ 

^ my_upsample_j3tr upsample = (my_upsample_ptr) cinf o->upsample; 
JSAMPROW work_:ptr s [23; ^ 
JDIMENSION num_rows; /* number of rows returned to caller */ 

if (upsample->spare_full) { ^ . . ^ ^ • 4_ * / 

/* If we have a spare row saved from a previous cycle, just return it. / 
jcopy_sample_rows(& upsample ->spare_row, 0, output_buf + *out_row_ctr , 0, 

1 , up s amp 1 e - > ou t„r ow_wi dth ) ; 
nunL.rows ~ 1; 

upsample- >spare„full = FALSE; 
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} else { 

/* Figure number of rows to return to caller. */ 
n\am„rows = 2; 

/* Not more than the distance to the end of the image, */ 
if (nura_rows > upsample->rows_to_go) 

num^rows = upsample->rows_to_go; 
/* And not more than what the client can accept: */ 
out„rows_avail -= *out_row_ctr; 
if {num_rows > out_rows_avai 1 ) 

num_rows = out_rows„avail ; 
/* Create output pointer array for upsampler. */ 
work__ptrs [0] = output_buf [*out_row_ctr] ; 
if (num_rows > 1) { 

work_ptrs[l] - output„buf [*out_row_ctr + 1] ; 
} else { 

work_ptrs[l] = upsample->spare_row; 
upsample->spare_full = TRUE; 

} 

/* Now do the upsampling, */ 

(*upsaJtiple->upmethod) (cinfo, input_buf, *in„row__group_ctr, work_^trs) ; 

} 

/* Adjust counts */ 
*out_row__ctr += niim_rows; 
upsample->rows_to_go -= num_rows; 

/* When the buffer is emptied, declare this input row group consumed */ 
if (! upsainple->spare__full) 
( *in_row__group_,ctr ) ++ ; 



MpTHODDEF (void) 

]nijged_lv„upsample { j_decompress _ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in„row„group_ctr , 
Jl JDIMENSION in_row_groups_avail, 

J-i JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 

JDIMENSION out_rows__avail) 
/t-*'*", 1:1 vertical sampling case: much easier, never need a spare row. */ 

^rtiy_upsample^tr upsample = (my_upsample_ptr) cinf o->upsample; 

/* Just do the upsampling. */ 
r ^(*upsample->upmethod) (cinfo, input_buf, *in_row_group_ctr, 
t'"' output_buf + *out_row_ctr) ; 

O* Adjust counts */ 

* out__r ow_c tr ) + -H ; 
^ * in_row„group_ctr ) ++ ; 

M 

m 

* These are the routines invoked by the control routines to do 

* the actual upsampling/conversion. One row group is processed per call. 
* 

* Note: since we may be writing directly into application- supplied buffers, 

* we have to be honest about the output width? we can't assume the buffer 

* has been rounded up to an even width. 

*; 



/* 

* Upsample and color convert for the case of 2:1 horizontal and 1:1 vertical. 
*/ 

METHODDEF (void) 

h2vl_merged_ups ample ( j_decompress ^tr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION in_row_group„ctr , 
JSAMPARRAY output_buf) 

{ 

my_upsample_i?tr upsample = (my__upsample_ptr) cinf o->upsample; 
register int y, cred, cgreen, cblue; 
int chf cr; 

register JSAMPROW outptr; 
JSAMPROW inptrO, inptrl, inptr2; 
JDIMENSION col; 

/* copy these pointers into registers if possible */ 
register JSAMPLE * range_limit - cinf o->sainple_range_limit; 
int * Crrtab ~ upsample->Cr_r_tab; 
int * ebb tab = upsample- >Cb_b_tab; 
INT32 * Crgtab = upsample->Cr_g_tab; 
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INT32 * Cbgtab = ups ample ->Cb_g_tab; 
SHIFT_TEMPS 

inptrO = input^buf [0] [in_row_group_ctr] ; 
inptrl = input_buf [1] [in__row_group_.ctr] ; 
inptr2 = input_buf [2 3 [in_row_group_ctr] ; 
outptr = output_buf [ 0 ] ; 

/* Loop for each pair of output pixels */ 

for (col = cinfo->output_width » 1; col > 0; col--) { 

/* Do the chroma part of the calculation */ 

cb = GETJSAMPLE(*inptrl++} ; 

cr = GETJSAMPLE(*inptr2++} ; 

cred = Crrtab[crl; 

cgreen = (int) RIGHT_SHI FT ( Cbgtab [cb] -f Crgtab[cr], SCALEBITS) ; 
cblue = Cbbtab[cb]; 

/* Fetch 2 Y values and emit 2 pixels */ 

y = GETJSAMPLE(*inptrO++) ; 

outptr [RGB_RED] = range_limit [y + cred] ; 

outptr [RGB_GREEN] = range_limit [y + cgreen]; 

outptr [RGB„BLUE] = range_limit [y + cblue]; 

outptr += RGB_PIXELSIZE; 

y = GETJSAMPLE{*inptrO++) ; 

outptr [RGB_RED] = range__liinit [y + cred] ; 

outptr [RGB_GREEN] = range_limit [y + cgreen]; 

outptr [RGB_BLUE] = range_limit [y + cblue]; 

outptr += RGB_PIXELSIZE; 

} 

/* If image width is odd, do the last output column separately */ 
if (cinf o->output_width & 1) { 
cb = GETJSAMPLE (* inptrl ) ; 
cr = GETJSAMPLE ( *inptr2 ) ; 
Q cred = Crrtab[cr]; 

,Ti cgreen = (int) RIGHT_SHIFT (Cbgtab [cb] + Crgtab[cr], SCALEBITS); 

r;'" cblue = CiDbtab[cb]; 

0": y = GETJSAMPLE (* inptrO ) ; 

outptr CRGB_RED] = range„limi t [y + cred]; 
r'^ outptr [RGB_GREEN] = range_l imi t [ y + cgreen]; 
"^■ri outptr [RGB_BLUE] = rangejimit [y + cblue]; 

If 

'y Upsample and color convert for the case of 2:1 horizontal and 2:1 vertical. 
l^birHODDEF (void) 

iiMr2_merged_ups ample ( j_decompress_ptr cinfo, 

\i JSAMPIMAGE input J^uf, JDIMENSION irurow_group_ctr , 

JSAMPARRAY output_buf) 

y 

|^j^y_upsample_ptr upsample = {my„upsample_ptr) cinf o->upsample; 
'"register int y, cred, cgreen, cblue; 
int cb, cr; 

register JSAMPROW outptrO, outptrl; 
JSAMPROW inptrOO, inptrOl, inptrl, inptr2; 
JDIMENSION col; 

/* copy these pointers into registers if possible */ 

register JSAMPLE * range^limit = cinf o->sample_r ange_l imi t; 

int * Crrtab = upsample->Cr„r_tab; 

int * Cbbtab = upsample- >Cb_b„tab; 

INT32 * Crgtab = upsample->Cr„g_tab; 

INT32 * Cbgtab = upsample->Cb„g_tab; 

SHIFT_TEMPS 

inp tr 0 0 = i npu t_bu f [ 0 ] [ in_r ow_gr oup_c t r * 2 ] ; 
inptrO 1 = input_buf [0][in_row_group_ctr*2 + 1]; 
inptrl = input_buf [1] [in__row_group_ctr] ; 
inptr2 = input_buf [2] [in_row_group_ctr] ; 
outptrO = output„buf [0] ; 
outptrl = outputjDuf [1] ; 

/* Loop for each group of output pixels */ 

for (col - cinf o->output__width » 1; col > 0; col--) { 

/* Do the chroma part of the calculation */ 

cb = GETJSAMPLE (*inptrl++) ; 

cr = GETJSAMPLE (*inptr2++) ; 

cred = Crrtab[cr]; 

cgreen = (int) RIGHT_SHIFT( Cbgtab [cb] +Crgtab[cr], SCALEBITS); 
cblue ~ Cbbtab [cb]; 

/* Fetch 4 Y values and emit 4 pixels */ 
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y = GETJSAMPLE(*inptrOO++) ; 

outptrO [RGB_RED] ~ range_limit [y + cred] ; 

outptrO [RGB_GREEN] = range_limit [y + cgreen] ; 

outptrO [RGB„BLUE] = range_limit [y + cblue] ; 

OUtptrO += RGB_PIXELSIZE; 

y = GETJSAMPLE(*inptrOO++) ; 

OUtptrO [RGB_RED] = range„liiait [y + cred] ; 

OUtptrO [RGB_GREEN] = range_limit [y + cgreen]; 

OUtptrO [RGB_BLUE] = range_limit [y + cblue]? 

OUtptrO += RGB_PIXELSIZE; 

y = GETJSAMPLE(*inptr01++) ; 

outptrl [RGB_RED] = range_limit [y + cred] ; 

outptrl [RGB_GREEN] = range_limit [y + cgreen]; 

outptrl [RGB_BLUEJ = range_liinit[y + cblue]; 

OUtptrl += RGB_PIXELSIZE; 

y = GETJSAMPLE(*inptr01++) ; 

OUtptrl [RGB_RED] = range_iimit [y + cred]; 

OUtptrl [RGB__GREEN] = range_limit [y + cgreen]; 

OUtptrl [RGB„BLUE] ~ range_limit [y + cblue]; 

OUtptrl += RGB_PIXELSIZE; 

} 

/* If image width is odd, do the last output column separately */ 
if (cinf o->output_width & 1) { 

cb GETJSAMPLE(*inptrl) ; 

or = GETJSAMPLE{*inptr2) ; 

cred = Crrtab[cr]; 

cgreen = (int) RIGHT_SHIFT(Cbgtab[cb] + Crgtab[cr] , SCALEBITS) ; 

cblue = Cbbtab[cb]; 

y = GETJSAMPLE{*inptrOO) ; 

OUtptrO [RGB_RED] = range_limit [y + cred]; 
Cj OUtptrO [RGB_GREEN] = range_limit [y + cgreen]; 

OUtptrO [RGB_BLUE] = range_limit [y + cblue]; 

y = GETJSAMPLE(*inptr01) ; 
01 OUtptrl [RGB__RED] = range_lirait [y + cred]; 

OUtptrl [RGB_GREEN] = range__limit [y -f cgreen]; 
J'':,' OUtptrl [RGB_BLUE] - range_liiait [y + cblue]; 

* Module initialization routine for merged upsampling/ color conversion. 

HnB: this is called under the conditions determined by use_merged_upsample ( ) 
f*| in jdmaster.c. That routine MUST correspond to the actual capabilities 
It: of this module; no safety checks are made here. 

m 

Gl|DBAL(void} 

:|ihit_jnerged__up sampler ( j_decompress_ptr cinfo) 

o 

it^y—"^psample_ptr upsample; 

upsample = (my_upsample_ptr) 

{*cinfo->mem->alloc_small) ( ( j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (my_up sampler) ) ; 
cinfo->upsample ~ {struct jpeg__upsampler *) upsample; 
upsample->pub.start_pass = s tar t_pass_merged_ups ample; 
upsample->pub.need_context_rows = FALSE; 

upsample->out_row_width = cinf o->output_width * cinf o->out_coior_components; 

if (cinf o->max_v_samp_f actor -=2) { 

upsample->pub. upsample = merged_2v_upsample; 
upsample->upmethod = h2v2_merged_upsample; 
y* Allocate a spare row buffer */ 
upsample'>spare_row = (JSAMPROW) 

(*cinf o->mem->alloc_large) { ( j_common_ptr) cinfo, JPOOL_IMAGE, 
{size_t) (upsample->out_row_width * SIZEOF ( JSAMPLE) ) ) ; 
} else { 

upsample->pub. upsample - merged_lv_upsample; 
upsample ->upmethod = h2vl_merged_ups ample; 
/* No spare row needed */ 
upsample ->spare_row ~ NULL; 

} 

build _jycc_r gb_t able (cinf o) ; 

} 

#endif /* upsample_merging_supported */ 



* jdphuff.c 

* 

* Copyright (C) 1995-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains Huffman entropy decoding routines for progressive JPEG. 
* 

* Much of the complexity here has to do with supporting input suspension, 

* If the data source module demands suspension, we want to be able to back 

* up to the start of the current MCU. To do this, we copy state variables 

* into local working storage, and update them back to the permanent 

* storage only upon successful completion of an MCU. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 

tinclude "jdhuff .h" Declarations shared with jdhuff .c */ 



#ifdef D„PROGRESSIVE„SUPPORTED 
/* 

* Expanded entropy decoder object for progressive Huffman decoding. 
* 

* The savable_state subrecord contains fields that change within an MCU, 

* but must not be updated permanently until we complete the MCU. 
*/ 

t^edef struct { 
'"^insigned int EOBRUN; /* remaining EOBs in EOBRUN */ 

^lint last_dc_val [MAX_COMPS_IN_SCAK] ; /* last DC coef for each component */ 

} niS a vabl e_s t a t e ; 

/■^;:;'This macro is to work around compilers with missing or broken 
"^Jstructure assignment. You'll need to fix this code if you have 
.'lisuch a compiler and you change MAX_COMPS_IK_SCAN , 

#lindef NO_STRUCT_ASSIGN 

fdifine ASSIGN_STATE(d€St,src) ( (dest) = (src)) 
=ltelse 

%L£ MAX_COMPS„IN„SCAN == 4 
fSefine ASSIGN_STATE (dest, src) \ 

Ci ( (dest) .EOBRUN = (src) .EOBRUN, \ 

m (dest) .last_dc^al[0] = (src) .last_dc_val [0] , \ 
(dest) .las t_dc_val [1] = (src) . last_dc_val [1] , \ 

y (dest) .last_dc^al [2] = (src) . last_dc_val [2] , \ 

□ (dest) .last„dc^al[3] = (src) . last_dc_val [3 ] ) 
feidif 
fehdif 



typedef struct { 

struct jpeg_entropy_decoder pub; /* public fields */ 

/* These fields are loaded into local variables at start of each MCU, 
* In case of suspension, we exit WITHOUT updating them. 
*/ 

bitread_perm_state bitstate; /* Bit buffer at start of MCU */ 
savable_state saved; /* Other state at start of MCU */ 

/* These fields are NOT loaded into local working state. */ 

unsigned int restarts_to_go; /* MCUs left in this restart interval */ 

/* Pointers to derived tables (these workspaces have image lifespan) */ 
d_derived_tbl * derived_tbls [NUM_HUFF_TBLS] ; 

d_derived„tbl * ac_derived_tbl ; /* active table during an AC scan */ 
} phuff„entropy_decoder; 

typedef phuf f_entropy_decoder * phuf f_entropy_ptr; 
/* Forward declarations */ 

METHODDEF (boolean) decode__mcu_DC_f irst JPP ( ( j_decompress_ptr cinfo, 

JBLOCKROW *MCU„data) ) ; 
METHODDEF (boolean) decode_mcu_AC_f irst JPP ( ( j_decompress_ptr cinfo, 

JBLOCKROW *MCU_data)); 
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METHODDEF (boolean) decode_mcu__DC_ref ine JPP ( ( j_decorapress_ptr cinfo, 

JBLOCKROW *MCU_data) ) ; 
METHODDEF (boolean) dec ode_incu_AC_re fine JPP{ ( j_decompress_ptr cinfo, 

JBLOCKROW *MCU„data) } ; 



* Initialize for a Huffman- compressed scan. 
*/ 

METHODDEF (void) 

start_j)ass_phuf f_decoder ( j_decoinpress_ptr cinfo) 
{ 

phuf f_entropy_^tr entropy = (phuf f__entropy_ptr) cinf o->entropy; 
boolean is_DC_Jband, bad; 
int ci, coefi, tbl; 
int *coef__bit_ptr ; 
jpeg_component_inf o * compptr; 

is_DC_band = {cinfo->Ss == 0) ; 

/* Validate scan parameters */ 
bad = FALSE; 
if (is_DC_band) { 
if (cinfo->Se != 0) 
bad = TRUE; 
} else { 

/* need not check Ss/Se < 0 since they came from unsigned bytes */ 

if (cinfo->Ss > cinfo->Se | ) cinfo->Se >= DCTSIZE2) 
bad = TRUE; 

/* AC scans may have only one component */ 
ti if (cinf o->comps_in_scan » = 1) 
'Z bad = TRUE; 

aif (cinfo->Ah != 0) { 

/* Successive approximation refinement scan: must have Al = Ah-1. */ 

if {cinfo->Al != cinfo->Ah-l) 
■M bad = TRUE; 

';;lf {cinfo->Al > 13) /* need not check for < 0 */ 

bad = TRUE; 

ri./* Arguably the maximum Al value should be less than 13 for 8-bit precision, 

y' * but the spec doesn't say so, and we try to be liberal about what we 

; * accept. Note: large Al values could result in out-of -range DC 

'z^l * coefficients during early scans, leading to bizarre displays due to 

i^z. * overflows in the IDCT math. But we won't crash. 

*/ 

r:-:if (bad) 

ERREXIT4 (cinfo, JERR_BAD_PROGRESSION, 

cinfo->Ss, cinfo->Se, cinfo->Ah, cinfo->Al) ; 
Li/* Update progression status, and verify that scan order is legal, 
f * Note that inter-scan inconsistencies are treated as warnings 
* not fatal errors ... not clear if this is right way to behave. 
*/ 

for (ci = 0; ci < cinf o->coinps_in_scan; ci++) { 

int cindex = cinf o->cur_comp_inf o [ci] ->component_index; 
coef_bit_ptr = & cinf o->coef_bits [cindex] [0] ; 

if (!is_DC„band coef_bit_ptr [0] < 0) /* AC without prior DC scan */ 

WARIJMS2 (cinfo, JWRN„BOGUS_PROGRESSION, cindex, 0); 
for (coefi = cinfo->Ss; coefi <= cinfo->Se; coefi++) { 

int expected = (coef_bit_ptr [coefi] < 0) ? 0 : coef_bit_j)tr [coefi] ; 

if (cinfo->Ah != expected) 
WARNMS2 (cinfo, JWRN„BOGUS„PROGRESSION, cindex, coefi); 

coef_bit_ptr [coefi] = cinfo->Al; 

} 

} 

/* Select MCU decoding routine */ 
if {cinfo->Ah ==0) { 

if {is_DC_band) 

entropy- >pub . decode_mcu = decode_mcu„DC__f irs t ; 

else 

entropy- >pub . decode„mcu = decode_mcu_AC_f irs t ; 
} else { 

if (is„DC_band) 

entropy- >pub . decode_mcu = decode_mcu_DC_ref ine ; 
else 

entropy->pub.decode_mcu = decode_mcu_AC_ref ine; 

} 
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for (ci =0; ci < cinf o->comps_in_scan; ci++) { 
compptr = cinf o->cur_comp_inf o [ci] ; 

/* Make sure requested tables are present, and compute derived tables. 
* We may build same derived table more than once, but it's not expensive. 
*/ 

if {is_DC„band) { 

if (cinfo->Ah ==0) { /* DC refinement needs no table */ 
tbl = coinpptr->dc_tbl_no; 
jpeg_make_d_derived_tbl (cinf o, TRUE, tbl, 
Sc entropy->derived„tbls [tbl] ) ; 

} 

) else { 

tbl = compptr->ac_tbl_no; 

jpeg_make_d„derived__tbl ( cinf o , FALSE , tbl , 
& entropy- >derived_tbls [tbl] } ; 
/* remember the single active table */ 
entropy ->ac_derived_tbl = entropy->derived„tbls [tbl] ; 

} 

/* Initialize DC predictions to 0 */ 
entr opy-> saved. las t„dc_val [ci] = 0; 

} 

/* Initialize bitread state variables */ 
6ntropy->bitstate .bits_lef t = 0; 

entropy->bitstate .get_buf f er = 0; /* unnecessary, but keeps Purify quiet */ 
entropy->pub. insuf f icient„data = FALSE; 

/* Initialize private state variables */ 
entropy->saved.EOBRUN = 0; 

/* Initialize restart counter */ 
:?-^'=entropy->restarts_to_go = cinf o->restart_interval; 

'=i^Figure F.12: extend sign bit, 

*JOn some machines, a shift and add will be faster than a table lookup. 
#|fdef AVOID_TABLES 

define HUFF_EXTEND(x,s) ( (x) < (l«((s)-l)) ? (x) + (((~l)«(s)) + 1) : (x) ) 
#ie0.se 

#Sfine HUFF_EXTEND(x,s) ( (x) < extend„test [s] ? (x) -f extend_of f set [s] : (x) ) 

atatic const int extend_test [16] = /* entry n is 2**(n-l) */ 
'^k 0, 0x0001, 0x0002, 0x0004, 0x0008, 0x0010, 0x0020, 0x0040, 0x0080, 
O 0x0100, 0x0200, 0x0400, 0x0800, 0x1000, Qk2Q00 , 0x4000 }; 



^tktic const int extend_of f set [16] = /* entry n is (-1 << n) +1 */ 
{ 0, ((-1)«1) + 1, ((-1)«2) + 1, ((-1)«3) + 1, ({-1)«4) + 1, 
((-1)«5) + 1, ((-1)«6} + 1, ((-1)«7) + 1, ({-1)«8} + 1, 
((-1)«9) + 1, ((-1)«10) + 1, {(-1)«11) + 1, ((-1)«12) + 1, 
((-1)«13) + 1, {(-1)«14) + 1, ((-1}«15) + 1 }; 

#endif /* AVOID_TABLES */ 



/* 

* Check for a restart marker & resynchronize decoder. 

* Returns FALSE if must suspend. 
*/ 

LOCAL (boolean) 

process_restart { j_decompress__ptr cinfo) 
{ 

phuf f_entropy_^tr entropy = (phuf f _entropy_ptr) cinf o->entropy; 
int ci; 

/* Throw away any unused bits remaining in bit buffer; */ 
/* include any full bytes in next_marker ' s count of discarded bytes */ 
cinfo->inarker->discarded_bytes += entropy->bitstate.bits_lef t / 8; 
entropy- >bitstate.bits_l eft = 0; 

/* Advance past the RSTn marker */ 

if (! ( *cinf o->marker->read__restart_marker) (cinfo)) 
return FALSE; 
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/* Re-initialize DC predictions to 0 */ 

for (ci = 0; ci < cinf o->comps_in_scan; ci++) 

entropy->saved.last_dc_val [ci] = 0; 
/* Re-init EOB run count, too */ 
entropy->saved.EOBRUN = 0; 

/* Reset restart counter */ 

entropy- >res tar ts_to„go = cinf o->restart_interval; 

/* Reset out-of-data flag, unless read„restart_marker left us smack up 

* against a marker. In that case we will end up treating the next data 

* segment as empty, and we can avoid producing bogus output pixels by 

* leaving the flag set. 
*/ 

if (cinf o->unread_marker == 0) 

entropy- >pub. insufficient„data = FALSE; 

return TRUE; 



/* 

* Huffman MCU decoding. 

* Each of these routines decodes and returns one MCU's worth of 

* Huffman -compressed coef f icients . 

* The coefficients are reordered from zigzag order into natural array order, 

* but are not dequantized, 
* 

* The i'th block of the MCU is stored into the block pointed to by 

* MCU_data[i] . WE ASSUME THIS AREA IS INITIALLY ZEROED BY THE CALLER. 

^f^We return FALSE if data source requested suspension. In that case no 
C? changes have been made to permanent state. {Exception: some output 
g|Coeff icients may already have been assigned. This is harmless for 

spectral selection, since we'll just re-assign them on the next call, 
•^r Successive approximation AC refinement has to be more careful, however.) 

=|j MCU decoding for DC initial scan (either spectral selection, 
?!?:;or first pass of successive approximation). 

HgTHODDEF (boolean) 

dapode_mcu_DC_f irst { j_decompress jtr cinfo, JBLOCKROW *MCU_data) 

? •■phuf f_entropy_ptr entropy = (phuf f_entropy_^tr) cinf o->entropy; 
Llp.nt Al = cinfo->Al; 
Jiregister int s, r; 
L'Ent blkn, ci; 

JBLOCKROW block; 
^%ITREAD_STATE_VARS ; 

savable_state state; 

d„derived_tbl * tbl; 

jpeg_component_.inf o * compptr; 

/* Process restart marker if needed; may have to suspend */ 
if (cinf o->restart_interval) { 

if (entropy->restarts_to_go -= 0) 
if (1 process_restart (cinf o) ) 

return FALSE; 

} 

/* If we've run out of data, just leave the MCU set to zeroes. 
* This way, we return uniform gray for the remainder of the segment. 

*/ 

if {! entropy->pub. insuf f icient_data) { 
/* Load up working state */ 

BITREAD_LOAD_STATE (cinf o , entropy->bi tstate ) ; 
ASSIGN_STATE( state, entropy- >saved) ; 

/* Outer loop handles each block in the MCU */ 

for (blkn = 0; blkn < cinf o->blocks_in_MCU; blkn++) { 
block = MCU_data[blkn] ; 
ci = cinf o->MCU„membership [blkn] ; 
compptr = cinf o->cur_comp_info [ci] ; 
tbl = entropy- >derived_tbls [compptr- >dc_tbl_no] ; 
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/* Decode a single block's worth of coefficients */ 



/* Section F.2.2.1: decode the DC coefficient difference */ 
HUFF_DECODE{s, br_state, tbl, return FALSE, labell) ; 
if (s) { 

CHECK_BIT_BUFFER{br_state, s, return FALSE); 

r = GET_BITS{S); 

s = HUFF_EXTEND(r. s) ; 

} 

/* Convert DC difference to actual value, update last_dc_val */ 
s += state. las t_dc„val [ci] ; 
state , las t_dc_val [ci] = s; 

/* Scale and output the coefficient (assumes jpeg_natural_order [0] =0) */ 
(*block) [0] = (JCOEF) (s«Al); 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE„STATE ( cinf o , entropy->bit State ) ; 
ASSIGN„STATE(entropy->saved, state) ; 

} 

/* Account for restart interval (no-op if not using restarts) */ 
entropy- >res tar ts_to_go — ; 

return TRUE; 

} 



/* 

fjMCU decoding for AC initial scan (either spectral selection, 
*"'ror first pass of successive approximation) . 

1^ 



mItHODDEF (boolean) 

dii^ode_mcu_AC_f irst ( j_decompress_ptr cinfo, JBLOCKROW *MCU_data) 

VH 

,|phuff_entropy_ptr entropy = (phuf f_entropy_jptr) cinf o->entropy; 

"■'Tint Se = cinfo->Se; 

^int Al = cinfo->Al; 

p;r agister int s, k, r; 

"Unsigned int EOBRUN; 

- JBLOCKROW block; 

|^BITREAD_STATE_VARS ; 

p4„derived_tbl * tbl; 

fli/* Process restart marker if needed; may have to suspend */ 
;=^:if (cinf o->restart_interval} { 

if (entropy->restarts_to_go == 0) 
CI if ( 1 process_restart (cinf o) ) 
ri; return FALSE; 

/* If we've run out of data, just leave the MCU set to zeroes. 
* This way, we return uniform gray for the remainder of the segment. 
*/ 

if (! entropy->pub. insuf f icient_data) { 

/* Load up working state, 
* We can avoid loading/ saving bi tread state if in an EOB run. 
*/ 

EOBRUN = entropy->saved. EOBRUN; /* only part of saved state we need */ 

/* There is always only one block per MCU */ 

if (EOBRUN > 0) /* if it's a band of zeroes... */ 

EOBRUN--; /* ...process it now (we do nothing) */ 

else { 

BITREAD_LOAD_STATE (cinf o, entropy->bitstate) ; 

block = MCU_data[0]; 

tbl = entropy->ac_derived_tbl ; 

for (k = cinfo->Ss; k <= Se; k++) { 
HUFF_DECODE(s, br_state, tbl, return FALSE, label2); 

r = s » 4; 
S &= 15; 
if (S) { 
k += r; 

CHECK_BIT__BUFFER{br_state, s, return FALSE) ; 
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r = GET_BITS(s) ; 

S = HUFF_EXTEND(r, s); 

/* Scale and output coefficient in natural (dezigzagged) order */ 
(*block) [jpeg_natural_order[k] ] = (JCOEF) (s « Al) ; 
} else { 

if (r == 15} { /* ZRL */ 

k +- 15; /* skip 15 zeroes in band */ 

} else { /* EOBr, run length is 2''r + appended bits */ 

EOBRUN = 1 « r; 

if (r) { /* EOBr, r > 0 */ 

CHECK_BIT_BUFFER{br_state, r, return FALSE) ; 
r = GET_BITS(r) ; 
EOBRUN += r; 

} 

EOBRUN — ; /* this band is processed at this moment */ 

break; /* force end-of-band */ 

} 

} 

} 

BITREAD„SAVE„STATE {cinf o, entropy->bitstate) ; 

} 

/* Cornpleted MCU, so update state */ 

entropy-> saved. EOBRUN = EOBRUN; /* only part of saved state we need */ 

} 

/* Account for restart interval {no-op if not using restarts) */ 
entropy->restarts„to„go--; 

return TRUE; 

,^r.MCU decoding for DC successive approximation refinement scan. 
■*-Note: we assume such scans can be multi -component, although the spec 
'^■■;is not very clear on the point. 

S<^|h0DDEF ( bo o 1 ean ) 

decode_mcu_DC_ref ine ( j_decompress_ptr cinfo, JBLOCKROW *MCU„data) 

r ' 

" phuf f_entropy_ptr entropy = {phuf f_€ntropy_ptr) cinf o->entropy; 
L^int pi = 1 « cinfo->Al; /* 1 in the bit position being coded */ 
L-int blkn; 
^ItbLOCKROW block; 
Oj&ITREAD_STATE_:VARS ; 

„"jy* Process restart marker if needed; may have to suspend */ 
L;;if (cinf o->restart_interval) { 

if (entropy->restarts„to_go == 0) 
if (! process„restart (cinfo) ) 

return FALSE; 

} 

/* Not worth the cycles to check insuf f icient_data here, 
* since we will not change the data anyway if we read zeroes. 
*/ 

/* Load up working state */ 

BITREAD__LOAD_STATE (cinf o, entropy->bitstate) ; 

/* Outer loop handles each block in the MCU */ 

for (blkn = 0; hlkn < cinf o->blocks_in_MCU; blkn++} { 
block = MCU_data[blkn] ; 

/* Encoded data is simply the next bit of the two' s -complement DC value */ 
CHECK_BIT_BUFFER(br_state, 1, return FALSE) ; 
if {GET_BITS(1)) 

(*block) [0] 1= pi; 
/* Note: since we use |=, repeating the assignment later is safe */ 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE(cinf o, entropy->bitstate) ; 

/* Account for restart interval (no-op if not using restarts) */ 
entropy->restarts_to_go-- ; 
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return TRUE; 

} 



/* 

* MCU decoding for AC successive approximation refinement scan. 
*/ 

METHODDEF (boolean) 

decode mcu_AC_ref ine { j_decompress_ptr cinfo, JBLOCKROW *MCU__data) 
{ 

phuf f_entropy_ptr entropy =: (phuf f_entropy_ptr ) cinf o-> entropy; 
int Se = cinfo->Se; 

int pi = 1 << cinfo->Al; /* 1 in the bit position being coded */ 

int ml = (-1) « cinfo->Al; /* -1 in the bit position being coded */ 

register int s, k, r; 

unsigned int EOBRUN; 

JBLOCKROW block; 

JCOEFPTR thiscoef; 

BITREAD_STATE_VARS ; 

d_derived_tbl * tbl; 

int num_newnz; 

int newnz_pos [DCTSIZE2 ] ; 

/* Process restart marker if needed; may have to suspend */ 
if (cinf o->restart_interval) { 

if (entropy->restarts„to_go =- 0) 
if (1 process_restart {cinf o) ) 

return FALSE; 

} 

"12* If we've run out of data, don't modify the MCU. 

yif (I entropy->pub. insuf f icient_data) { 

/* Load up working state */ 
''H BITREAP_LOAD_STATE (cinf o , entropy->bitstate) ; 

EOBRUN - entropy->saved.EOBRUW; /* only part of saved state we need */ 

yj /* There is always only one block per MCU */ 
0,1 block = MCU_data [ 0 ] ; 

tbl = entropy->ac_derived_tbl ; 

/* jf ars forced to suspend, we must undo the assignments to any newly 
f-i; * nonzero coefficients in the block, because otherwise we'd get confused 

* next time about which coefficients were already nonzero. 

OJ * But we need not undo addition of bits to already-nonzero coefficients; 

* instead, we can test the current bit to see if we already did it. 

l=::v mmL_newn2 = 0; 

/* initialize coefficient loop counter to start of band */ 
k = cinfo->Ss; 

if (EOBRUN ==0) { 

for (; k <= Se; k++) { 
HUFF_DECODE{s, br_state, tbl, goto undoit, label3) ; 
r = s » 4; 
S &= 15; 
if (s) ( 

if (s 1= 1) /* size of new coef should always be 1 */ 

WARKMS ( cinf o , JWRN_HUFF„BAD_CODE ) ; 

CHECK_BIT„BUFFER(br_state, 1, goto undoit) ; 
if (GET_BITS (1) ) 

s = pi; /* newly nonzero coef is positive */ 

else 

s = ml; /* newly nonzero coef is negative */ 

} else { 

if (r != 15) { 

EOBRUN = 1 « r; /* EOBr, run length is 2^r + appended bits */ 

if (r) { 

CHECK_BIT_BUFFER(br_state, r, goto undoit); 
r = GET_BITS(r) ; 
EOBRUN += r; 

} 

break; /* rest of block is handled by EOB logic */ 

} 

/* note s = 0 for processing ZRL */ 

} 
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/* Advance over already^nonzero coefs and r still-zero coefs, 

* appending correction bits to the nonzeroes. A correction bit is 1 

* if the absolute value of the coefficient must be increased. 
*/ 

do { 

thiscoef = *block + jpeg_natural_order [k] ; 
if (*thiscoef J= 0) { 

CHECK_BIT_BUFFER(br_state, 1, goto undoit) ; 
if (GET_BITS(1) ) { 

if ((*thiscoef & pi) == 0) { /* do nothing if already set it */ 
if (^thiscoef >= 0) 

^thiscoef += pi; 
else 

*thiscoef += ml; 
} 

} 

} else { 

if {--r < 0) 

break; /* reached target zero coefficient */ 

} 

k++; 

} while (k <= Se) ; 
if (s) { 

int pes = jpeg_natural_order [k] ; 

/* Output newly nonzero coefficient */ 

{*block) [pos] = (JCOEF) s; 

/* Remember its position in case we have to suspend */ 
newnz_pos [num_newn2++] = pos; 

} 

} 

} 

if (EOBRUN > 0) { 

r!;' /* Scan any remaining coefficient positions after the end- of -band 
y!i * (the last newly nonzero coefficient, if any) . Append a correction 
•,f| * bit to each already-nonzero coefficient. A correction bit is 1 
^'Z * if the absolute value of the coefficient must be increased. 

'^i */ 

for {; k <= Se; k++) { 
thiscoef = *block + jpeg_natural_order [k] ; 
if (*thiscoef i= 0) { 
ni CHECK_BIT„BUFFER(br_state, 1, goto undoit) ; 
if (GET_BITS(1)} { 

if ((^thiscoef & pi) == 0) { /* do nothing if already changed it */ 
H if {* thiscoef >= 0) 

p-^ * thiscoef += pi; 

St else 
US * thiscoef += ml; 

\j } 
=; } 

0 > 

/* Count one block completed in EOB run */ 
EOBRUN--; 

} 

/* Completed MCU, so update state */ 
BITREAD_SAVE_STATE (cinf o, entropy->bitstate) ; 

entropy-> saved. EOBRUN = EOBRUN; /* only part of saved state we need */ 

} 

/* Account for restart interval {no-op if not using restarts) */ 
entropy- >r es tar ts„to_go- - ; 

return TRUE; 

undoi t : 

/* Re-zero any output coefficients that we made newly nonzero */ 
while (num_newnz > 0) 

(*block) [newnz jos [ — num_newnz] ] = 0; 

return FALSE; 

} 



* Module initialization routine for progressive Huffman entropy decoding. 
*/ 

GLOBAL (void) 
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jinit__phuff_de coder ( j_decompress_ptr cinfo) 
{ 

phuf f_entropy_ptr entropy; 
int *coef_bit_ptr; 
int ci, i; 

entropy = (phuf f_entropy_ptr) 

(*cinfo->mera->alloc_small) ( { j_common_ptr) cinfo, JPOOL_IMAGE, 
SIZEOF (phuf f_entropy_dec Oder) ) ; 
cinfo->entropy = (struct jpeg„entropy_decoder *) entropy; 
entropy- >pub. star t_pass = start_pass_phuf f^decoder; 

/* Mark derived tables unallocated */ 
for (i = 0; i < NUM_HUFF__TBLS ; { 
entropy->derived_tbls [i] - NULL; 

} 

/* Create progression status table */ 
cinfo->coef_bits = (int (*) [DCTSI2E2] ) 

(*cinf o->mem->alloc_small) ( ( j_conmion_ptr) cinfo, JPOOL_IMAGE, 
cinfo->n\ain_components*DCTSIZE2*SIZE0F(int) ) ; 
coef_bit_ptr = & cinf o->coef_bits [0] [0] ; 
for (ci = 0; ci < cinf o->n\im_components; ci++) 
for (i = 0; i < DCTSIZE2; i++) 
*coef_bit_ptr+-f = -1; 



#endif /* D_PROGRESSIVE_SUPPORTED */ 
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* jdpostct.c 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the decompression postprocessing controller. 

* This controller manages the upsampling, color conversion, and color 

* quantization/reduction steps; specifically, it controls the buffering 

* between upsample/ color conversion and color quant iz at ion /reduction. 

* If no color quantization/ reduction is required, then this module has no 

* work to do, and it just hands off to the upsample/color conversion code. 

* An integrated upsample/ convert/quantize process would replace this module 

* entirely. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 



/* Private buffer controller object */ 

typedef struct { 

struct jpeg_d_post„controller pub; /* public fields */ 

/* Color quantization source buffer: this holds output data from 
* the upsample/color conversion step to be passed to the quantizer. 
O* J^or two-pass color quantization, we need a full-image buffer; 
1^.* for one-pass operation, a strip buffer is sufficient. 

;^*/ 

03virt_sarray_ptr whole_image; /* virtual array, or NULL if one-pass */ 
..fSAMPARRAY buffer; /* strip buffer, or current strip of virtual */ 

,';"4"DIMENSI0N strip_height ; /* buffer size in rows */ 

for two -pass mode only: */ 
i.rdTDIMENSION starting_row; /* row # of first row in current strip */ 
";ijDIMENSION next_row; /* index of next row to fill/ empty in strip */ 

} ■=i;aiy_po s t_c ontroller; 

typedef my_post_controller * my_^ost_ptr; 

/f -:| Forward de cl ar at i ons * / 
l&^HODDEF (void) post_process_lpass 
JPP{ { j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row__group„ctr , 

JDIMENSION in„row_groups_avail , 
Li JSAMPARRAY output_buf , JDIMENSION *out_row_ctr , 

fj JDIMENSION out_rows_avail) ) ; 

Cxfdef QUANT_2PASS„SUPP0RTED 
METHODDEF (void) post_process_prepass 
JPP ( ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row_group_ctr , 

JDIMENSION in_row_groups_avail , 

JSAMPARRAY output_buf, JDIMENSION *Out_row„ctr , 
JDIMENSION out_rows_avail) ) ; 
METHODDEF (void) post_process_2pass 
JPP ( ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row_group_ctr , 
JDIMENSION in_row_groups_avai 1 , 

JSAMPARRAY output_buf, JDIMENSION * out_r ow„c tr , 
JDIMENSION out_rows_avail) ) ; 

#endif 



/* 

* Initialize for a processing pass, 
*/ 

METHODDEF (void) 

start_pass„dpost ( j_„decompress_ptr cinfo, J_BUF_MODE pass_mode) 

{ 

in.y_post_ptr post = {my_post_ptr ) cinfo->post; 

switch (pass_mode) ( 
case JBUF_PASS_THRU: 

if (cinf o->quantize_colors) { 

/* Single-pass processing with color quantization. */ 
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post->pub.post_process_data = post_process_lpass ; 

/* We could be doing buf f ered-image output before starting a 2 -pass 

* color quantization; in that case, jinit_d_j)ost_controller did not 

* allocate a strip buffer. Use the virtual-array buffer as workspace. 

*/ 

if (post->buffer == NULL) { 
post->buffer = ( *cinf o->inein->access_virt_sarray) 
( ( j_common_ptr) cinfo, post->whole_iniage, 
(JDIMENSION) 0, post->strip_height, TRUE) ; 

} 

} else { 

/* For single-pass processing without color quantization, 

* I have no work to do; just call the upsampler directly. 
*/ 

post->pub.post_process_data = cinf o->upsaiaple->upsainple ; 

} 

break ; 

#ifdef QUANT_2PASS_SUPP0RTED 
case JBUF_SAVE_AND_PASS : 

/* First pass of 2-pass quantization */ 
if {post->whole_image == NULL) 

ERREXIT ( cinf o , JERR_BAD_BUFFER„MODE ) ; 
post->pub,post_j)rocess_data = post_process_prepass ; 
break ; 
case JBUF„CRANK_DEST: 

/* Second pass of 2-pass quantization */ 
if (post->whole_image -= NULL) 

ERREX IT ( c inf o , JERR_BAD_BUFFER_MODE ) ; 
post->pub.post_process_data = post_process_2pass; 
break ; 

#endif /* QUANT_2PASS_SUPP0RTED */ 
j^efault : 

% ERREXIT (cinf o, JERH_BAD_BUFFERjyiODE) ; 
break; 

01 

^:post->starting_row = post->next_row = 0; 

/If 

©Process some data in the one-pass (strip buffer) case. 

F^ilThis is used for color precision reduction as well as one-pass quantization. 
l|E^rHODDEF(void} 

pQfcSt_process_lpass ( j_decompress_ptr cinfo, 

JSAMPIKAGE input„btif , JDIMENSION *in_row_group_ctr , 
ft} JDIMENSION in_row_groups_avail, 

^'"il JSAMPARRAY output Jouf, JDIMENSION *out_row_ctr , 

J^- JDIMENSION out„rows_avail) 

o 

rFy_post_ptr post = (my_post_ptr} cinfo->post; 
""""ijDIMENSION num_rows, max_rows ; 

/* Fill the buffer, but not more than what we can dump out in one go. */ 
/* Note we rely on the upsampler to detect bottom of image. */ 
max_„rows = out_rows_avail - *out_row_ctr; 
if (max_rows > post->strip_height) 

max_rows = post->strip_height ; 
num_rows = 0 ; 

(*cinf o->upsample->upsample) (cinf o, 

input_buf, in_row_group_ctr, in_row_groups„avail , 

post->buf f er , &num_rows, max_rows) ; 
/* Quantize and emit data. */ 
(*cinf o->cquanti2e->color_quantize) (cinf o, 

post->buf f er , output_buf + *out_row_ctr , (int) num_rows); 
*out_row_ctr += num^rows; 



#ifdef QUANT_2PASS_SUPP0RTED 
/* 

* Process some data in the first pass of 2-pass quantization. 
*/ 

METHODDEF(void) 

post_process_prepass ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row_group_ctr . 
JDIMENSION in_row_groups_avail. 
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JSAMPARRAY output_buf , JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avail) 

{ 

niyjost_ptr post = (my__post_ptr ) cinfo->post; 
JDIMENSION old_next_row, nmn__rows; 

/* Reposition virtual buffer if at start of strip. */ 
if (post->rLext_row ==0) { 

post->buffer = ( *cinf o->mem->access_virt_sarray) 
( ( j_coinmon_ptr) cinfo, post->whole_imagei 
post->starting_row, post->strip_height, TRUE) ; 

} 

/* Upsample some data (up to a strip height's worth). */ 

old_next_row = post->next_row; 

{*cinf o->upsainple->upsample) (cinfo, 

input_buf , in_r ow_gr oup_c tr , in_r ow_groups_avai 1 , 
post->buf f er , &post->next_row, pes t ->s trip__height ) ; 

/* Allow quantizer to scan new data. No data is emitted, */ 

/* but we advance out_row_ctr so outer loop can tell when we're done. */ 

if (post->next_row > old_next_row) { 

nxiin_rows = post->next_row - old_next_row; 

(*cinf o->cquantize->color_quantize) (cinfo, post->buffer + old_next_row, 

(JSAMPARRAY) NULL, (int) nuin_rows) ; 
*out_row_ctr += num_rows? 

} 

/* Advance if we filled the strip. */ 
if (post->next_row >~ post->strip_height) { 
post->starting_row += post->strip__height ; 
f-,: post->next_row = 0; 

,3 

Process some data in the second pass of 2-pass quantization, 

A 

J^taODDEFtvoid) 

post_process_2pass ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row_group_ctr , 
s JDIMENSION in_row_groups_avail, 

JSAMPARRAY output_buf , JDIMENSION *out_row_ctr , 
JDIMENSION out_rows_avail) 

0 Jny_post_ptr post = (my_post_ptr) cinfo->post; 
irDIMENSION num^rows, max_rows; 

r^y* Reposition virtual buffer if at start of strip, */ 
f=if (post->next_row == 0) { 

post->buffer = ( *cinf o->mem->access_virt_sarray) 

( { j_co]raaon_ptr) cinfo, post->whole_image, 
post->starting_row, post->strip_height , FALSE); 

} 

/* Determine number of rows to emit. */ 

nmcL_x:ows = post->strip_height - post->next_row; /* available in strip */ 
max_rows = out_rows_avail - *out„row_ctr ; /* available in output area */ 
if (num_rows > max„rows) 

num_rows = max_rows; 
/* We have to check bottom of image here, can't depend on upsampler. */ 
max_rows = cinf o->output_height - post->starting_row; 
if (num_rows > max„rows) 

num^rows = max_rows; 

/* Quantize and emit data. */ 

{ *cinf o->cquantize->color_quantize) (cinfo, 

post->buffer 4- post->next_row, output_buf + *out_row_ctr , 
(int) nuin_rows ) ; 
*out_row_ctr += num_rows; 

/* Advance if we filled the strip. */ 
post->next_row += num^rows; 

if (post->next_row >= post->strip_height) { 
post->starting„row += post->strip_height ; 
post->next_row = 0; 

} 
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#endif /* QUANT_2PASS_SUPP0RTED */ 



/* 

* Initialize postprocessing controller. 
*/ 

GLOBAL (void) 

jinit_d_post_controller ( j_decompress_:ptr cinfo, boolean need_full_fouf f er) 
{ 

itiyjost_ptr post; 

post = (my_post jtr) 

{*cinf o->mem->alloc_sraall) ( ( j„common_ptr) cinfo, JPOOL„IMAGE, 
SI2E0F {my_pos t_contr oiler) ) ; 
cxnfo->post - (struct jpeg_d_post_contr oiler *) post; 
post->pub. start_jpass = start^ass_dpost; 

post->whole_image = NULL; /* flag for no virtual arrays */ 
post->buffer = NULL; /* flag for no strip buffer */ 

/* Create the quantization buffer, if needed */ 
if (cinf o->quantize_colors) { 

/* The buffer strip height is max_v_samp_f actor , which is typically 

* an efficient number of rows for upsampling to return. 

* (In the presence of output rescaling, we might want to be smarter?) 
*/ 

post->strip_height = (JDIMENSION) cinf o->max_v_samp_f actor ; 
if (need„full_buf fer) { 

/* Two-pass color quantization: need full-image storage. */ 
/* We round up the number of rows to a multiple of the strip height, */ 
#ii:fdef QUANT_2PASS_SUPP0RTED 

post->whole_image = (*cinf o->mem->request_virt_sarray) 
O ( ( j_coinmon_ptr) cinfo, JPOOL_IMAGE, FALSE, 
ni cinf o->output„width * cinf o->out_color_components , 
'Zl (JDIMENSION) jround_up ( (long) cinf o->output_height, 
^iiJ (long) post->strip_lieight} , 

SJ post->strip_height) ; 
#e|.se 

ERREXIT (cinfo, JERR_BAD„BUFFER_MODE ) ; 
^feeSidif /* QUANT_2PASS_SUPP0RTED */ 
ni } else { 

''■"^ /* One-pass color quantization: just make a strip buffer. */ 
^ post->buffer = (*cinf o->mem->alloc_sarray) 
I;.;; { { j_cortimon_ptr) cinfo, JPOOL_IMAGE, 
L:. cinf o->output_width * cinf o->out_color_components, 
post->strip_height) ; 

OJ } 
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* jdsample.c 
* 

* Copyright (C) 1991-1996, Thomas G, Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains upsampling routines. 
* 

* Upsampling input data is counted in "row groups". A row group 

* is defined to be (v_sainp_f actor * DCT„scaled_si2e / min„DCT„scaled_size) 

* sample rows of each component. Upsampling will normally produce 

* max_v_samp_f actor pixel rows from each row group {but this could vary 

* if the upsampler is applying a scale factor of its own) . 

* An excellent reference for image resampling is 

* Digital Image Warping, George Wolberg, 1990. 

* Pub. by IEEE Computer Society Press, Los Alamitos, CA. ISBN 0-8186-8944-7 
*/ 

#define JPEG„INTERNALS 
#include "jinclude-h" 
# include "jpeglib.h" 



/* Pointer to routine to upsample a single component */ 
typedef JMETHOD{void, upsamplel_ptr , 

( j_tiecompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input„data, JSAMPARRAY * output_data_ptr) ) ; 

/* Private subobject */ 

t^edef struct { 
ll^truct jpeg_upsampler pub; /* public fields */ 

'"^J* Color conversion buffer. When using separate upsampling and color 
y-J * conversion steps, this buffer holds one upsampled row group until it 
Si* has been color converted and output. 

^4* Note: we do not allocate any storage for component{s) which are full-size 

* ie do not need rescaling. The corresponding entry of color_buf[] is 
di* simply set to point to the input data array, thereby avoiding copying. 

^; */ 

^%SAMPARRAY color^buf [MAX_COMPONEWTS] ; 

yi/* Per- component upsampling method pointers */ 
:„*-upsamplel_ptr methods [MAX_COMPONENTS] ; 

phint next_row_out ; /* counts rows emitted from color_buf */ 

'/txDIMENSION rows_to_go; /* counts rows remaining in image */ 

rV* Height of an input row group for each component. */ 
Siint rowgroup_height[MAX_COMPONENTS] ; 

/* These arrays save pixel expansion factors so that int_expand need not 

* recompute them each time. They are unused for other upsampling methods, 
*/ 

UINT8 h„expand[MAX_COMPONENTS] ; 
UINT8 v„expand[MAX_COMPONENTS] ; 
} my_ups ampler; 

typedef my_upsampler * my_upsample_ptr ; 



/* 

* Initialize for an upsampling pass. 
*/ 

METHODDEF (void) 

start_pass_ups ample ( j_decompress_ptr cinfo) 
{ 

Kiy_"upsample_ptr upsample = (my„upsample__ptr ) cinf o->upsample; 

/* Mark the conversion buffer empty */ 
upsaraple->next_row„out = cinf o->max„v_samp_f actor; 

/* Initialize total -height counter for detecting bottom of image */ 
upsample- >rows_to_go = cinf o->output_height ; 
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* Control routine to do upsampling (and color conversion) . 

* In this version we upsample each component independently. 

* We upsample one row group into the conversion buffer, then apply 

* color conversion a row at a time. 
*/ 

METHODDEF(vDid) 

sep_upsaraple ( j_decompress _ptr cinfo, 

JSAMPIMAGE input_buf, JDIMENSION *in_row_group_.ctr , 
JDIMENSION in_row„groups_avail , 

JSAMPARRAY output_buf, JDIMENSION *out_row_ctr , 
JDIMENSION out„rows_avail) 

{ 

r^y-^psample_ptr upsample = (my_upsample_ptr) cinf o->upsample; 
int ci; 

jpeg_component_inf o * compptr; 
JDIMENSION num_rows; 

/* Fill the conversion buffer, if it's empty */ 

if (upsample->next_row_out >= cinf o->max_v_samp„f actor) { 

for (ci = 0, compptr = cinf o->comp„inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 
/* Invoke per-component upsample method. Notice we pass a POINTER 
* to color_buf [ci] / so that fullsi2e_upsample can change it. 
*/ 

(*upsample->methods [ci] ) (cinfo, compptr, 
input„buf [ci] + {*in„row__group_ctr * upsample->rowgroup_height [ci ] ) , 
upsample- >color_buf + ci) ; 
} 

upsample->next„row_out = 0; 

"43* Color-convert and emit rows */ 
"T-^* How many we have in the buffer: */ 

'Mum_r ows = (JDIMENSION) (cinf o->max_v_samp„f actor - upsample->next_row_out) 
%|* Not more than the distance to the end of the image. Need this test 
in case the image height is not a multiple of max_v_samp__f actor : 

1? */ 

yilf (num_rows > upsample ->rows_to_go) 
nil n\anL_rows = upsample->rows_to_go; 

'7* And not more than what the client can accept; */ 

out_rows_avail -= *out_row_ctr; 
'i^^f (num_rows > out_rows_avail) 
Ls. nuxn_rows = out_rows„avail ; 

f1.K*cinf o->cconvert->color_convert) (cinfo, upsample ->color_buf , 
1 ■ (JDIMENSION) upsample ->next_row_out , 

output_buf + *out_row_ctr , 
C| (int) num^rows) ; 

~""7* Adjust c Glints */ 
*out_row_ctr += num_rows; 
upsample->rows_to_go num_rows; 
upsample ->next_row_out += n\am_rows; 

/* When the buffer is emptied, declare this input row group consumed */ 
if (upsample- >next_row_out >= cinf o->max_v_samp_f actor) 
( *in_row_group_ctr ) ++ ; 



/* 

* These are the routines invoked by sep_upsample to upsample pixel values 

* of a single component. One row group is processed per call. 
*/ 



* For full-size components, we just make color_buf [ci] point at the 

* input buffer, and thus avoid copying any data. Note that this is 

* safe only because sep_upsample doesn't declare the input row group 

* "consumed" until we are done color converting and emitting it. 
*/ 

METHODDEF(void) 

fullsize_upsample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data^tr ) 

{ 

*output„data _ptr = input_data; 



2 



} 



/* 

* This is a no-op version used for "uninteresting" components, 

* These componGnts will not be referenced by color conversion. 
*/ 

METHODDEF (void) 

noop_ups ample ( j_decoHipress_ptr cinfo, jpeg_component„inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

*output_data__ptr = NULL; /* safety check */ 

} 



/* 

* This version handles any integral sampling ratios. 

* This is not used for typical JPEG files, so it need not be fast. 

* Nor, for that matter, is it particularly accurate; the algorithm is 

* simple replication of the input pixel onto the corresponding output 

* pixels. The hi-falutin sampling literature refers to this as a 

* "box filter". A box filter tends to introduce visible artifacts, 

* so if you are actually going to use 3:1 or 4:1 sampling ratios 

* you would be well advised to improve this code. 
*/ 

METHODDEF (void) 

int_upsample ( j_decompress_j>tr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

f'iay_upsample_ptr upsample = (my_upsample__ptr ) cinf o->ups ample ; 

'':id"SAMPARRAY output_data = *output_data_ptr ; 

^Uegister JSAMPROW inptr, outptr; 

nfegister JSAMPLE invalue; 

"^register int h; 

^JSAMPROW out end; 

%int h_expand, v_expand; 

.-int inrow, outrow; 

ufe_exp and = up s ampl e - >h_expand [ c ompp tr - > c omponent_i ndex ] ; 
ny„expand = upsample->v_expand [compptr->component_index] ; 



s inrow = outrow - 0; 

L.:while (outrow < cinf o->max__v_samp_f actor) { 

/* Generate one output row with proper horizontal expansion */ 

inptr = input_data [inrow] ; 
Oj outptr = output„data [outrow] ; 
l^] out end ~ outptr + cinf o->output_width; 
^ while (outptr < out end) { 

Q invalue = *inptr+-(-; /* don't need GETJSAMPLEO here */ 
f-:, for (h = h_.expand; h > 0; h--) { 
* outptr +4- = invalue; 
} 

} 

/* Generate any additional output rows by duplicating the first one */ 
if (v„expand > 1) { 

jcopy_sample_rows (output_data, outrow, output_data, outrow+1, 
v__expand-l, cinf o->output_width) ; 

} 

inrow-t-+ ; 

outrow += v_expand; 

} 

} 



/* 

* Fast processing for the coinmon case of 2:1 horizontal and 1:1 vertical. 

* It's still a box filter. 
*/ 

METHODDEF (void) 

h2vl_up sample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output„data_ptr ) 

{ 

JSAMPARRAY output_data = *output_data_ptr ; 
register JSAMPROW inptr, outptr; 
register JSAMPLE invalue; 
JSAMPROW outend; 
int inrow; 
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for (inrow = 0; inrow < cinfo->max_v„samp_f actor; inrow++) { 
inptr = input_data [inrow] ; 
outptr = output__data [inrow] ; 
out end = outptr + cinf o->output_width; 
w]lile (outptr < outend) { 

invalue = *inptr++; /* don't need GETJSAMPLEO here */ 

*outptr++ = invalue; 

*outptr++ = invalue; 

} 

} 

} 



/* 

* Fast processing for the common case of 2:1 horizontal and 2:1 vertical. 

* It's still a box filter. 
*/ 

METHODDEF (void) 

h2v2__up sample { j_decompress_j)tr cinfo, jpeg_component„inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr ) 

{ 

JSAMPARRAY output_data - *output_data_ptr ; 
register JSAMPROW inptr, outptr; 
register JSAMPLE invalue; 
JSAMPROW outend; 
int inrow / outrow; 

inrow = outrow = 0 ; 

while {outrow < cinf o->max__v_samp_factor) { 
P~ inptr = input_data[ inrow] ; 

outptr = output_data [ outrow] ; 
yl outend = outptr + cinf o->output_width; 
fn while (outptr < outend) { 

%l invalue = *inptr++; /* don't need GETJSAMPLEO here */ 
^i:^' *outptr++ = invalue; 
%} *outptr++ = invalue; 

~: j copy_sample„rows ( output_data , outrow , output__data , outrow+1 , 
g 1 , cinf o->output„width) ; 

inrow++; 

outrow += 2; 

H } 

i^^'^; Fancy processing for the common case of 2:1 horizontal and 1:1 vertical. 

0§ The upsampling algorithm is linear interpolation between pixel centers, 
also known as a "triangle filter". This is a good compromise between 
speed and visual quality. The centers of the output pixels are 1/4 and 3/4 

* of the way between input pixel centers. 

* A note about the "bias" calculations: when rounding fractional values to 

* integer, we do not want to always round 0.5 up to the next integer. 

* If we did that, we'd introduce a noticeable bias towards larger values. 

* Instead, this code is arranged so that 0.5 will be rounded up or down at 

* alternate pixel locations {a simple ordered dither pattern) . 
*/ 

METHODDEF (void) 

h2vl_fancy_upsample ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMPARRAY input_data, JSAMPARRAY * output_data_ptr) 

{ 

JSAMPARRAY output_data = *output_data_ptr ; 
register JSAMPROW inptr, outptr; 
register int invalue; 
register JDIMENSION colctr; 
int inrow; 

for (inrow = 0; inrow < cinf o->max_v_samp_f actor ; inrow++) { 
inptr = input_data [inrow] ; 
outptr = output_data [inrow] ; 
/* Special case for first column */ 
invalue = GETJSAMPLE (* inptr ++) ; 
*outptr++ - (JSAMPLE) invalue; 

*outptr++ = (JSAMPLE) ((invalue * 3 + GET JS AMPLE (* inptr) + 2) » 2); 
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for (colctr = compptr->dovmsampled_width - 2; colctr > 0; colctr--) { 
/* General case: 3/4 * nearer pixel +1/4 * further pixel */ 
invalue = GETJSAMPLE {*inptr++) * 3; 

*outptr++ = (JSAMPLE) {(invalue + GETJSAMPLE ( inptr [-2 ] ) +1) » 2); 
*outptr++ = (JSAMPLE) ((invalue + GETJSAMPLE (* inptr) + 2) » 2); 

} 

/* Special case for last column */ 
invalue = GETJSAMPLE (* inptr ) ; 

*outptr++ = (JSAMPLE) ({invalue * 3 + GETJSAMPLE (inptr [-1] ) + 1) » 2) ; 
*outptr++ = (JSAMPLE) invalue; 

} 

} 



/* 

* Fancy processing for the common case of 2:1 horizontal and 2:1 vertical. 

* Again a triangle filter; see comments for h2vl case, above, 
* 

* It is OK for us to reference the adjacent input rows because we demanded 

* context from the main buffer controller (see initialization code) . 
*/ 

METHODDEF (void) 

h2v2_f ancY_upsainple ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JSAMP ARRAY input_data, JSAMPARRAY * output_data_ptr) 

{ 

JSAMPARRAY output_data = *output_data_ptr; 

register JSAMPROW inptrO, inptrl, outptr; 
#if BIT S_IN_ JSAMPLE 8 

register int thiscolsum, lastcolsum, nextcolsum; 
#^lse 

■-register INT32 thiscolsum, lastcolsum, nextcolsum; 
#©dif 

rfregister JDIMENSION colctr; 
Zi^^ inrow, outrow, v; 

■\inrow = outrow = 0; 

^while (outrow < cinfo->max_v_samp_f actor) { 

for (v = 0; v < 2; v++) { 
lif^, /* inptrO points to nearest input row, inptrl points to next nearest */ 
f^: inptrO = input_data [ inrow] ; 

if (v 0) /* next nearest is row above */ 

inptrl - input_data [inrow-1] ; 
i.: else /* next nearest is row below */ 

t_ inptrl = input__data[inrow+l] ; 

outptr = output„data [outrow++] ; 

/* Special case for first column */ 

thiscolsum = GETJSAMPLE (* inptr 0++) * 3 + GETJSAMPLE (* inptr 1++) ; 
nextcolsum = GETJSAMPLE (* inptr 0++) * 3 -f GETJSAMPLE {* inptrl ++) ; 
*outptr++ = (JSAMPLE) {(thiscolsum * 4 + 8) » 4); 
*outptr++ = (JSAMPLE) ( {thiscolstim * 3 + nextcolsum + 7) » 4); 
lastcolsum = thiscols\im; thiscolsum = nextcolsum; 

for (colctr = compptr->downsampled_width - 2; colctr > 0; colctr--) { 
/* General case: 3/4 * nearer pixel + 1/4 * further pixel in each */ 
/* dimension, thus 9/16, 3/16, 3/16, 1/16 overall */ 
nextcolsum = GETJSAMPLE (*inptrO++) * 3 + GETJSAMPLE (* inptr 1++ ) ; 
*outptr++ = (JSAMPLE) ((thiscolsum * 3 + lastcolsum + 8) » 4); 
*outptr++ = (JSAMPLE) ( (thiscolsiim * 3 + nextcolsum + 7) » 4); 
lastcolsum = thiscolsiam; thiscolsum = nextcolsiim; 

} 

/* Special case for last col'umn */ 

*outptr++ = (JSAMPLE) ((thiscolsum * 3 + lastcolsum + 8) » 4); 
*outptr++ = (JSAMPLE) ((thiscolsum * 4 + 7} » 4); 

} 

inrow++ ; 

} 

} 



/* 

* Module initialization routine for upsampling. 

*/ 

GLOBAL (void) 

j in! t_up sampler (j_decompress_ptr cinfo) 
{ 
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niy_up s amp 1 e_p t r up s amp 1 e ; 
int ci; 

jpeg_component__inf o * compptr; 
boolean need__buf f er , do_fancy; 

int h_in_group, v_in_group, h_out„group, v_out__group ; 

upsample = {my_upsample_ptr) 

{*cinf o->mem->alloc_small) ( ( j_coitimon_ptr) cinfo^ JPOOL„IMAGE, 
SIZEOF {my_upsainpler) ) ; 
cinfo->upsample = (struct jpeg_ups ampler *) upsample; 
upsample->pub.start_pass = start_pass_upsample; 
upsample->pub -upsample = sep_upsample; 

upsample->pub.need__context_rows = FALSE; /* until we find out differently */ 

if (cinf o->CCIR601„sampling) /* this isn't supported */ 
ERREXIT{cinfo, JERR_CCIR601_NOTIMPL) ; 

/* jdmainct.c doesn't support context rows when min_DCT_scaled_si2e - 1, 

* so don't ask for it, 
*/ 

do_fancy - cinf o->do_f ancy_upsampling && cinf o->min_DCT_scaled_size > 1; 

/* Verify we can handle the sampling factors, select per-component methods, 

* and create storage as needed. 
*/ 

for (ci = 0, compptr = cinf o->comp_inf o; ci < cinf o->num_components ; 
ci++, compptr++) { 

/* Compute size of an "input group" after IDCT scaling. This many samples 
* are to be converted to max„h_samp_f actor * max_v_samp_f actor pixels. 
*/ 

■'=1; h_in_group = ( compptr->h_samp_f actor * compptr->DCT_scaled_size) / 
'''Iz. c inf o - >mi n_DC T_s cal ed_s i z e ; 

'^J v_in_group = (compptr->v_samp_f actor * compptr->DCT_scaled_size) / 

'If] c inf o - >mi n_DCT_s cal ed_s i z e ; 

\ h„out_group = cinf o->inax_h_samp„f actor; 

v_out_group = cinf o->max_v_samp_f actor ; 
''■J upsample->rowgroup_height [ci] = v_in_group; /* save for use later */ 
fi need_buffer = TRUE; 

if { ! compptr- >component_needed) { 
-ii Don't bother to upsample an uninteresting component. */ 

upsample->methods [ci] = noop_upsainple; 
need_buffer = FALSE; 
} else if (h_in_group == h„out_group v_in_group v_out_group) { 
/* Fullsize components can be processed without any work. */ 
upsample->methods [ci] = fullsize^upsample; 
need_buffer = FALSE; 
J } else if (h_in_group * 2 == h_out_group && 
H v_in_group == v_out_group) { 

; /* Special cases for 2hlv upsampling */ 
J if (do_fancy && compptr->downsampled_width > 2) 
upsaraple->methods [ci] = h2vl_fancy_ups ample; 
else 

upsample->methods [ci] = h2vl_upsample; 
} else if (h_in_group * 2 == h_out_group && 
v_in_group * 2 == v_out_group) { 

/* Special cases for 2h2v upsampling */ 

if {do_fancy 6c& compptr->downsampled_width > 2) { 
upsample->methods [ci] = h2v2„f ancy_upsample; 
upsample->pufo.need_context_rows = TRUE; 

} else 

upsample->methods [ci] = h2v2„upsample; 
} else if ( (h_out_group % h_in_group) == 0 && 
(v_out_group % v_in_group) ==0) { 

/* Generic integral-factors upsampling method */ 

upsample->methods [ci] = int_upsample; 

upsample->h_expand[ci] = {UINT8) (h_out_group / h_in_group) ; 
up s ample- >v_expand[ci] = (UINT8) (v_out_group / v_in_group) ; 

} else 

ERREXIT(cinfo, JERR_FRACT_SAMPLE_NOTIMPL) ; 
if (need_buf f er ) { 

upsample->color_buf [ci] = ( *cinf o->mem->alloc_sarray) 
( ( j_common_ptr} cinfo, JPOOL_IMAGE, 
(JDIMENSION) jround_up ( (long) cinf o->output„width, 

(long) cinf o->max__h_samp_factor) , 
(JDIMENSION) c info ->max_v_samp„f actor) ; 

} 

} 
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* jdtrans.c 

* Copyright (C) 1995-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains library routines for transcoding decompression, 

* that is, reading raw DCT coefficient arrays from an input JPEG file. 

* The routines in jdapimin.c will also be needed by a transcoder, 
*/ 

#define JPEG_INTERNALS 
tinclude "j include. h" 
#include "jpeglib.h" 



/* Forward declarations */ 

LOCAL (void) transdecode_master_selection JPP ( ( j_decompress_ptr cinf o) ) ; 



* Read the coefficient arrays from a JPEG file. 

* jpeg_read_header must be completed before calling this. 

* The entire image is read into a set of virtual coefficient-block arrays, 

* one per component. The return value is a pointer to the array of 

* virtual-array descriptors. These can be manipulated directly via the 

* JPEG memory manager, or handed off to jpeg_write_coef f icients ( ) . 

* To release the memory occupied by the virtual arrays, call 

* jpeg_finish_de compress ( ) when done with the data, 
g] 

.?^.An alternative usage is to simply obtain access to the coefficient arrays 
*: during a buf f ered-image-mode decompression operation. This is allowed 
after any jpeg_f inish_output ( ) call. The arrays can be accessed until 
■*1 jpeg„finis h_dec empress { } is called. (Note that any call to the library 
^^limay reposition the arrays, so don't rely on access_virt_barray ( ) results 
^"-^^ to stay valid across library calls.) 

Returns NULL if suspended. This case need be checked only if 
a suspending data source is used. 

It 

dLOBAL ( j vi r t_bar r ay_p t r * ) 

5l^g_read_coeff icients ( j_decompress_ptr cinfo) 

Z^lf (cinfo->global„state == DSTATE_READY) { 
.'1^' /* First call: initialize active modules */ 

transdecode_master_selection (cinfo) ; 

cinfo->global_state = DSTATE_RDCOEFS ; 

Qif (cinfo->global_state == DSTATE_RDCOEFS ) { 
/* Absorb whole file into the coef buffer */ 
for (;;) { 
int retcode; 

/* Call progress monitor hook if present */ 
if (cinf o->progress != NULL) 
(*cinf o->progress->progress_monitor) ( { j_common_ptr ) cinfo); 
/* Absorb some more input */ 

retcode = ( *cinf o->inputctl->consume_input) (cinfo); 
if (retcode == JPEG_SUSPENDED) 
return NULL; 

if (retcode =^ JPEG_REACHED_EOI) 

break; 

Advance progress counter if appropriate */ 
if (cinf o->progress 1= NULL && 

(retcode == JPEG_ROW„COMPLETED || retcode == JPEG_REACHED_SOS ) ) { 
if ( ++cinf o->progress->pass_Gounter >= cinf o->progress->pass__limit) { 
startup underestimated number of scans; ratchet up one scan */ 
cinf o->progress->pass„limit += (long) cinf o->total_iMCU__rows ; 

} 

} 

} 

/* Set state so that jpeg_f inish_decompress does the right thing */ 
cinfo->global_state = DSTATE_STOPPING; 

} 

/* At this point we should be in state DSTATE_STOPPING if being used 

* standalone, or in state DSTATE_BUFIMAGE if being invoked to get access 

* to the coefficients during a full buf f ered-image-mode decompression. 
*/ 
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if ( (cinfo->global_state == DSTATE_S TOPPING || 

cinfo->global_state == DSTATE_BUF IMAGE) && cinf o->buf f ered_irtvage) { 
return cinf o->coef ->coef ^arrays ; 

} 

/* Oops, improper usage */ 

ERREXITl {cinfo, JERR_BAD_STATE , cinf o->global_State) ; 
return NULL; /* keep compiler happy */ 



/* 

* Master selection of decompression modules for transcoding. 

* This substitutes for jdmaster.c's initialization of the full decompressor. 
*/ 

LOCAL (void) 

transdecode_master_s election ( j_decompress_jE>tr cinfo) 
{ 

/* This is effectively a buffered- image operation. */ 
cinf o->buff ered_i mage = TRUE; 

/* Entropy decoding: either Huffman or aritlimetic coding. */ 
if (cinf o->arith_code) { 

ERREXIT (cinf o , JERR__ARITH_NOTIMPL) ; 
} else { 

if (cinf o->progressive_mode) { 
#ifdef D_PROGRESSIVE_SUPPORTED 

j init_phuf f_decoder (cinf o) ; 

^else 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 

#endif 

i^j } else 

j init_huf f_decoder { cinf o) ; 

ii 

Always get a full-image coefficient buffer. */ 
J"^ jinit_d_Goef_controller (cinf Or TRUE) ; 

j^* We can now tell the memory manager to allocate virtual arrays. */ 
■^::( *cinf o->mem->realize_virt_arrays) ( ( j_common_^tr ) cinfo) ; 

f:/* Initialize input side of decompressor to consume first scan. */ 
' '''(*cinf o->inputctl->start_input _pass) (cinfo) ; 

kl/* Initialize progress monitoring. */ 
f'if (cinf o->progress 1= NULL) { 
int n scans; 

/* Estimate number of scans to set pass_limit. */ 
\, if (cinfo->progressive_mode) { 

/* Arbitrarily estimate 2 interleaved DC scans + 3 AC scans / component . */ 
nscans = 2 + 3 * cinf o->num_components; 
rj: } else if (cinf o->inputctl->has_multiple_scans) { 

/* For a nonprogressive multiscan file, estimate 1 scan per component. */ 
nscans = cinf o->num_components ; 
} else { 

nscans = 1; 

} 

cinfo->progress->pass„counter = OL; 

cinf o->progress->pass_limit = (long) cinf o->total_iMCU_rows * nscans; 
cinf:o->progress->completed_:passes = 0; 
cinf o->progress->total_passes = 1; 

} 

} 
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* j error. c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains simple error-reporting and trace-message routines. 

* These are suitable for Unix- like systems and others where writing to 

* stderr is the right thing to do. Many applications will want to replace 

* some or all of these routines. 
* 

* If you define USE_WINDOWS_MESSAGEBOX in jconfig.h or in the makefile, 

* you get a Windows -specific hack to display error messages in a dialog box. 

* It ain't much, but it beats dropping error messages into the bit bucket, 

* which is what happens to output to stderr under most Windows C compilers, 
ft 

* These routines are used by both the compression and decompression code. 
*/ 

/* this is not a core library module, so it doesn't define JPEG_INTERNALS */ 
# include "jinclude.h" 
#include "jpeglib.h" 
# include "jversion.h" 
#include " j error. h" 

iifdef USE_WINDOWS__MESSAGEBOX 
#include <windows.h> 
#endif 

#ifndef EXIT_FAILURE /* define exitO codes if not provided */ 

#pfine EXIT_FAILURE 1 

#gidif 

J^; Create the message string table. 

*lVJe do this from the master message list in j error. h by re-reading 
jerror.h with a suitable definition for macro JMESSAGE. 

The message table is made an external symbol just in case any applications 
want to refer to it directly. 

fifdef NEED_SHORT_EXTERNAL_NAMES 

f^fine jpeg_std_message_table jMsgTable 

fmdif 

l^fine JMESSAGE^code, string) string , 

odhst char * const jpeg„std_message„table [ ] = { 
fehclude "jerror.h" 



* Error exit handler: must not return to caller. 
* 

* Applications may override this if they want to get control back after 

* an error. Typically one would longjmp somewhere instead of exiting. 

* The setjmp buffer can be made a private field within an expanded error 

* handler object. Mote that the info needed to generate an error message 

* is stored in the error object, so you can generate the message now or 

* later, at your convenience. 

* You should make sure that the JPEG object is cleaned up (with jpeg_abort 

* or jpeg_destroy) at some point. 
*/ 

METHODDEF{void) 

error_exit ( j_common__ptr cinfo) 
{ 

/* Always display the message */ 
(*cinf o->err->output__inessage) (cinfo) ; 

/* Let the memory manager delete any temp files before we die */ 
jpeg_des troy (cinfo) ; 

exit (EXIT_FAILURE) ; 

} 
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/* 

* Actual output of an error or trace message. 

* Applications may override this method to send JPEG messages somewhere 

* other than stderr. 
* 

* On Windows/ printing to stderr is generally completely useless, 

* so we provide optional code to produce an error-dialog popup. 

* Most Windows applications will still prefer to override this routine, 

* but if they don't, it'll do something at least marginally useful. 
* 

* NOTE: to use the library in an environment that doesn't support the 

* C stdio library, you may have to delete the call to fprintf {) entirely, 

* not just not use this routine. 
V 



METHODDEF (void) 

output^message {j_common _ptr cinfo) 
{ 

char buf fer [JMSG_LENGTH_MAX] ; 



/* Create the message */ 

(*cinf o->err->f ormat_message) {cinfo, buffer); 

#ifdef USE_WINDOWS_MESSAGEBOX 

/* Display it in a message dialog box */ 

MessageBox (GetActiveWindow{ ) , buffer, "JPEG Library Error '* , 
MB__OK I MB„ICONERROR) ; 

#else 

/* Send it to stderr, adding a newline */ 
fprintf (stderr , "%s\n", buffer); 
#emdi f 

}% 

Ml 

Decide whether to emit a trace or warning message. 

^Jmsg„level is one of: 

J=| -1: recoverable corrupt-data warning, may want to abort. 
^ 0: important advisory messages (always display to user). 
#J 1: first level of tracing detail. 

iSii 2,3,...: successively more detailed tracing messages. 

An application might override this method if it wanted to abort on warnings 
'^^ or change the policy about which messages to display. 

1^/ 

lprHODDEF{void) 

^iteL t_rae s s age ( j__connmon_ptr cinfo, int msg_level) 

Q 

Struct jpeg_error_mgr * err = cinfo->err; 

f"df (msg_level < 0) { 

/* It's a warning message. Since corrupt files may generate many warnings, 

* the policy implemented here is to show only the first warning, 

* unless trace_level >= 3. 
*/ 

if (err->num_warnings == 0 | | err->trace_level >= 3) 

( *err->output_message) (cinfo); 
/* Always count warnings in num_warnings . */ 
err->num_warnings++ ; 
} else { 

/* It's a trace message. Show it if trace_level >= msg_level. */ 
if { err->trace_level >= msg_level) 
( *err->output__messag€) (cinfo); 

} 

} 



/* 

* Format a message string for the most recent JPEG error or message. 

* The message is stored into buffer, which should be at least JMSG_LENGTH_MAX 

* characters. Note that no '\n' character is added to the string. 

* Few applications should need to override this method. 
*/ 

METHODDEF (void) 

format_message ( j_common_ptr cinfo, char * buffer) 

{ 

struct jpeg_error_mgr * err = cinfo->err; 
int msg_code = err->msg__code; 
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const char * lusgtext = NULL; 
const char * msgptr; 
char ch; 

boolean isstring; 

/* Look up message string in proper table */ 

if (msg_code > 0 ScSe msg_code <= err->last_jpeg_message) { 

msgtext = err->jpeg_inessage__ table [msg_code] ; 
} else if (err->addon_message_table != NULL && 
insg_code err ->first_addon_mes sage && 
ifisg„code <- err->last_addon_message) { 
msgtext = err->addon_inessage„table [nisg_code - err->f irst_addon_message] ; 

} 

/* Defend against bogus message niimber */ 
if (msgtext == NULL) { 

err->msg_parm. i [0] = msg_code; 

msgtext = err-> jpeg_message„table [0] ; 

} 

/* Check for string parameter, as indicated by %s in the message text */ 
isstring = FALSE ; 
msgptr = msgtext ; 

while ((ch = *msgptr++) != '\0') { 
if (ch == '%' ) ( 

if (*msgptr 's') isstring = TRUE; 
break; 

} 

} 

/* Format the message into the passed buffer */ 
pif (isstring) 

sprintf (buf f er , msgtext, err->msg_parm.s) ; 

i:||lse 

fv.'k sprintf (buf f er , msgtext, 

err->msg_parm. i [0] , err->msg_parm. i [1] , 

err->msg_parm. i [2] , err->msg_j5arm. i [3] , 
%j err->msg_parm . i [ 4 ] , err->msg_parm . i [ 5 ] , 

r err->msg_parm . i [ 6 ] , err->msg__parm . i [ 7 ] ) ; 

s?^ Reset error state variables at start of a new image. 

iJj This is called during compression startup to reset trace/error 

tj^ processing to default state, without losing any application-specific 

&I method pointers. An application might possibly want to override 

r?;! this method if it has additional error processing state, 

Ig^HODDEF(void) 

£aset_error„mgr ( j„common_ptr cinfo) 
cinf o->err->num_warnings = 0; 

/* trace_level is not reset since it is an application-supplied parameter */ 
cinfo->err->msg_code =0; /* may be useful as a flag for "no error" */ 

} 



/* 

* Fill in the standard error -handling methods in a jpeg_error„mgr object. 

* Typical call is: 

* struct jpeg_compress_struct cinfo; 

* struct jpeg„error_mgr err; 
* 

* cinfo. err - jpeg_std„error (&err) ; 

* after which the application may override some of the methods. 
*/ 

GLOBAL (struct jpeg_error_mgr *) 
jpsg_std_error (struct jpeg_error_mgr * err) 
{ 

err->error_exit = error_exit; 
err->emit_message = emit_message; 
err->output_message = output„message; 
err->fojrmat„message = f ormat_message; 
err->reset_error_ragr = reset_error_mgr ; 

err->trace_level =0; /* default = no tracing */ 

err->num_warnings =0; /* no warnings emitted yet */ 
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err->msg_code = 0 ; 



/* may be useful as a flag for "no error" */ 



/* Initialize message table pointers */ 
err->jpeg_message_table = jpeg_std_message_table; 
err->last_jpeg_message = (int) JMSG_LASTMSGCODE - 1; 

err ->addon_message„t able = NULL; 
err->first_addon_message =0; /* for safety */ 

err->last„addon_message = 0; 

return err; 




I 
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* jfdctflt.c 

Copyright (C) 1994-1996, Thomas G. Lane. 

This file is part of the Independent JPEG Group's software. 
For conditions of distribution and use, see the accompanying README file. 

This file contains a floating-point implementation of the 
forward DCT (Discrete Cosine Transform) . 



This implementation should be more accurate than either of the integer 
DCT implementations. However, it may not give the same results on all 
machines because of differences in roundoff behavior. Speed will depend 
on the hardware's floating point capacity. 

A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT 
on each column. Direct algorithms are also available, but they are 
much more complex and seem not to be any faster when reduced to code. 

This implementation is based on Arai, Agui, and Nakajima's algorithm for 
scaled DCT. Their original paper (Trans. lEICE E-71 { 11) : 1095 ) _ is in 
Japanese, but the algorithm is described in the Pennebaker & Mitchell 
JPEG textbook (see REFERENCES section in file README) . The following code 
is based directly on figure 4-8 in P&M. . . -, . • 

While an 8 -point DCT cannot be done in less than 11 multiplies, it is 
possible to arrange the computation so that many of the multiplies are 
simple scalings of the final outputs. These multiplies can then be 
folded into the multiplications or divisions by the JPEG quantization 
table entries. The AA&N method leaves only 5 multiplies and 29 adds 
to be done in the DCT itself. _ ^. ^ 

The primary disadvantage of this method is that with a fixed-point 

-.implementation, accuracy is lost due to imprecise representation of the 
scaled quantization values. However, that problem does not arise if 

□we use floating point arithmetic, 

si 



MIfine JPEG„INTERNALS 
f include "j include. h" 

#i|iclude "jpeglib.h" _ 

#iliclude "jdct.h" /* Private declarations for DCT subsystem */ 

iSltdef DCT_FLOAT_SUPPORTED 

^■*"This module is specialized to the case DCTSIZE = 8. 
4ii DCTSIZE ! = 8 

"'^orry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
resndif 



/ 



* Perform the forward DCT on one block of samples. 
*/ 

GLOBAL (void) 

jpeg_fdct_float (FAST_FLOAT * data) 

^ FAST_FLOAT tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5 , tmp6, tmp7 ; 
FAST_FLOAT t mp 1 0 , tmp 1 1 , tmp 1 2 , tmp 1 3 ; 
FAST_FLOAT zl, z2 , z3 , z4, z5, zll, zl3 ; 
FAST_FLOAT *dataptr; 
int ctr; 

/* Pass 1: process rows. */ 



dataptr = data; 

for (ctr = DCTSIZE-1; 

tmpO = dataptr [0] + 

tmp7 = dataptr [0] - 

tmpl = dataptr [1] + 

tmp6 = dataptr [1] - 

tmp2 = dataptr [2] + 

tmp5 = dataptr [2 3 - 

tmp3 = dataptr [3] + 

tmp4 = dataptr [3] - 



ctr >= 0; ctr 
dataptr [7] 
dataptr [7] 
dataptr [6] 
dataptr [6] 
dataptr [5] 
dataptr [ 5 ] 
dataptr [4] 
dataptr [4] 



— ) { 



/* Even part */ 
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tmplO = tmpC + tmp3 
tmpl3 = tmpO - tmp3 
tmpll = tmpl + tmp2 
tmpl2 = tmpl - tmp2 



/* phase 2 */ 



dataptr[0] 
dataptr [4] 



titiplO + tmpll; /* phase 3 */ 
tmplO - tmpll; 



zl = (tmpl2 + tmpl3) * ( (FAST_FLOAT} 0.707106781); /* c4 */ 
dataptr [2] = tmpl3 + zl; /* phase 5 */ 
dataptr [6] = tmpl3 - zl; 



/* phase 2 */ 



/* Odd part */ 

tmplO = tmp4 + tmp5; 
tmpll = tmp5 + tmp6; 
tmpl2 = tmp6 + tmp7 ; 

/* The rotator is modified from fig 4-8 to avoid extra negations. 
25 = (tmplO - tmpl2) * ( {FAST_FLOAT) 0.382683433); /* c6 */ 
z2 = { (FAST„FLOAT) 0.541196100) * tmplO + z5; /* c2-c6 */ 
z4 = ( (FAST_FLOAT) 1.306562965) * tmpl2 + z5; /* c2+c6 */ 
z3 = tmpll * { {FAST_FLOAT) 0.7 07106781); /* c4 */ 



zll 
Zl3 



tmp7 
tmp7 



dataptr [ 5 ] 
dataptr [3] 
dataptr [1] 
- dataptr [7] 



4- z3; 
- 23; 

= zl3 + 
= zl3 - 
= zll + 
= zll - 



/ 



z2; 
z2; 
z4; 
z4; 



dataptr += DCTSIZE; 



phase 5 
/* phase 6 



/* advance pointer to next row */ 



I* Pass 2: process columns. */ 



dataptr = data; 
ior (ctr = DCTSIZE-1; ctr >= 
- tmpO = dataptr [DCTSIZE*0] 
t tmp7 = dataptr [DCTSIZE*0] 
J tmpl = dataptr [DCTSIZE*!] 

tmp6 = dataptr [DCTSIZE*!] 
. tmp2 = dataptr [DCTSIZE*2] 

tmp5 = dataptr [DCTSIZE* 2] 
\ tmp3 = dataptr [DCTSIZE*3] 
\ tmp4 = dataptr [DCTSIZE*3] 



: 0; ctr—) { 

+ dataptr [DCTSIZE*7] 

- dataptr [DCTSIZE*7] 
+ dataptr [DCTSIZE* 6] 

- dataptr [DCTSIZE* 6] 
■t- dataptr [DCTSIZE* 5] 

- dataptr [DCTSIZE*5] 
+ dataptr [DCTSIZE*4] 

- dataptr [DCTSIZE*4] 



/* phase 2 */ 



/* Even part */ 

tmplO = tmpC + tmp3 
tmpl3 = tmpC - tmp3 
tmpll = tmpl + tmp2 
tmpl2 = tmpl - tmp2 

dataptr [DCTSIZE*0] = tmplO + tmpll; /* phase 3 
dataptr [DCTSIZE*4] = tmplO - tmpll; 



* ( (FAST_FLOAT) 0.707106781); /* c4 */ 
tmpl3 + zl; /* phase 5 */ 
tmpl3 - zl; 



/* phase 2 */ 



zl = (tmpl2 + tmpl3) 
dataptr [DCTSIZE* 2] = 
dataptr [DCTSIZE*6] = 

/* Odd part */ 

tmplO = tmp4 + tmp5; 
tmpll = tmp5 + tmp6; 
tmpl2 = tmp6 + tmp7 ; 

/* The rotator is modified from fig 4-8 to avoid extra negations. 
z5 - (tmplO - tmpl2) * ( {FAST_FLOAT) 0.3 82 683433); /* c6 */ 
z2 = ( (FAST_FLOAT) 0.541196100) * tmplO + z5; /* c2-c6 */ 
z4 = { {FAST_FLOAT) 1.306562965) * tmpl2 + z5; /* c2+c6 */ 
z3 = tmpll * ( (FAST„FLOAT) 0.707106781); /* c4 */ 



zll = tmp7 + z3; 
zl3 = trap7 - 23; 

dataptr [DCTSIZE*5] 
dataptr [DCTSIZE*3] 



/* phase 5 */ 

zl3 + z2; /* phase 6 
zl3 - z2; 



dataptr [DCTSIZE*!] = zll + z4; 
dataptr [DCTSIZE*7] = zll - z4; 

dataptr++; /* advance pointer to next column */ 

} 

} 

#endif /* DCT_FLOAT_SUPPORTED */ 



/* 

* jfdctfst.c 
* 

* Copyright (C) 1994-199 6, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a fast, not so accurate integer implementation of the 

* forward DCT (Discrete Cosine Transform) . 
* 

* A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT 

* on each column. Direct algorithms are also available, but they are 

* much more complex and seem not to be any faster when reduced to code . 
* 

* This implementation is based on Aral, Agui, and Nakajima's algorithm for 

* scaled DCT. Their original paper (Trans. lEICE E-71 (11) : 1095) is in 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. 

* While an 8-point DCT cannot be done in less than 11 multiplies, it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. The AA&N method leaves only 5 multiplies and 29 adds 

* to be done in the DCT itself . 

* The primary disadvantage of this method is that with fixed-point math, 

* accuracy is lost due to imprecise representation of the scaled 

* quantization values. The smaller the quantization table entry, the less 

* precise the scaled value, so this implementation does worse with high- 

* quality-setting files than with low-quality ones. 
.*/ 

#41 fine JPEG^INTERNALS 
tt^nclude " j include. h" 
#lnc lude "jpeglib.h" 

fdliclude "jdct.h" /* Private declarations for DCT subsystem */ 

#itdef DCT_IFAST_SUPPORTED 

M 

;*r:; This module is specialized to the case DCTSIZE = 8. 

-*/ 

#ft DCTSIZE != S 

Lj^orry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
teidif 

Scaling decisions are generally the same as in the LL&M algorithm; 
see jfdctint.c for more details. However, we choose to descale 
IM (right shift) multiplication products as soon as they are formed, 

* rather than carrying additional fractional bits into subsequent additions. 

* This compromises accuracy slightly, but it lets us save a few shifts, 

* More importantly, 16-bit arithmetic is then adequate (for 8-bit samples) 

* everywhere except in the multiplications proper; this saves a good deal 

* of work on 16-bit-int machines. 
★ 

* Again to save a few shifts, the intermediate results between pass 1 and 

* pass 2 are not upscaled, but are represented only to integral precision. 
* 

* A final compromise is to represent the multiplicative constants to only 

* 8 fractional bits, rather than 13. This saves some shifting work on some 

* machines, and may also reduce the cost of multiplication (since there 

* are fewer one-bits in the constants) . 
*/ 

#define CONST_BITS 8 



/* Some C compilers fail to reduce " FIX ( constant) " at compile time, thus 

* causing a lot of useless floating-point operations at run time. 

* To get around this we use the following pre-calculated constants. 

* If you change CONST_BITS you may want to add appropriate values. 

* (With a reasonable C compiler, you can just rely on the FIX() macro...) 
*/ 

#if CONST_BITS == 8 

#define FIX_0_382683433 ( {INT32) 98) /* FIX(0. 382683433) */ 

#define FIX_0_5 4 119 61 00 { (INT32) 139) /* FIX(0. 541196100) */ 
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#define FIX_0_707106781 ({IWT32) 181) /* FIX(0 .707106781) */ 

#def.ine FIX_1_306562965 ( {INT32) 334) /* FIX(1. 306562965) */ 

#else 

idefine FIX_0_3 82683433 FIX ( 0 . 382683433 ) 

#define FIX_0_541196100 FIX ( 0. 541196100) 

#define FIX_0_707106781 FIX ( 0 . 7071067 81) 

#define FIX_1_3 06562965 FIX{1 .306562965) 
#endif 



/* We can gain a little more speed, with a further compromise in accuracy, 

* by omitting the addition in a descaling shift. This yields an incorrectly 

* rounded result half the time... 
*/ 

iifndef USE_ACCURATE_ROUNDING 
#undef DESCALE 

#define DESCALE (x,n) RIGHT_SHIFT (x, n) 
#endif 



/* Multiply a DCTELEM variable by an INT32 constant, and immediately 
* descale to yield a DCTELEM result. 
*/ 

#define MULTIPLY (var, const) ((DCTELEM) DESCALE ( (var) * (const), CONST_BITS) ) 



Perform the forward DCT on one block of samples. 



GfBOBAL(void) 

jSlg_fdct_ifast (DCTELEM * data) 

"::pCTELEM tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5, tmp6 , tmp7 ; 
y-iiCTELEM tmplO, tmpll, tmpl2, tmpl3; 
SPCTELEM zl, z2, 23, z4 , z5, zll, zl3 ; 
.:JpCTELEM *dataptr; 
Mnt ctr; 
^^BHIFT TEMPS 



Pass 1: process rows. 



.^dataptr = 
rjfor (ctr 
J tmpO = 
\l tmp7 = 
tmpl = 

tit^6 = 
J tmp2 = 
1 tmp5 = 
tmp3 = 
tmp4 = 



■■ data; 
= DCTSIZE-1; 

dataptr[0] + 

dataptr [ 0 1 - 

dataptrtl] + 

dataptr [1] - 

dataptr [2] + 

dataptr [2] - 

dataptr [3] + 

dataptr [3] - 



ctr >= 0; ctr- 
dataptr[7] 
dataptr [7] 
dataptr [6] 
dataptr [6] 
dataptr [5] 
dataptr [5] 
dataptr [4] 
dataptr [4] 



/* Even part */ 

tmplO = tmpO + tmp3; 
tmpl3 = tmpO - tmp3 ; 
tmpll = tmpl + tmp2; 
tmpl2 = tmpl - tmp2; 



/* phase 2 */ 



dataptr [0] = tmplO + tmpll; /* phase 3 */ 
dataptr [4] = tmplO - tmpll; 



zl = MULTIPLY {tmpl2 + tmpl3 , 
dataptr [2] = tmpl3 + zl; 
dataptr [6] = tmpl3 - zl; 



FIX_0_707106781) ; 
/* phase 5 */ 



c4 */ 



/* Odd part */ 

tmplO - tmp4 + tmp5 
tmpll = tmp5 + tmp6 
tn^l2 = tmp6 + tmp7 



/* phase 2 */ 



/* The rotator is modified from fig 4-8 to avoid extra negations. */ 
z5 = MULTIPLY (tmplO - tmpl2, FIX_0„382683433) ; /* c6 */ 
22 = MULTIPLY (tmplO, FIX_0_541196100) + z5; /* c2-c6 */ 
z4 = MULTIPLY (tmpl2, FIX_1_306562965) + 25; /* c2+c6 */ 
z3 := MULTIPLY (tmpll, FIX_0_707106781) ; /* c4 */ 
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zll = tmp7 + z3; /* phase 5 */ 

zl3 = trnp7 - z3 ; 

dataptr[5] = zl3 + z2; /* phase 6 */ 
dataptr[3] = zl3 - z2; 
dataptr[l] = zll + z4; 
dataptr[7] = zll - z4; 

dataptr += DCTSIZE; /* advance pointer to next row */ 

} 

/* Pass 2: process columns. */ 
dataptr = data; 

for {ctr = DCTSIZE-1; ctr >= 0; ctr— ) { 

tinpO = dataptr [DCTSIZE* 0] + dataptr [DCTSIZE*7] ; 
tmp7 = dataptr [DCTSIZE* 0] - dataptr [DCTSIZE*? ] ; 
tmpl = dataptr [DCTSIZE* 1] + dataptr [DCTSIZE*6 3 ; 
trtvp6 = dataptr [DCTSIZE*11 - dataptr [DCTSIZE*6] ; 
tmp2 = dataptr [DCTSIZE*2] + dataptr [DCTSIZE*5] ; 
tmp5 = dataptr [DCTSIZE*2] - dataptr [DCTSIZE*5 ] ; 
tmp3 = dataptr [DCTSIZE*3] + dataptr [DCTSIZE*4] ; 
tnip4 = dataptr [DCTSIZE*3] - dataptr [DCTSIZE*43 ; 

/* Even part */ 

tmplO = tmpO + tinp3; /* phase 2 */ 

tmpl3 = tmpO - tinp3; 

tmpll = tmpl + tmp2; 

tmpl2 = tmpl - tmp2; 

O dataptr [DCTSIZE*0] = tmplO + tmpll; /* phase 3 */ 
./I dataptr [DCTSIZE* 4] = tmplO - tmpll; 

9'^ zl = MULTIPLY (tmpl2 + tmpl3 , FIX_0_707106781) ; /* c4 */ 
j'i dataptr [DCTSIZE* 2] = tmpl3 + zl; /* phase 5 */ 
dataptr [DCTSIZE* 6 3 = tmpl3 - zl; 

/* Odd part */ 

Jj-* tmplO tmp4 + tmp5; /* phase 2 */ 
U; tmpll - tmp5 + tmp6; 
tmpl2 = tmp6 + tmp7 ; 

hi. iji^e rotator is modified from fig 4-8 to avoid extra negations. */ 
r\ z5 = MULTIPLY {tmplO - tmpl2 , FIX_0_3826 83433 ) ; /* c6 */ 

z2 = MULTIPLY (tmplO, FIX_0„541196100 ) + z5 ; /* c2-c6 */ 
^^i-" z4 = MULTIPLY (tmpl2, FIX_1_306562965) + z5; /* c2+c6 */ 

z3 = MULTIPLY (tmpll, FIX„0_707106781) ; /* c4 */ 

zll = tmp7 + z3; /* phase 5 */ 

O zl3 = t;-np7 - z3 ; 

dataptr [DCTSIZE* 5] = zl3 + z2; /* phase 6 */ 

dataptr ^DCTSIZE*3] = zl3 - z2; 

dataptr .DCTSIZE*!] = zll + z4; 

dataptr [DCTSIZE*7] = zll - z4; 

dataptr ++; /* advance pointer to next column */ 

} 

} 

tendif /* DCT_IFAST_SUPPORTED */ 



3 



* jfdctint.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

•k 

* This file contains a slow-but-accurate integer implementation of the 

* forward DCT {Discrete Cosine Transform) . 
★ 

* A 2-D DCT can be done by 1-D DCT on each row followed by 1-D DCT 

* on each column. Direct algorithms are also available, but they are 

* much more complex and seem not to be any faster when reduced to code, 
* 

* This implementation is based on an algorithm described in 

* C. Loeffler, A. Ligtenberg and G, Moschytz, "Practical Fast 1-D DCT 

* Algorithms with 11 Multiplications", Proc. Int'l. Conf. on Acoustics, 

* Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991. 

* The primary algorithm described there uses 11 multiplies and 29 adds. 

* We use their alternate method with 12 multiplies and 32 adds. 

* The advantage of this method is that no data path contains more than one 

* multiplication; this allows a very simple and accurate implementation in 

* scaled fixed-point arithmetic, with a minimal number of shifts. 
*/ 

#define JPEG_INTERNALS 
# include "jinclude.h" 
#include "jpeglib.h" 

#include "jdct.h" /* Private declarations for DCT subsystem */ 

#ifdef DCT_ISLOW_SUPPORTED 



Mi 

^;^.This module is specialized to the case DCTSIZE = 8. 
Mf DCTSIZE != 8 

^!*|orry, this code only copes with 8x8 DCTs . /* deliberate syntax err 
#liidif 



The poop on this scaling stuff is as follows: 

,* 

Each 1-D DCT Step produces outputs which are a factor of sqrt{N) 
larger than the true DCT outputs. The final outputs are therefore 

^ a factor of N larger than desired; since N=8 this can be cured by 
a simple right shift at the end of the algorithm. The advantage of 

N this arrangement is that we save two multiplications per 1-D DCT, 

r*":; because the yO and y4 outputs need not be divided by sqrt(N) . 

¥ In the IJG code, this factor of 8 is removed by the quantization step 

yd (in jcdctmgr.c), NOT in this module. 

* We have to do addition and subtraction of the integer inputs, which 

* is no problem, and multiplication by fractional constants, which is 

* a problem to do in integer arithmetic. We multiply all the constants 

* by CONST„SCALE and convert them to integer constants {thus retaining 

* C0NST_BIT3 bits of precision in the constants) . After doing a 

* multiplication we have to divide the product by CONST_SCALE, with proper 

* rounding, to produce the correct output. This division can be done 

* cheaply as a right shift of CONST_BITS bits. We postpone shifting 

* as long as possible so that partial sums can be added together with 

* full fractional precision. 
* 

* The outputs of the first pass are scaled up by PASS1_BITS bits so that 

* they are represented to better- than-integral precision. These outputs 

* require EITS_IN„JSAMPLE + PASS1_BITS + 3 bits; this fits in a 16-bit word 

* with the recommended scaling. (For 12 -bit sample data, the intermediate 

* array is INT32 anyway.) 
* 

* To avoid overflow of the 32-bit intermediate results in pass 2, we must 

* have BITS_IN_JSAMPLE + CONST„BITS + PASS1_BITS <= 2 6. _ Error analysis 

* shows that the values given below are the most effective. 
V 

#if BITS_INJSAMPLE == 8 
#define CONST_BITS 13 
#define PASS1„BITS 2 
#else 
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#define CONST_BITS 13 
#define PASS1_BITS 1 
#endif 



/* lose a little precision to avoid overflow */ 



/* Some C compilers fail to reduce « FIX ( constant) " at compile time, thus 

* causing a lot of useless floating-point operations at run time. 

* To get around this we use the following pre-calculated constants. 

* If you change CONST_BITS you may want to add appropriate values. 

* (With a reasonable C compiler, you can just rely on the FIX() macro,..) 
*/ 

#if CONST_BITS 13 
#define FIX_0_298631336 
#define FIX_0_390180644 
#define FIX_0_541196100 
#define FIX„0„7653 66865 
#define FIX_0_899976223 
#define FIX_1_175875602 
#define FIX_1_501321110 
#define FIX_1_847759065 
#define FIX„1_961570560 
#define FIX_2_053119869 
#define FIX„2_562915447 
#define FIX_^3„072711026 
#else 

tdefine FIX_0_298631336 
#define FIX_0_3 90180644 
tdefine FIX_0_541196100 
#define FIX„0_765366865 
#define FIX„0_899976223 
#define FIX^1„175875602 
#5iefine FIX_1_501321110 
#befine FIX_1_847759065 
#difine FIX_1_961570560 
#lefine FIX_2_053119869 
#H6fine FIX_2_562 915447 
#4jfine FIX._3_072711026 
#=emdif 

A*=!i Multiply an INT32 variable by an INT32 constant to yield an_INT32 result. 
St For 8-bit samples with the recommended scaling, all the variable 
=^'^and constant values involved are no more than 16 bits wide, so a 

16xl6->3 2 bit multiply can be used instead of a full 32x32 multiply. 
^* For 12-fcit samples, a full 32-bit multiplication will be needed. 

fi 

tif BITS_IN_JSAMPLE 8 

Idfefine MULTIPLY (var, const) 
rfyise 

4pefine MULTIPLY(var, const) 
l^dif 



* Perform the forward DOT on one block of samples. 
*/ 

GLOBAL (void) 

jpeg_fdct_islow (DOTELEM * data) 

INT32 tmpO. tmpl , tmp2 , tmp3, tmp4, tmp5, tmp6, tmp7; 

INT32 tmp'O, tmpll, tmpl2, tmpl3; 

INT32 zl, z2, z3, z4 , z5; 

DCTELEM *c^ataptr; 

int ctr; 

SHIFT_TEM^S 

/* Pass 1- process rows. */ 

/* Note results are scaled up by sqrt(8) compared to a true DOT; */ 
/* furthermore, we scale the results by 2**PASS1_BITS . */ 



dataptr = 


data; 




ctr >- 0; ctr — ) { 


for (ctr 


- DCTSIZE- 


1; 


tmpO = 


dataptr [0] 




dataptr [7] ; 


tmp7 = 


dataptr [0] 




dataptr [7] ; 


tit^l = 


ciataptr [1] 


+ 


dataptr [6] ; 


tmp6 = 


(iataptr [1] 




dataptr [6] ; 


tmp2 = 


dataptr [2] 




dataptr [5] ; 


tmp5 = 


dataptr [2] 




dataptr [5] ; 



( {INT32) 


2446) 


/* 


( {IKT32) 


3196) 


/* 


( (INT32) 


4433) 


/* 


{ {INT32) 


6270) 


/* 


( (INT32) 


7373) 


/* 


{ (INT32) 


9633) 


/* 


( (INT32) 


12299) 


/* 


{ {INT32) 


15137) 


/* 


( (INT32) 


16069) 


/* 


( (INT32) 


16819) 


/* 


( (INT32) 


20995) 


/* 


( {INT32) 


25172) 


/* 



FIX(0. 298631336) 
FIX(0. 390180644) 
FIX(0. 541196100) 
FIX(0. 765366865) 
FIX{0. 899976223) 
FIX{1. 175875602) 
FIX(1. 501321110) 
FIX(1. 847759065) 
FIX(1. 961570560) 
FIX(2. 053119869) 
FIX(2. 562915447) 
FIX(3. 072711026) 



FIX{0. 298631336) */ 
FIX(0. 390180644) */ 
FIX(0. 541196100) */ 
FIX(0. 765366865) */ 
FIX(0. 899976223) */ 
FIX{1. 175875602) */ 
FIX{1. 501321110) */ 
FIX(1. 847759065) */ 
FIX{1. 961570560) */ 
FIX(2. 053119869) */ 
FIX(2. 562915447) */ 
FIX(3. 072711026) */ 



MULTIPLY16C16 (var, const) 
((var) * (const)) 



tinp3 = dataptr[33 + dataptr[4]; 
tmp4 = dataptr[3] - dataptr[4]; 

/* Even part per LL&M figure 1 --- note that published figure is faulty; 
* rotator "sqrt(2)*cl" should be "sqrt (2) *c6" . 



tmplO = tmpO + tmp3 

tmpl3 = tmpO - tmp3 

tnpll ^ tmpl + tmp2 

tmpl2 = tmpl - titip2 

dataptrlO] = (DCTELEM) ((tmplO + tmpll) « PASS1_BITS) ; 
dataptr[43 = (DCTELEM) ({tmplO - tmpll) « PASS1_BITS) ; 

zl = MULTIPLY {tmpl2 + tmpl3, FIX_0_541196100 ) ; .....n... 

dataptr[2] = (DCTELEM) DESCALE(zl + MULTIPLY (tmp 13, FIX„0„765366865 ) , 

C0NST_BITS-PASS1_BITS) ; 

dataptrI6] = (DCTELEM) DESCALE(zl + MULTIPLY (tmpl 2 , - FIX_1_847759065 ) , 

C0NST_BXTS-PASS1_BITS) ; 

/* Odd part per figure 8 note paper omits factor of sqrt{2) . 

* cK represents cos (K*pi/16) . 

* i0..i3 in the paper are tmp4..tmp7 here, 
*/ 

zl = tmp4 + tmp7; 

z2 = tr^T55 + tmp6; 

z3 = tnp4 -4- tmp6; 

z4 - tv:..-^5 + tmp7; 

z5 = MU;.TIPLY(z3 + z4, FIX_1_175875602 ) ; /* sgrt(2) 



0_298631336) ; /* sqrt(2} 
2_053119869) ; /* sqrt(2) 
3_072711026) ; /* sqrt(2) 
1_501321110) ; /* sqrt(2) 
899976223) ; /* sqrt(2) * 
z2 = MUL-IPLY(z2, - FIX_2_562915447) ; /* sqrt(2) * 

961570560) ; /* sqrt(2) * 
390180644) ; /* sqrt(2) * 



tmp4 
tmp5 
tmp6 
tmp7 
zl 



= MULTIPLY (tmp4, FIX_ 
= Tn]LTIPLY(tmp5, FIX_ 
= TrJLTIPLY(tmp6, FIX_ 
]n:LTIPLY(tmp7, FIX_ 
MULTIPLY (zl, - FIX_0_ 



z3 
z4 



MU..TIPLY(z3, - FIX_1_ 
MULTIPLY (z4, - FIX_0_ 



C3 */ 

* (-Cl+c3+c5-c7) 

* { Cl+c3-c5+c7) 

* ( cl+c3+c5-c7) 

* ( cl+c3-c5-c7) 
(c7-c3) */ 
(-cl-c3) */ 
{-c3-c5) */ 
(c5-c3) */ 



z3 += 25; 
z4 += z5; 

dataptr [ 7 ] 
dataptr '5] 
dataptr : 3 ] 
dataptr:!] 

dataptr += 



(DCTELEM) DESCALE(tmp4 + zl + z3, C0NST_BITS-PASS1_BITS) 

(DCTELEM) DESCALE (tmp5 + z2 + z4, C0NST_BITS-PASS1_BITS) 

(DCTELEM) DESCALE (tmp6 + z2 + z3, C0NST_BITS-PASS1_BITS) 

(DCTELEM) DESCALE (tmp7 + zl + z4, C0NST_BITS-PASS1_BITS) 



DCTSIZE; 



/* advance pointer to next row */ 



* Pass 2: process columns. 

* We rer^; ^ve the PASS1_BITS scaling, but leave the results scaled up 

* by an r/erall factor of 8. 
*/ 



dataptr = data; 

for (ctr = DCTSIZE-1; ctr >= 0; ctr--) { 

tmpO = dataptr [DCTSIZE*0] + dataptr [DCTSIZE*7] ; 
tmp7 = dataptr [DCTSIZE* 0] - dataptr [DCTSIZE*7 ] ; 
tmpl = dataptr [DCTSIZE*11 + dataptr [DCTSIZE*6 ] ; 
tmp6 = c.ataptr [DCTSI2E*!] - dataptr [DCTSIZE*6 ] ; 
tmp2 = clataptr [DCTSIZE*2] + dataptr [DCTSIZE*5] ; 
tmp5 = lataptr[DCTSIZE*2] - dataptr [DCTSIZE*51 ; 
tmp3 = dataptr [DCTSIZE*3] + dataptr [DCTSIZE*4] ; 
tnp4 = dataptr [DCTSIZE*3] - dataptr [DCTSIZE*4 ] ; 

/* Even oart per LL&M figure 1 note that published figure is faulty; 

* rotator "sqrt(2)*cl" should be "sqrt (2 ) *c6 " . 
*/ 



tmplO = tmpO + tmp3; 
tnipl3 = tmpC - tmp3; 
tmpll = tmpl + tmp2; 
tmpl2 = rmpl - tmp2; 

dataptr ^DCTSIZE^O] = (DCTELEM) DESCALE ( tmplO + tmpll, PASSIJITS) ; 
dataptr :?CTSIZE*4] = (DCTELEM) DESCALE ( tmplO - tmpll, PASS1_BITS) ; 



3 



zl = MULTIPLY (tmpl2 + tmpl3 , FIX_0_541196100) ; 

dataptr [DCTSIZE*2] = (DCTELEM) DESCALE(zl + MULTIPLY ( tmpl 3 , FIX_0_7 653 66865 ) , 

C0NST_BITS+PASS1_BITS) ; 
dataptr [DCTSIZE*6] = (DCTELEM) DESCALE{zl + MULTIPLY (tmpl 2 , - FIX_1„847759065) , 
C0NST„BITS+PASS1_BITS) ; 

/* Odd part per figure 8 note paper omits factor of sqrt{2). 

* cK represents cos {K*pi/16 ) . 

* 10.. i 3 in the paper are tinp4.,tmp7 here. 
*/ 

zl = tmp4 + trap7 ; 
z2 = tmp5 + tmp6; 
z3 = tn)p4 + tmp6; 
z4 = tmcS + tmp7; 

z5 = MULTIPLY(z3 + z4, FIX_1_175B75602 ) ; /* sqrt(2) * c3 */ 

tmp4 = MULTIPLY {tmp4, FIX_0_2 9863133 6 ) ; /* sqrt(2) * ( -cl+c3+c5-c7 ) */ 

tmpS = MULTIPLY (tmp5, FIX_.2_053119869 ) ; /* sqrt{2) * ( Cl+c3-c5+c7) */ 

tmp6 = MULTIPLY {tmp6, FIX_3.072711026) ; /* sqrt{2) * ( cl+c3+c5-c7) */ 

tmp7 = MULTIPLY {tmp7, FIX_1_501321110) ; /* sqrt{2) * ( cl+c3-c5-c7) */ 

zl = MULTIPLY {zl, - FIX_0_899976223) ; /* sqrt(2) * {c7-c3) */ 

z2 = MULTIPLY{z2, - FIX_2_562915447) ; /* sqrt(2) * C-cl-c3) */ 

z3 = MULTIPLY(z3, - FIX_1_961570560) ; /* sqrt(2) * {-c3-c5) */ 

z4 = MULTIPLY(z4, - FIX_0_390180644) ; /* sqrt(2) * (c5-c3) */ 

z3 += z5; 
z4 += z5; 

dataptr rDCTSIZE*7] = (DCTELEM) DESCALE (tmp4 + zl + z3, 

C0NST„BITS+PASS1_BITS) ; 
dataptr [DCTSIZE*5] = (DCTELEM) DESCALE (tmp5 + z2 + z4, 

C0NST_BITS+PASS1_BITS) ; 
dataptr [DCTSIZE*3] = (DCTELEM) DESCALE (tmp6 + z2 + z3 , 

C0NST_BITS+PASS1_BITS) ; 
dataptr [DCTSIZE*1] = (DCTELEM) DESCALE (tmp7 + zl + z4, 
C0NST_BITS+PASS1_BITS) ; 

dataptr-^+; /* advance pointer to next column */ 

rfMidif /* DCT„ISLOW_SUPPORTED */ 
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* jidctflt.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
★ 

* This file contains a floating-point implementation of the 

* inverse DCT (Discrete Cosine Transform) . In the IJG code, this routine 

* must also perform dequantization of the input coefficients. 
* 

* This implementation should be more accurate than either of the integer 

* IDCT implementations. However, it may not give the same results on all 

* machines because of differences in roundoff behavior. Speed will depend 

* on the hardware's floating point capacity. 
* 

* A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT 

* on each row (or vice versa, but it's more convenient to emit a row at 

* a time) . Direct algorithms are also available, but they are much more 

* complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on Aral, Agui, and Nakajima's algorithm for 

* scaled DCT, Their original paper (Trans. lEICE E-71(ll) : 1095) is m 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. ^ ^ ^ _ 

* While an 8-point DCT cannot be done in less than 11 multiplies, it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. The AA&N method leaves only 5 multiplies and 29 adds 

* to be done in the DCT itself. 

Si The primary disadvantage of this method is that with a fixed-point 

implementation, accuracy is lost due to imprecise representation of the 
|f scaled quantization values. However, that problem does not arise if 
^■^we use floating point arithmetic. 

#3^fine JPEG_INTERNALS 
illiclude "jinclude.h" 

titiclude " jpeglib.h" ^ 

filciclude "jdct.h" /* Private declarations for DCT subsystem */ 

#,ifdef DCT_FLOAT_SUPPORTED 

m 

i'-: This module is specialized to the case DCTSIZE = 8. 

:7 

#£f DCTSIZE != 8 

lifsorry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
Sndif 

/* Deguantize a coefficient by multiplying it by the multiplier- table 

* entry; produce a float result. 
*/ 

#define DEQUANTIZE(coef ,quantval) { ( {FAST„FLOAT) (coef ) ) * (quantval) ) 



* Perform dequantization and inverse DCT on one block of coefficients. 
*/ 

GLOBAL (void) . ^ ^ 

jpeg_idct_f loat ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOSFPTR coef_block, 

JSAl^IPARRAY output_buf, JDIMENSION output_col) 

^ FAST_FLOAT tmpO, tmpl, tmp2 , tmp3 , tmp4 , tmp5 , tmp6, tmp7 ; 
FAST__FLOAT tmplO, tmpll, tmpl2 , tmpl3; 
FAST_FLOAT z5, zlO, zll, zl2, zl3; 
JCOEFPTR inptr; 
FLOAT_MULT„TYPE * quantptr; 
FAST_FLOAT * wsptr; 
JSAMPROW outptr; 

JSAMPLE *range__limit = IDCT_range_limit (cinfo) ; 
int ctr; 
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FAST_FLOAT workspace [DCTSIZE2 ] ; /* buffers data between passes */ 
SHIFT_TEMPS 

/* Pass 1: process columns from input, store into work array. */ 
inptr = coef__block; 

quantptr = { FLOAT_MULT_TYPE *) compptr->dct_table ; 
wsptr = workspace; 

for (ctr = DCTSIZE; ctr > 0; ctr— ) { ^ i_ . 

/* Due to quantization, we will usually find that many of the input 

* coefficients are zero, especially the AC terms. We can exploit this 

* by short-circuiting the IDCT calculation for any column in which all 

* the AC terms are zero. In that case each output is equal to the 

* DC coefficient {with scale factor as needed) . 

* With typical images and quantization tables, half or more of the 

* column DCT calculations can be simplified this way. 
*/ 

if (inptr [DCTSIZE*1] == 0 && inptr [DCTSIZE*2 ] == 0 && 

inptr [DCTSIZE*3] 0 && inptr [DCTSIZE* 4] == 0 

inptr [DCTSIZE*5] == 0 && inptr [DCTSIZE*6] == 0 && 

inptr [DCTSIZE*7] == 0) { 

/* AC terms all zero */ ^ 
FAST^FLOAT dcval - DEQUANTIZE ( inptr [DCTSIZE*0 ] , quantptr [DCTSIZE*0] ) ; 



wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSIZE*0] 
[DCTSIZE*1] 
[DCTSIZE*23 
[DCTSIZE*33 

:dctsize*43 

[DCTSIZE*5] 
[DCTSIZE*6] 
[DCTSIZE*7] 



inptr++ ; 
quart tp tr ++ ; 
wsptr ++ ; 
continue ; 



: dcval; 
: dcval; 
: dcval; 
: dcval; 
: dcval; 
= dcval; 
= dcval; 
= dcval ; 

/* advance pointers to next column */ 



} 



/* Even part */ 

tmpC = DEQUANTIZS ( inptr [DCTSIZE*01 , 
tmpl = DSQUANTIZE ( inptr [DCTSIZE*2 ] , 
tmp2 = DEQUANTIZE (inptr [DCTSI2iE*4] , 
tmp3 = DEQUANTIZE (inptr [DCTSIZE*6] , 



quantptr [DCTSIZE*0] ) ; 
quantptr [DCTSIZE*2] ) ; 
quantptr [DCTSIZE*41 ) ; 
quantptr [DCTSIZE* 6] ) ; 



tmplO = tmpO + tmp2; 
tmpll = zmpO - tmp2; 



/* phase 3 */ 



tmpl3 = tmpl + tmp3; /* phases 5-3 */ 

tmpl2 = (tmpl - tmp3) * ( {FAST_FLOAT) 1.414213562) 



tmpl3; /* 2*c4 */ 



/* phase 2 */ 



tmpO = tirplO + tmpl3 

tmp3 = UtlpIO - tmpl 3 

tmpl -~ tmpll + tmpl2 

tmp2 = tmpll - tmpl2 

/* Odd part */ 



tmp4 = DEQUANTIZE (inptr [DCTSIZE*1] ; 
tmp5 = DEQUANTIZE ( inptr [DCTSIZE*3 ] . 
tmp6 = DEQUANTIZE { inptr [DCTSIZE*5] , 
tmp7 = DEQUANTIZE {inptr [DCTSIZE*? 3 , 



quantptr [DCTSIZE*!] ) 
quantptr [DCTSIZE*3] ) 
quantptr [DCTSIZE*5] ) 
quantptr [DCTSIZE*?] ) 



zl3 = tmp6 + tmp5; 

zlO = tmp6 - tmpS; 

zll = tmp4 + tmp?; 

zl2 = tr\p4 - tmp7; 



/* phase 6 */ 



tmp? = zll + zl3; /* phase 5 */ 

tmpll = (zll - zl3) * ( (FAST_FLOAT) 1.414213562); /* 2*c4 */ 

z5 = (zlO + zl2) * ( (FAST_FLOAT) 1 . 84?759065 ) ; /* 2*c2 */ 
tmplO - ( (FAST„FLOAT) 1.082392200) * zl2 - z5; 2*(c2-c6) */ 
tmpl2 = { (FAST_FLOAT) -2.61312 593 0) * zlO + z5; /* -2*(c2+c6) */ 



tmp6 = trapl2 - tmp7 ; 
tmp5 = tmpll - tmp6; 
tmp4 = tmp 10 + tmp5; 



/* phase 2 */ 



2 



wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSIZE*0] 
[DCTSIZE*7] 
[DCTSIZE*!] 
[DCTSIZE*6] 
[DCTSIZE* 2] 
[DCTSIZE*5] 
[DCTSIZE*4] 
[DCTSIZE*3] 



= tmpO 
= tmpO 
= tmpl 
= tmpl 
= tmp2 
= tmp2 
= tmp3 
= tmp3 



tmp7 ; 
tmp7 ; 
tmp6; 
tmp6; 
tmp5 ; 
trap 5 ; 
tmp4 ; 
tmp4 ; 



inptr++; 

quantptr++; 

wsptr++; 



/* advance pointers to next column */ 



} 

/* Pass 2: process rows from work array, store into output array. */ 
/* Note that we must descale the results by a factor of 8 == 2**3. */ 

wsptr - workspace; 

for (ctr = 0; ctr < DCTSIZE; ctr++) { 
outptr = output„buf [ctr] + output_col; 

/* Rows of zeroes can be exploited in the same way as we did with columns. 

* However, the column calculation has created many nonzero AC terms, so 

* the simplification applies less often {typically 5% to 10% of the time) 

* And testing floats for zero is relatively expensive, so we don't bother 
*/ 



/* Even part */ 

tmplO = wsptr[0] + wsptr[4]; 
tmpll ^ wsptr[0] - wsptr[4]; 

tmpl3 ^ wsptr [2 3 + wsptr [6]; 
1 tn^l2 - (wsptr [2] - wsptr[6]) * { {FAST_FLOAT) 1.414213562) - tmpl3; 



tmpO = tmplO + tmpl3; 

tmp3 = tmplO - tmpl 3 ; 

tmpl - tmpll + tmpl2; 

tmp2 = tmpll - tmpl 2 ; 

/* Odd part */ 

wsptr[5] + wsptr[3]; 

wsptr [5] - wsptr [3] ; 

wsptr [1] + wsptr[7]; 

wsptr[l] - wsptr[7]; 

"It trnp7 = zll + zl3; 

tmpll = (zll - zl3) * ( (FAST_FLOAT) 1.414213562); 

z5 = (zlO + zl2) * ( {FAST„FLOAT} 1.847759065); /* 2*c2 */ 
tmplO - ( (FAST_FLOAT) 1.082392200) * zl2 - z5; /* 2* (c2-c6) */ 
tmpl2 = ( (FAST_FLOAT) -2.613125930) * zlO + z5; /* -2*{c2+c6) */ 

tmp6 = tmpl2 - tmp7; 
tmp5 = tmpll - tmp6; 
tmp4 ^ tmplO + tmp5; 

/* Final output stage: scale down by a factor of 8 and range-limit */ 

outptr[0] = range_limit[{int) DESCALE ( (INT3 2) (tmpC + tmp7) , 3) 
Sc RANGE_MASK] ; 

outptr [7] = range_limit[ (int) DESCALE { (INT3 2) (tmpO - tmp7) , 3) 
& RA]SFGE_MASK] ; 

outptr [1] = range_limit[ (int) DESCALE ( (INT3 2 ) (tmpl + tmp6), 3) 
& RANGE_MASK] ; 

outptr [6] = range_limit[(int) DESCALE ( (XNT3 2 ) (tmpl - tmp6) , 3) 
& RANGE_MASK] ; 

outptr [2] = range„limit[(int) DESCALE (( INT3 2 ) {tmp2 + tmp5) , 3) 
& RANGE_.MASK] ; 

outptr[5] = range_limit[ (int) DESCALE ( (INT3 2 ) (tmp2 - tmp5), 3) 
& RANGE_MASK] ; 

outptr [4] = range„limit[ (int) DESCALE (( INT3 2 ) (tmp3 + tmp4) , 3) 
& RANGE_MASK] ; 

outptr [3] = range_„limit[ (int) DESCALE { (INT3 2 ) (tmp3 - tmp4), 3) 
& RANGE_MASK] ; 



Zl3 = 
zlO = 
zll = 
zl2 = 



wsptr DCTSIZE; 

} 



/* advance pointer to next row */ 



#endif /* DCT_FL0AT_SUPP0RTED 



u 

m 
m 



/* 

* jidctfst.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a fast, not so accurate integer implementation of the 

* inverse DCT (Discrete Cosine Transform). In the IJG code, this routine 

* must also perform dequantization of the input coefficients. 
* 

* A 2-D IDCT can be done by 1-D IDCT on each column followedby 1-D IDCT 

* on each row (or vice versa, but it's more convenient to emit a row at 

* a time) . Direct algorithms are also available, but they are much more 

* complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on Aral, Agui, and Nakajima's algorithm for 

* scaled DCT. Their original paper (Trans. lEICE E-71 (11) : 1095) is in 

* Japanese, but the algorithm is described in the Pennebaker & Mitchell 

* JPEG textbook (see REFERENCES section in file README) . The following code 

* is based directly on figure 4-8 in P&M. _ _ ^ 

* While an 8-point DCT cannot be done in less than 11 multiplies it is 

* possible to arrange the computation so that many of the multiplies are 

* simple scalings of the final outputs. These multiplies can then be 

* folded into the multiplications or divisions by the JPEG quantization 

* table entries. "The AA&N method leaves only 5 multiplies and 29 adds 

* to be done in the DCT itself. . ^ . 4_u 

* The primary disadvantage of this method is that with fixed-point math, 

* accuracy is lost due to imprecise representation of the scaled 

* quantization values. The smaller the quantization table entry, the less 

* precise the scaled value, so this implementation does worse with high- 
quality-setting files than with low-quality ones. 

fipfine JPEG_INTERNALS 
f include "j include. h" 

#.liclude "jpeglib.h" , . ^^.n -u . * / 

fihclude "jdct.h" /* Private declarations for DCT subsystem */ 

fitdef DCT_IFAST_SUPPORTED 

H* This module is specialized to the case DCTSIZE = 8. 

£Pf DCTSIZE !=8 .-.-..^^ . */ 

nilSorry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 

tendif 

Scaling decisions are generally the same as in the LL&M algorithm; 
see jidctint.c for more details. However, we choose to descale 

* (right shift) multiplication products as soon as they are formed, 

* rather than carrying additional fractional bits into subsequent additions. 

* This compromises accuracy slightly, but it lets us save a few shifts. 

* More importantly, 16-bit arithmetic is then adequate (for 8-bit samples) 

* everywhere except in the multiplications proper; this saves a good deal 

* of work on 16-bit-int machines. 
* 

* The dequantized coefficients are not integers because the AA&N scaling 

* factors have been incorporated. We represent them scaled up by PASS1_BITS, 

* so that the first and second IDCT rounds have the same input scaling. 

* For 8-bit JSAMPLEs, we choose IFAST_SCALE_BITS = PASS1_BITS so as to 

* avoid a descaling shift; this compromises accuracy rather drastically 

* for small quantization table entries, but it saves a lot _ of _ shifts . 

* For 12-bit JSAMPLEs, there's no hope of using 16x16 multiplies anyway, 

* so we use a much larger scaling factor to preserve accuracy. 

* A final compromise is to represent the multiplicative constants to only 

* 8 fractional bits, rather than 13. This saves some shifting work on some 

* machines, and may also reduce the cost of multiplication (since there 

* are fewer one-bits in the constants) . 
*/ 



#if BITSJNJSAMPLE == 8 
#define CONST_BITS 8 
#define PASS 1 JITS 2 
#else 

#define CCN3T_BITS 8 
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#define PASS1„BITS 1 /* lose a little precision to avoid overflow */ 

#endif 

/* Some C compilers fail to reduce " FIX (constant) " at compile time, thus 

* causing a lot of useless floating-point operations at run time. 

* To get around this we use the following pre-calculated constants. 

* If you change CONST_BITS you may want to add appropriate values. 

* (With a reasonable C compiler, you can just rely on the FIX{) macro...) 
*/ 



#if CONST„BITS 
#define FIX_1„ 
#define FIX„1„ 
#define FIX_1_ 
#define FIX_2. 
'tf'else 

idefine FIX_1. 
#define FIX_1 
#define FIX_1 
#define FIX_2 
#endif 



-= 8 
082392200 
414213562 
847759065 
613125930 

082392200 
414213562 
847759065 
613125930 



((IKT32) 277) 

((INT32) 362) 

((INT32) 473) 

{(INT32) 669) 

FIX{1. 082392200) 
FIX{1. 414213562) 
FIX(1. 847759065) 
FIX{2. 613125930) 



/* FIX(1. 082392200) */ 

/* FIX(1. 414213562) */ 

/* FIX(1. 847759065) */ 

/* FIX{2. 613125930) */ 



/* We can gain a little more speed, with a further compromise in accuracy, 

* by omitting the addition in a descaling shift. This yields an incorrectly 

* rounded result half the time... 
*/ 



#ifndef USE„ACCURATE_ROUNDING 
#undef DESCALE 

#define DESCALE (x,n) RIGHT__SHIFT (x, n) 
#fEidif 



/if Multiply a DCTELEM variable by an INT32 constant, and immediately 
descale to yield a DCTELEM result. 

#^fine MULTIPLY (var, const) {(DCTELEM) DESCALE ( (var) * (const), CONST_BITS) ) 



ff. Dequantize a coefficient by multiplying it by the multiplier-table 
I entry; produce a DCTELEM result. For 8-bit data a 16xl6->16 
multiplication will do. For 12-bit data, the multiplier table is 
r* declared INT32, so a 32-bit multiply will be used. 

flif BITS_IN_JSAMPLE ==8 . , v . , . n s x 

Idefine DEQUANTIZE (coef,quantval) ( ( (IFAST„MULT_TYPE) (coef ) ) * (quantval) ) 

Wo. s e 

Mefine DEQUANTIZE {coef , quantval) \ 

!:f DESCALE ( {coef) * (quantval) , IFAST_SCALE„BITS-PASS1_BITS) 
tSndif 



/* Like DESCALE, but applies to a DCTELEM and produces an int. 
* We assume that int right shift is unsigned if INT32 right shift is. 
*/ 

#ifdef RIGHT_SHIFT_IS_UNSIGNED 

#define ISHIFT_TEMPS DCTELEM ishift_temp; 

#if BITS_IN_JSAMPLE ==8 ^ ^ . ^ , 

#define DCTELEMBITS 16 /* DCTELEM may be 16 or 32 bxts */ 

#else 

#define DCTELEMBITS 32 /* DCTELEM must be 32 bits */ 

#endif 

#define IRIGHT„SHXFT (x, shf t) \ 

( (ishif t„temp = (x) ) < 0 ? \ , . .vv v 

(ishift_temp » (shft)) | {(-((DCTELEM) 0)) « (DCTELEMBITS- (shf t) ) ) : \ 
(ishift_terap » (shft))) 

^else 

#define ISHIFT_TEMPS 

#define IRIGHT_SHIFT(x,shft) ( (x) » (shft)) 
#endif 

#ifdef USE_ACCURATE„ROUNDING 

#define IDESCALE (x , n) ((int) IRIGHT_SHIFT ( (x) + (1 « ((n)-l)), n) ) 
#else 

#define IDESCALE (x, n) {(int) IRIGHT_SHIFT (x, n) ) 
#endif 
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* Perform dequantization and inverse DOT on one block of coefficients. 
*/ 

GLOBAL (void) . ^ - ^ * 

jpeg„idct_ifast { j„decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY output_buf , JDIMENSION OUtput_COl) 

^ DCTELEM tmpO, tmpl, tmp2 , tmp3 , tmp4, tmp5, tmp6, tmp7 ; 
DOTELEM tmplO, tmpll, tnipl2 , tmpl3; 
DCTELEM 25, zlO, zll, zl2 , zl3 ; 
JCOEFPTR inptr; 
IFAST_MULT_TYPE * quantptr; 
int * wsptr; 
JSAMPROW outptr; 

JSAMPLE *range_limit = IDCT_range_limit (cinf o) ; 

int ctr; . . 

int workspace [DCTSIZE2 3 ; /* buffers data between passes */ 

SHIFT_TEMPS /* for DESCALE */ 

ISHIFT_TEMPS /* for IDESCALE */ 

/* Pass 1: process columns from input, store into work array. */ 
inptr = coef_block; 

quantptr = ( IFAST„MULT_TYPE *) compptr->dct_table; 
wsptr = workspace; 

for (ctr = DCTSIZE; ctr > 0; ctr--) { ^ -u • 

/* Due to quantization, we will usually find that many of the input 

* coefficients are zero, especially the AC terms. We can exploit this 
O * by short-circuiting the IDCT calculation for any column in which all 
;i1 * the AC terms are zero. In that case each output is equal to the 

'S:^, * DC coefficient (with scale factor as needed) , 

* with typical images and quantization tables, half or more of the 
in * column DCT calculations can be simplified this way. 

if (inptr [DCTSIZE*!] == 0 && inptr [DCTSIZE*2 ] == 0 && 

inptr [DCTSIZE*3] == 0 && inptr [DCTSIZE*4] 0 && 
I" inptr [DCTSIZE* 5] == 0 && inptr [DCTSIZE*6] == 0 && 
ni inptr [DCTSIZE*?] == 0) { 

/* AC terms all zero */ ^ 
;\ int dcval = (int) DEQUANTIZE (inptr [DCTSIZE*0] , quantptr [DCTSIZE*0] ) ; 

p wsptr [DCTSIZE* 0] 
wsptr[DCTSIZE*13 
^'"^ wsptr [DCTSIZE*23 
"I wsptr [DCTSIZE*3] 
r'v wsptr [DCTSIZE*4] 
;f wsptr [DCTSIZE*5] 
kJ wsptr [DCTSIZE* 6] 
wsptr [DCTSIZE*73 

inptr ++ ; 
quantptr++ ; 
wsptr ++; 
continue ; 

} 

/* Even part */ 

trt^O = DEQUANTIZE (inptr [DCTSIZE*03 , quantptr [DCTSIZE* 0 ]) ; 
tmpl = DEQUANTIZE ( inptr [DCTSIZE*2 ] , quantptr [DCTSIZE*2 ]) ; 
tmp2 = DEQUANTIZE(inptr[DCTSIZE*4] , quantptr [DCTSIZE*43 ) ; 
tmp3 = DEQUANTIZE(inptr[DCTSIZE*6] , quantptr [DCTSIZE* 6 ]) ; 

tmplO = tmpO + tmp2; 
tmpll = tmpO - tmp2; 

tmpl3 = tmpl + tmp3; 
tmpl2 = MULTIPLY (tmpl 

tmpO = tmplO + tmpl3; 

tmp3 = tmplO - tmpl3; 

tmpl = tmpll + tmpl2; 

tmp2 = tmpll - tmpl2; 

/* Odd part */ 



= dcval; 
= dcval; 
= dcval; 
= dcval; 
= dcval; 
= dcval; 
= dcval; 
= dcval; 

/* advance 



pointers 



to next 



column */ 



/* phase 3 */ 



/* phases 5-3 */ 

tmp3, FIX_1_414213562) - tmpl3 ; /* 2*c4 */ 
/* phase 2 */ 
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tmp4 
tmpS 
tmp6 
tmp7 

zl3 = 
zlO = 
zll = 
zl2 = 

tmp7 = 
tmpll 



DEQUANTIZE{inptrEDCTSIZE*l] , quantptr [DCTSIZE* 1 ] ) 

DEQUANTIZE(inptr [DCTSIZE*3] . quantptr [DCTSIZE*3 3 ) 

DEQUANTIZE(inptr [DCTSIZE*5] , quantptr [DCTSIZE* 5] ) 

DEQUANTIZE(inptr[DCTSIZE*7] , quantptr [DCTSIZE*? ] ) 



tmp6 + trr\p5; 

tmp6 - tmp5; 

tinp4 + tmp7; 

tinp4 - tirip7; 

= zll + zl3; 

MULTIPLY (zll 



/* phase 6 */ 



/* phase 5 */ 
zl3, FIX_1_414213562) ; /* 2*c4 */ 



Z5 = MULTIPLY (zlO + zl2, FIX_1_847759065) ; /* 2*c2 */ 

tmplG = MULTIPLY(zl2, FIX„1_0823 92200 ) - z5; /* 2*(c2-c6) */ 

tmpl2 = MULTIPLY{zlO, - FIX_2_613125930 ) + z5; /* -2* (c2+c6) */ 



tinp6 = trtipl2 - tmp7; 
tmp5 = tmpll - tmp6; 
tmp4 - tmplO + tmp5; 



/* phase 2 */ 



wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSIZE*0] 
[DCTSIZE*?] 
[DCTSIZE*1] 
[DCTSIZE'^6] 
[DCTSIZE*2] 
[DCTSIZE*5] 
[DCTSIZE*4] 
[DCTSIZE*3] 



(int) 


(tmpO 




tmp7 ) ; 


(int) 


(tmpO 




tmp7 ) ; 


(int) 


(tmpl 


+ 


tmp6) ; 


(int) 


(tmpl 




tmp6) ; 


(int) 


(tmp2 


+ 


tmp5) ; 


(int) 


(tmp2 




tmpS ) ; 


(int) 


( tmp3 


+ 


tmp4 ) ; 


(int) 


(tmp3 




tmp4) ; 



inptr++; 

quantptr++; 

wsptr++; 



/* advance pointers to next column */ 



^'Y* Pass 2: process rows from work array, store into output array. */ 
'/* Note that we must descale the results by a factor of 8 == 2**3, * 
* and also undo the PASS1_BITS scaling. */ 



/ 



wsptr = workspace ; 

:;4or (ctr = 0; ctr < DCTSIZE; ctr++) { 

~'J outptr = output„buf [ctr] + output_col; ^ . , t 

/* Rows of zeroes can be exploited in the same way as we did with columns. 

* However, the column calculation has created many nonzero AC terms, so 

* the simplification applies less often (typically 5% to 10% of the time) 

* On machines with very fast multiplication, it's possible that the 
T: * test takes more time than it's worth. In that case this section 

* may be commented out, 

4 */ 



fjfndef NO„ZERO_R0W__TEST 

P if (wsptr[l] 0 && wsptr[2] == 0 && wsptr[3] == 0 && wsptr[4] 
wsptr[5] == 0 &Sc wsptr[6] == 0 && wsptr[7] == 0) { 
/* AC terms all zero */ 

JSAMPLE dcval = range_limit [IDESCALE (wsptr [0] , PASSl_BITS+3 ) 
Sc RA]SfGE_MASK] ; 



0 && 



outptr [ 0 ] 
outptr [ 1 ] 
outptr [ 2 ] 
outptr [3 ] 
outptr [4] 
outptr [5] 
outptr [ 6 ] 
outptr [7 ] 



dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 



wsptr += DCTSIZE; 
continue; 

} 

#endif 

/* Even part 



/* advance pointer to next row */ 



tmplO = ( (DCTELEM) wsptr[0] + 
tmpll = ((DCTELEM) wsptr[0] - 



(DCTELEM) wsptr[4]); 
(DCTELEM) wsptr[4]); 



tmpl3 = ((DCTELEM) wsptr[2] + (DCTELEM) wsptr[6]); 
tmpl2 := MULTIPLY ( (DCTELEM) wsptr[2] - (DCTELEM) wsptr[6], 
- tmpl3 ; 



FIX_1_414213562) 
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tmpO = tmplO + tmpl3 

tmp3 = tmplO - tmpl3 

tmpl = tmpll + tmpl2 

tmp2 = tmpll - tmpl2 

/* Odd part 

zl3 = (DCTELEM) wsptr[5] + (DCTELEM) wsptr [ 3 ] ; 

zlO = (DCTELEM) wsptr[5] - (DCTELEM) wsptr[3]; 

zll =: (DCTELEM) wsptr [1] + (DCTELEM) wsptr [7]; 

zl2 = (DCTELEM) wsptr[l] - (DCTELEM) wsptr[7]; 

tmp7 = zll + zl3; /* phase 5 */ 

tmpll = MULTIPLY(zll - zl3, FIX„1_414213562 ) ; /* 2*c4 */ 

z5 = MULTIPLY(zlO + zl2, FIX_1_847759065) ; /* 2*c2 */ 

tmplO = MULTIPLY (zl2, FIX_1_0 823 92200 ) - z5; /* 2*(c2-c6) */ 

tmpl2 = MULTIPLY(zlO, - FIX_2_613125930 ) + z5; /* -2* (c2+c6) V 

tmpe = tmpl2 - tmp7; /* phase 2 */ 
tmp5 = tmpll - tmp6; 
tmp4 = tmplO + tmp5; 

/* Final output stage: scale down by a factor of 8 and range-limit */ 

outptrEO] = range_limit[IDESCALE(tmpO + tmp7 , PASSl_BITS+3 ) 
& RAIS[GE_MASK] ? 

outptr[71 = range_limit[IDESCALE(tmpO - tmp7, PASSl_BITS+3 ) 
Sc RANGE_MASK] ; 

outptr[l] = range_limit[IDESCALE(tmpl + tmp6 , PASSl_BITS+3 ) 
& RANGE_MASK] ; 

& outptr[6] = range_limit[IDESCALE(tmpl - tmp6, PASSl_BITS+3 ) 
>f1 & RANGE_MASK] ; 

S outptr[2] = range_limit[IDESCALE(tmp2 + tmp5. PASSl_BITS+3 ) 
& RANGE_MASK] ; 

€1 outptr[5] = range_limit[IDESCALE(tit^2 - tn^5 , PASSl_BITS+3) 
ii k RAKGE„MASK] ; 

;? outptr[4] = range„limit[IDESCALE(tmp3 + tmp4, PASSl_BITS+3 ) 
& RANGE jy[ASK] ; 

outptr[3] = range„limit[IDESCALE(tmp3 - tmp4, PASSl_BITS+3 ) 
IZ & RANGE_J1ASK] ; 

s wsptr += DCTSIZE; /* advance pointer to next row */ 

e: 

lindif /* DCT_IFAST_SUPPORTED */ 



* jidctint.c 
* 

* Copyright (C) 1991-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains a slow-but-accurate integer implementation of the_ 

* inverse DCT (Discrete Cosine Transform). In the IJG code, this routine 

* must also perform dequantization of the input coefficients. 
* 

* A 2-D IDCT can be done by 1-D IDCT on each column followed by 1-D IDCT 

* on each row {or vice versa, but it's more convenient to emit a row at 

* a time). Direct algorithms are also available, but they are much more 

* complex and seem not to be any faster when reduced to code. 
* 

* This implementation is based on an algorithm described in 

* C Loeffler, A. Ligtenberg and G. Moschytz, "Practical Fast 1-D DCT 

* Algorithms with 11 Multiplications", Proc. Int'l. Conf . on Acoustics, 

* Speech, and Signal Processing 1989 (ICASSP '89), pp. 988-991. 

* The primary algorithm described there uses 11 multiplies and 29 adds. 

* We use their alternate method with 12 multiplies and 32 adds. 

* The advantage of this method is that no data path contains more than one 

* multiplication; this allows a very simple and accurate implementation m 

* scaled fixed-point arithmetic, with a minimal number of shifts, 
V 

tdefine JPEG_INTERNALS 
# include "j include. h" 

#include "jpeglib.h" _ 

#include "jdct.h" /* Private declarations for DCT subsystem */ 

Atdef DCT_ISLOW_SUPPORTED 

:*-iThis module is specialized to the case DCTSIZE = 8. 

#4€ DCTSIZE i= 8 ^ ^ ^ . . 

.rporry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 

fteindif 

The poop on this scaling stuff is as follows: 

r*ji 

S Each 1-D IDCT step produces outputs which are a factor of sqrt{N) 
larger than the true IDCT outputs. The final outputs are therefore 
a factor of N larger than desired; since N=8 this can be cured by 
a simple right shift at the end of the algorithm. The advantage of 
W this arrangement is that we save two multiplications per 1-D IDCT, 
^ because the yO and y4 inputs need not be divided by sqrt{N) . 
* 

* We have to do addition and subtraction of the integer inputs, which 

* is no problem, and multiplication by fractional constants, which is 

* a problem to do in integer arithmetic. We multiply all the constants 

* by CONST_SCALE and convert them to integer constants {thus retaining 

* CONST_BITS bits of precision in the constants) . After doing a 

* multiplication we have to divide the product by CONST_SCALE, with proper 

* rounding, to produce the correct output. This division can be done 

* cheaply as a right shift of CONST„BITS bits. We postpone shifting 

* as long as possible so that partial sums can be added together with 

* full fractional precision. 

* The outputs of the first pass are scaled up by PASS1_BITS bits so that 

* they are represented to better- than-integral precision. These outputs 

* require BITS_IN_JSAMPLE + PASS1„BITS + 3 bits; this fits in a 16-bit word 

* with the recommended scaling. (To scale up 12-bit sample data further, an 

* intermediate IWT32 array would be needed.) 
* 

* To avoid overflow of the 32-bit intermediate results in pass 2, we must 

* have BITS_IN_JSAMPLE + CONST_BITS + PASS1_BITS <= 26.^ Error analysis 

* shows that the values given below are the most effective. 
*/ 



#if BITS_IN_J SAMPLE ==8 
#define CONST_BITS 13 
#define PASS1_BITS 2 
#else 
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tdefine CONST_BITS 13 

#define PASS1_BITS 1 /* lose a little precision to avoid overflow */ 

#endif 

/* Some C compilers fail to reduce "FIX (constant) " at compile time, thus 

* causing a lot of useless floating-point operations at run time. 

* To get around this we use the following pre-calculated constants. 

* If you change CONST_BITS you may want to add appropriate values. 

* (With a reasonable C compiler, you can just rely on the FIX() macro...) 
*/ 

#if CONST_BITS ==13 



#def ine 


FIX_0_ 


.298631336 


{ {INT32) 


2446) 


/* 


FIX(0 


.298631336) 


*/ 


#def ine 


FIX_0_ 


390180644 


{ (INT32) 


3196) 


/* 


FIX{0 


.390180644) 


*/ 


#def ine 


FIX_0_ 


541196100 


( (INT32) 


4433) 


/* 


FIX{0 


.541196100) 


*/ 


#def ine 


FIX_0_ 


765366865 


( {INT32) 


6270) 


/* 


FIX{0 


.765366865) 


*/ 


#def ine 


FIX_0_ 


„899976223 


( (INT32) 


7373) 


/* 


FIX(0 


.899976223) 


*/ 


#def ine 


FIX_1 


175875602 


( (INT32) 


9633) 


/* 


FIXd 


.175875602) 


*/ 


#def ine 


FIX_1_ 


501321110 


( (INT32) 


12299) 


/* 


FIXd 


.501321110) 


*/ 


#def ine 


FIX_1_ 


847759065 


( {INT32) 


15137) 


/* 


FIXd 


.847759065) 


*/ 


#def ine 


FIX_1_ 


.961570560 


( (INT32) 


16069) 




FIXd 


.961570560) 


*/ 


tdefine 


FIX„2_ 


053119869 


( (INT32) 


16819) 


/* 


FIX (2 


.053119869) 


*/ 


#def ine 


FIX„2_ 


.562915447 


( {INT32) 


20995) 


/* 


FIX(2 


.562915447) 


*/ 


#def ine 


FIX_3_ 


.072711026 


( CraT32) 


25172) 


/* 


FIX (3 


.072711026) 


*/ 


#else 




















#def ine 


FIX_0„ 


.298631336 


FIX(0. 




5631336) 










#def ine 


FIX„0_ 


390180644 


FIX{0, 


390180644) 










#def ine 


FIX_0_ 


541196100 


FIX{0- 


.541196100) 










#def ine 


FIX 0 


765366865 


FIX(0. 


.765366865) 










#def ine 


FIX_0_ 


899976223 


FIX(0, 


.899976223) 










#def ine 


FIX_1 


175875602 


FIXCl. 


.175875602) 










Mfefine 


FIX_1_ 


501321110 


FIX{1. 


.501321110) 










#Gfefine 


FIX_1_ 


847759065 


FIX(1, 


.847759065) 










#lfef ine 


FIX_1_ 


961570560 


FIX(1. 


.961570560) 










^fefine 


FIX_2_ 


053119869 


FIX (2. 


.053119869) 










ttdief ine 


FIX_2_ 


.562915447 


FIX(2, 


.562915447) 










#Af ine 


FIX„3_ 


072711026 


FIX {3. 


.072711026) 











i^dif 



Ail Multiply an INT32 variable by an I1SIT32 constant to yield an INT32 result. 

ffji For 8-bit samples with the recommended scaling, all the variable 
and constant values involved are no more than 16 bits wide, so a 
16xl6->32 bit multiply can be used instead of a full 32x32 multiply. 
For 12 -bit samples, a full 3 2 -bit multiplication will be needed. 

Hf BITS_IN_JSAMPLE == 8 

idef ine MULTIPLY (var , const) MULTIPLY16C16 (var, const) 
tflse 

iiSefine MULTIPLY(var, const) ((var) * (const)) 
f-endif 



/* Dequantize a coefficient by multiplying it by the multiplier- table 

* entry; produce an int result. In this module, both inputs and result 

* are 16 bits or less, so either int or short multiply will work. 
*/ 

#define DEQUANTIZE (coef, guantval) ( { (ISLOW_MULT„TYPE) (coef ) ) * (quantval)) 



/* 

* Perform dequantization and inverse DOT on one block of coefficients. 
*/ 

GLOBAL (void) 

jpeg_idct__islow ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 

JSAMPARRAY output_buf. JDIMENSION output_Col) 

{ 

INT32 tmpO, tmpl , tmp2 , tmp3 ; 
INT32 tmplO, tnpll, tmpl2, tmpl3; 
INT32 21, z2r z3, z4, 25; 
JCOEFPTR inptr; 
ISLOW_MULT„TYPE * quantptr; 
int * wsptr; 
JSAMPROW outptr; 

CrSAMPLE *range_lxmit = IDCT_range_limit (cinf o) ; 
int ctr; 
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int workspace [DCTSIZE2 ] ; /* buffers data between passes */ 
SHIFT_TEMPS 

/* Pass 1: process coliimns from input, store into work array. */ 

/* Note results are scaled up by sqrt(8) compared to a true IDCT; */ 

/* furthermore, we scale the results by 2**PASS1_BITS . */ 

inptr = coef_block; 

quantptr = {ISLOW„MULT_TyPE *) compptr->dct_table; 
wsptr = workspace ; 

for (ctr = DCTSIZE; ctr > 0; ctr--) { 

/* Due to quantization, we will usually find that many of the input 

* coefficients are zero, especially the AC terms. We can exploit this 

* by short-circuiting the IDCT calculation for any column in which all 

* the AC terms are zero. In that case each output is equal to the 

* DC coefficient (with scale factor as needed) . 

* With typical images and quantization tables, half or more of the 

* column DCT calculations can be simplified this way. 
V 

if {inptr [DCTSIZE* 1] =- 0 && inptr [DCTSIZE* 2] == 0 && 
inptr [DCTSIZE* 3] == 0 && inptr [DCTSIZE*4] == 0 
inptr [DCTSIZE* 5] == 0 && inptr [DCTSIZE* 6] == 0 && 
inptr [DCTSIZE* 7] == 0) { 
/* AC terms all zero */ 

int dcval = DEQUANTIZE (inptr [DCTSIZE*0] , quantptr [DCTSIZE*0] ) « PASS1_BITS; 



wsptr [DCTSIZE*0] = dcval 

wsptr[DCTSlZE*l] = dcval 

wsptr [DCTSIZE* 2] = dcval 

wsptr [DCTSIZE* 3] = dcval 

wsptr [DCTSIZE*4] = dcval 

wsptr [DCTSIZE* 5] = dcval 

wsptr [DCTSIZE* 6] = dcval 

wsptr [DCTSIZE* 7] = dcval 

inptr++; /* adv. 
quantptr++ ; 
wsptr++; 
cont inue ; 



le pointers to next column */ 



/* Even part: reverse the even part of the forward DCT. */ 

/* The rotator is sqrt (2 } *c (-6) . */ 

z2 = DEQUANTIZE { inptr [DCTSIZE*2 ] , quantptr [DCTSIZE*2] } ; 

z3 = DEQUANTIZE(inptr[DCTSI2E*6] , quantptr EDCTSIZE*6] ) ; 

zl ^ MULTIPLY (22 + z3, FIX_0_541196100) ; 
tmp2 = zl + MULTIPLY{z3, - FIX_1_847759065 ) ; 
tmp3 = zl + MULTIPLY(z2, FIX_0_765366865) ; 

z2 = DEQUANTIZE ( inptr [DCTSI2E*0 ] , quantptr [DCTSIZE* 0] ) ; 
z3 = DEQUANTIZE { inptr [DCTSI2E*4 ] , quantptr [DCTS I ZE*4] ) ; 



tmpO = {z2 + z3) « CONST_BITS; 
tmpl = (z2 - z3) « CONST„BITS; 



tmplO = tmpO + tmp3 ; 
tmpl3 = tmpO - tmp3; 
tmpll - tmpl + tmp2; 
tnipl2 = tmpl - tmp2; 

/* Odd part per figure 8; the matrix is unitary and hence its 
* transpose is its inverse. i0..i3 are y7,y5,y3,yl respectively. 
V 

tmpO = DEQUANTIZE (inptr [DCTSIZE*7] , quantptr [DCTSIZE*? ]) ; 
tmpl = DEQUANTIZE ( inptr [DCTSI2E*5] , quantptr [DCTSIZE* 53 ) ; 
tmp2 = DEQUANTIZE ( inptr [DCTSIZE*3] , quantptr [DCTSIZE*3 3 ) ; 
tmp3 = DEQUANTIZE (inptr [DCTSIZE*!] , quantptr [DCTSIZE* 1] ) ? 

zl = tmpO + tmpS; 
z2 = tmpl + tmp2 ; 
z3 = tmpO + trap 2; 
z4 = tmpl + tmp3 ; 

z5 = MULTIPLY (23 + z4, FIX_1_175875602} ; /* sqrt (2) * c3 */ 

tmpO = MULTIPLY (tmpO, FIX_0_298631336) ; /* sqrt{2) * (-Cl+c3+c5-c7 ) */ 
tmpl = 2MULTI PLY (tmpl, FIX_2_053119869) ; /* sqrt{2) * ( cl+c3-c5+c7) */ 
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tmp2 = MULTIPLY (tmp2, FIX_3_072711026) ; /* sqrt(2) * ( cl+c3+c5-c7) 



titipS = MULTIPLY (tmp3, FIX_1„501321110) ; /* sqrt{2) 
zl = MULTIPLY(zl, - FIX_0_899976223) ? /* sqrt{2) 
FIX„2_562915447) ; /* sqrt(2) 
FIX„1_961570560} ; /* sqrt(2) 
FIX_0_390180644) ; /* sqrt(2) 



z2 = MULTIPLY {z2, 
z3 = MULTIPLY (z3, 
z4 = MULTIPLY (z4, 



* ( Cl+c3-c5-c7) 
(c7-c3) */ 
{-cl-c3) */ 
(-c3-c5) */ 
(c5-c3) */ 



z3 += z5; 
z4 += z5; 

tmpO += zl + z3; 

tmpl += z2 + z4; 

tinp2 += z2 + z3; 

tinp3 += zl + z4; 



/* Final output stage: inputs are tmplO . , tmpl3 , tmp0..tmp3 



wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 
wsptr 



[DCTSIZE*0] 



[DCTSIZE'^ 
[DCTSIZE^ 
[DCTSIZE* 
[DCTSIZE^ 
[DCTSIZE^ 
[DCTSIZE*3 ] 
[DCTSIZE*4] 



^7] 
^1] 
^6] 
^2] 



(int) DESCALE ( tmpl 0 + tmp3, C0NST_BITS-PASS1 

(int) DESCALE (tmplO - tmp3, C0NST_BITS-PASS1 

(int) DESCALE (tmpll + tmp2, C0NST_BITS-PASS1. 

(int) DESCALE(tmpll - tmp2, C0NST__BITS-PASS1 

(int) DESCALE (tmpl2 + tmpl, C0NST_BITS-PASS1 

(int) DESCALE {tmpl2 - tmpl, CONST_B ITS -PASS 1 

(int) DESCALE (tmpl3 + tmpO, C0NST„BITS-PASS1 

(int) DESCALE (tmpl3 - tmpO, C0NST_BITS-PASS1 

/* advance pointers to next column */ 



BITS ) 
BITS) 
BITS) 
BITS) 
BITS) 
BITS) 
BITS) 
_BITS) 



inptr++; 
quantptr++ ; 
wsptr++; 

} 

y* Pass 2: process rows from work array, store into output array. */ 
C|* Note that we must descale the results by a factor of 8 == 2**3, */ 
jy* and also undo the PASS1_BITS scaling. */ 

^^^^sptr = workspace; 

Jlor (ctr = 0; ctr < DCTSIZE; ctr++) { 
Z\ outptr = output:_buf [ctr] + output_col; 

'^^ /* Rows of zeroes can be exploited in the same way as we did with columns. 

* However, the column calculation has created many nonzero AC terms, so 
''^ * the simplification applies less often (typically 5% to 10% of the time) 

* On machines with very fast multiplication, it's possible that the 
nj * test takes more time than it's worth. In that case this section 

* may be commented out . 

L */ 

iQltendef NO_ZERO_ROW_TEST ^ 
'^^ if {wsptr[l] 0 &Sc wsptr[2] == 0 && wsptr[3] == 0 && wsptr[4] == 0 && 
wsptr [5] 0 &Sc wsptr [6] == 0 && wsptr [7] ==0) { 

"^=1 /* AC terms all zero */ 
f =1 JSAMPLE dcval 



zero */ 

range_limit[ (int) DESCALE { (INT3 2 ) wsptr [0], PASSl_BITS+3 ) 



outptr [ 0 ] 
outptr [1] 
outptr [2] 
outptr [3] 
outptr [4] 
outptr [5 ] 
outptr [6] 
outptr [7 ] 



& RANGE_MASK] ; 

dcval; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcval ; 
dcva 1 ; 



wsptr += DCTSIZE; 
continue; 



/* advance pointer to next row */ 



} 

#endif 



/* Even part: reverse the even part of the forward DCT. */ 
/* The rotator is sqrt (2 ) *c ( -6 ) . */ 

z2 = (INT32) wsptr [2] ; 
z3 = (INT32) wsptr [6] ; 

zl = MULTIPLY(z2 + z3, FIX_0_541196100) ; 

tmp2 = zl + MULTIPLY(z3, - FIX_1_847759065) ; 

tmp3 = 2l + MULTI?LY(z2, FIX_0„7 6536 6865 ) ; 

tmpO = ((INT32) wsptr[0] + (INT32) wsptr[43) « CONST_BITS; 

tmpl = ((INT32) wsptr[03 - (INT32) wsptr[4]) « CONST_BITS; 
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tmplO ~ tmpO + trap3; 
tmplS = tmpO - trap3; 
tmpll = trapl + trap2 ; 
trap 12 = tmpl - tmp2; 

/* Odd part per figure 8; the matrix is unitary and hence its 
* transpose is its inverse. i0..i3 are y7,y5,y3,yl respectively. 
*/ 

tmpO = (INT32) wsptr[73; 
tmpl = (INT32) wsptr[5]; 
tmp2 = (INT32) wsptr[3]; 
tmp3 = {INT32) wsptr[13; 

zl = tmpO + tmp3 

z2 = tmpl + tmp2 

z3 = tmpO + tmp2 

z4 = tmpl + tmp3 

z5 = MULTIPLY (z3 



z4, FIX_1_175875602) ; /* sqrt(2) * c3 */ 



tmpO 
tmpl 
tmp2 
tmp3 
zl = 
z2 = 
z3 = 
z4 = 

z3 += 
z4 += 



= MULTIPLY (tmpO, FIX 
= MULTIPLY (tmpl, FIX. 
= MULTIPLY {tinp2, FIX. 
= MULTIPLY (tmp3. FIX 
MULTIPLY (zl. - FIX_0. 



MULTIPLY {z2 , 
MULTIPLY (z3 , 
MULTIPLY (z4, 

= z5? 
z5; 



FIX_2. 
FIX_1 
FIX_0. 



0_298631336) ; /* sqrt{2) 
2_053119869) ; /* sqrt{2) 
3_072711026) ; /* sqrt(2) 
1_501321110) ; /* sqrt(2) 
899976223); /* sqrt(2) * 
562915447) ; /* sqrt(2) * 
.961570560) ; /* sqrt{2) * 
390180644) ; /* sqrt{2} * 



* (-cl+c3+c5-c7) 

* ( cl+c3-c5+c7) 

* ( cl+c3+c5-c7) 

* ( cl+c3-c5-c7) 
{c7-c3) */ 
{-cl-c3) */ 
(-c3-c5) */ 
(c5-c3) */ 



*/ 
*/ 
V 
*/ 



tmpO += zl + z3; 
tmpl += z2 + z4; 
tmp2 += z2 + z3; 
tmp3 += zl + z4; 

/* Final output stage: inputs are tmplO . . tmpl3 , tmp0..tmp3 */ 

outptr[0] = range_limit [ (int) DESCALE (tmplO + tmp3, 
C0NST„BITS+PASSl„BITS+3 ) 
& RAKGE_MASK] ; 
outptr[7] = range_limit[ (int) DESCALE ( tmplO - tmp3 , 
C0NST„BITS+PASSl_BITS+3 ) 
& RANGE_MASK3 7 
outptr[ll = range_limit [ (int) DESCALE ( tmpll + tmp2 , 
C0NST_BITS+PASSl_BITS+3 ) 
5c RANGE_MASK] ; 
outptr[6] = range_limit[ (int) DESCALE ( tmpll - tmp2 , 
C0NST_BITS+PASSl_BITS+3 ) 
Sc RANGE_MASK] ; 
outptr[2] = range_limit [ (int) DESCALE (tmpl2 + tmpl, 
C0NST„BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 
outptr[5] ^ range„limit[ (int) DESCALE {tmpl2 - tmpl, 
C0NST„BITS + PASSl__BITS+3 ) 
Sc RANGE_MASK] ; 
outptrr3] = range„limit[ (int) DESCALE (tmpl3 + tmpO, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 
outptr[4] = range_limit[ (int) DESCALE (tmpl3 - tmpO, 
C0NST_BITS+PASSl_BITS+3 ) 
& RANGE_MASK] ; 



WSptr += DCTSIZE; 



/* advance pointer to next row */ 



} 

#endif /* DCT_ISLOW„SUP PORTED */ 
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* jidctred.c 
* 

* Copyright (C) 1994-1998, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software, 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains inverse-DCT routines that produce reduced-size output: 

* either 4x4, 2x2, or 1x1 pixels from an 8x8 DCT block. 
* 

* The implementation is based on the Loeffler, Ligtenberg and Moschytz (LL&M) 

* algorithm used in jidctint.c. We simply replace each 8-to-8 1-D IDCT step 

* with an 8-to-4 step that produces the four averages of two adjacent outputs 

* (or an 8-to-2 step producing two averages of four outputs, for 2x2 output). 

* These steps were derived by computing the corresponding values at the end 

* of the normal LL&M code, then simplifying as much as possible. 
* 

* 1x1 is trivial: just take the DC coefficient divided by 8. 

* 

* See jidctint.c for additional comments. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 

finclude "jdct.h" /* Private declarations for DCT subsystem */ 

#ifdef IDCT_SCALING_SUPPORTED 



* This module is specialized to the case DCTSIZE = 8. 
fflfe DCTSIZE 8 

y^orry, this code only copes with 8x8 DCTs . /* deliberate syntax err */ 
^fhdif 



AS Scaling is the same as in jidctint.c. */ 

#1:^ BITS_IN_JSAMPLE 
itfefine CONST_BITS 
tdefine PASS1_BITS 
lelse 

Mtefine CONST_BITS 
ffefine PASSUITS 
l^dif 

/^l Some C compilers fail to reduce "FIX (constant) ^ at compile time, thus 
^■4^ causing a lot of useless floating-point operations at run time. 
M To get around this we use the following pre-calculated constants. 
El If you change CONST_BITS you may want to add appropriate values. 

"* (With a reasonable C compiler, you can just rely on the FIX{) macro...) 

*/ 



#if CONST_BITS == 13 



#def ine 


FIX_ 


0 


211164243 


( (INT32) 


1730) 


/* 


FIX(0. 


.211164243) 


*/ 


#def ine 


FIX 


0 


509795579 


( (INT32) 


4176) 


/* 


FIX(0. 


.509795579) 


*/ 


#def ine 


FIX_ 


0. 


,601344887 


( {INT32} 


4926) 


/* 


FIX(0 


.601344887) 


*/ 


#def ine 


FIX_ 


o„ 


720959822 


{ (INT32) 


5906) 


/* 


FIX(0 


.720959822) 


*/ 


#def ine 


FIX_ 


0 


765366865 


( (INT32) 


6270) 


/* 


FIX(0 


.765366865) 


*/ 


#def ine 


FIX_ 


0 


_850430095 


( (INT32) 


6967) 


/* 


FIX(0 


.850430095) 


*/ 


#def ine 


FIX_ 


0 


899976223 


( {INT32) 


7373) 


/* 


FIX(0 


.899976223) 


*/ 


# define 


FIX. 


1 


061594337 


( (INT32) 


8697) 


/* 


FIX(1 


.061594337) 


*/ 


# define 


FIX. 


1 


.272758580 


( (INT32) 


10426) 


/* 


FIXd 


.272758580) 


*/ 


#def ine 


FIX. 


1 


451774981 


{ (INT32) 


11893) 


/* 


FIX(1 


.451774981) 


*/ 


#def ine 


FIX_ 


1 


847759065 


( (INT32) 


15137) 


/* 


FIX(1 


.847759065) 


*/ 


#def ine 


FIX. 


2 


172734803 


( (INT32) 


17799) 


/* 


FIX (2 


.172734803) 


*/ 


# define 


FIX. 


2 


562915447 


( (INT32) 


20995) 


/* 


FIX (2 


.562915447) 


V 


#def ine 


FIX. 


.3. 


.624509785 


{ (INT32) 


29692) 


/* 


FIX (3 


.624509785) 


V 


#else 
# define 


FIX. 


0 


211164243 


FIX(0.211164243) 










#def ine 


FIX. 


0 


509795579 


FIX(0.509795579) 










# define 


FIX_ 


0 


.601344887 


FIX(0. 601344887) 










#def ine 


FIX, 


0 


.720959822 


FIX(0. 720959822) 










#def ine 


FIX_ 


0 


„765366865 


FIX(0. 765366865) 










#def ine 


FIX_ 


0 


850430095 


FIX(0. 850430095) 










#def ine 


FIX. 


.0. 


899976223 


FIX(0. 899976223) 










#def ine 


FIX. 


.1 


061594337 


FIX(1. 061594337) 











13 

2 

13 

1 /* lose a little precision to avoid overflow */ 



1 



#define FIX_1 
#define FIX_1. 
#define FIX_1 
#define FIX_2. 
#define FIX_2. 
#define FIX„3. 
#endif 



_272758580 
_451774981 
_847759065 
_172734803 
562915447 
_624509785 



FIX(1. 272758580) 
FIX{1. 451774981) 
FIX(1. 847759065) 
FIX(2. 172734803) 
FIX(2. 562915447) 
FIX(3. 624509785) 



/* Multiply an INT32 variable by an INT32 constant to yield an INT32 result. 

* For 8-bit samples with the recommended scaling, all the variable 

* and constant values involved are no more than 16 bits wide, so a 

* 16xl6->32 bit multiply can be used instead of a full 32x32 multiply. 

* For 12-bit samples, a full 32-bit multiplication will be needed. 
*/ 



#if BITS_IN_JSAMPLE == 8 
#define MULTIPLY (var, const) 
#else 

#define MULTIPLY (var, const) 
#endif 



MULTIPLY16C16 (var, const) 
( (var) * (const) ) 



/* Dequantize a coefficient by multiplying it by the multiplier-table 

* entry; produce an int result. In this module, both inputs and result 

* are 16 bits or less, so either int or short multiply will work, 
*/ 

#define DEQUANTIZE {coef, quantval) ( ( (ISLOW.MULT.TYPE) (coef ) ) * (quantval) ) 



Perform dequantization and inverse DCT on one block of coefficients, 
^Jproducing a reduced-size 4x4 output block. 

if 

cMlBAL(void) . ^ * 

jp)^g„idct_4x4 ( j_decompress_ptr cinfo, :]peg_component_inf o * compptr, 

..r JCOEFPTR coef__block, 

tfS JSAMPARRAY output_buf , JDIMENSION output_COl) 

^I1:NT32 tmpO, tmp2, tmplO, tmpl2; 
^-iNT32 zl, z2, z3. z4; 
■Hi JCOEFPTR inptr; 
L,;JSLOW_MULT_TYPE * quantptr; 
!llnt * wsptr; 
1.:1jSAMPR0W outptr; 

nJISAMPLE *range_limit = IDCT_range_limit (cinfo) ; 
' ^'int ctr; 

"tnt workspace [DCTSIZE*4] ; /* buffers data between passes */ 
CpHIFTJTEMPS 

Pass 1: process columns from input, store into work array. */ 
inptr - coe f_bl DC k; 

quantptr = (ISLOW„MULT„TYPE *) compptr->dct_table; 
wsptr = workspace; 

for (ctr = DCTSIZE; ctr > 0; inptr++, quantptr++, wsptr++, ctr — ) I 

/* Don't bother to process column 4, because second pass won't use it */ 
if (ctr == DCT3IZE-4) 
continue; 

if (inptr[DCTSIZE*l] == 0 && inptr [DCTSIZE* 2 ] == 0 && 

inptr [DCTSIZE^ 3] == 0 && inptr [DCTSIZE*5] 0 && 

inptr [DCTSIZE^ 6] == 0 && inptr [DCTSIZE*7] == 0) { 

/* AC terms all zero; we need not examine term 4 for 4x4 output */ 

int dcval = DEQUANTIZE (inptr [DCTSIZE*0 ] , quantptr [DCTSIZE*0 ] ) « PASS1_BITS; 



wsptr [DCTSIZE* 0] = dcval; 

wsptr [DCTSIZE^l] = dcval? 

wsptr [DCTSIZE* 2] = dcval; 

wsptr [DCTSIZE*3] = dcval; 

continue; 

} 



/* Even part * / 

tmpO = DEQUANTIZE (inptr [DCTSIZE*0] , quantptr [DCTSIZE*0] ) ; 
tmpO «= (C0NST_BITS+1) ; 
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z2 = DEQUANTIZE(inptr[DCTSI2E*2] , quantptr [DCTSIZE*2 ] ) ; 
z3 = DEQUANTIZE(inptr[DCTSIZE*6] , quantptr [DCTSIZE*6 ] ) ; 

titp2 = MULTIPLY(z2, FIX_1_847759065) + MULTIPLY(z3, - FIX_0_765366865) ; 



tmplO = tmpO + tmp2; 
tinpl2 = tmpO - tmp2; 

/* Odd part */ 



zl = DEQUANTIZE{inptr[DCTSIZE*7] , quantptr [DOTS I ZE*7 ]) ; 

z2 = DEQUANTIZE(inptr[DCTSI2E*5 3 , quantptr I DCTSIZE*5] ) ; 

z3 = DEQUANTIZE (inptr[DCTSIZE*3] ; quantptr [DCTSIZE*3 ]) ; 

z4 = DEQUANTIZE (inptr[DCTSI2E*l] , quantptr [DCTSIZE*!] ) ; 

tmpO = MULTIPLy(zl, - FIX_0_211164243) /* sqrt(2) * {c3-cl) */ 
+ MULTIPLY{z2, FIX_1_4517749 81 ) /* sqrt(2) * (c3+c7) */ 
+ MULTrPLy{z3. - FIX_2_172734803) /* sqrt(2) * (-cl-c5) */ 
+ MULTIPLY (z4, FIX_1„061594337) ; /* sqrt(2) * {c5+c7) */ 



tinp2 = MULTIPLY{zl, - FIX_0_509795579 ) /* sqrt(2) * (c7-c5} */ 
+ MULTIPLY(z2, - FIX_0„601344887 ) /* sqrt(2) * {c5-cl) */ 
+ MULTIPLY(z3, FIX_0_899976223 ) /* sqrt(2) * (c3-c7) */ 
+ MULTIPLY (z4, FIX_2_562 915447 ) ; /* sqrt(2) * {cl+c3) */ 



/* Final output stage */ 



wsptr [DCTSIZE* 0] 
wsptr [DCTSIZE* 3 ; 
wsptr[DCTSIZEn] 
wsptr [DCTSI2E*2J 

yj* Pass 2: process 4 rows from work array, store into output array, */ 

■'■fl^sptr = workspace; 

iJfor (ctr = 0; ctr < 4; ctr+-i-) { 

%,J outptr = output_buf [ctr] + output_col; 

/* It's not clear whether a zero row test is worthwhile here ... */ 

yfndef N0_ZERO_R0:v_TEST 

if {wsptr[l] ^= 0 Sc& wsptr[2] == 0 && wsptr[3] == 0 && 

wsptr[5] == 0 ScSc wsptr[63 == 0 && wsptr[7] == 0) { 
s /* AC terms all zero */ 

=: JSAMPLE dcval = range_limit [ (int) DESCALE { (INT3 2) wsptr[Oj, PASSl_BITS+3 ) 
E:- ^ RANGE_MASK] ; 

fll outptr [0] = dcval; 

IjZ outptr [1] = dcval; 

"'^i! outptr [2] = dcval; 

fj: outptr [3] = dcval; 



h^S wsptr += DCTSIZE; /* advance pointer to next row */ 

continue ; 

} 

#endif 



= (int) DESCALE (tmplO + 

= (int) DESCALE (tmp 10 - 

= (int) DESCALE {tmpl2 + 

= (int) DESCALE (trapl2 - 



tmp2, C0NST_BITS-PASS1_BITS+1) 

tmp2, C0NST_BITS-PASS1„BITS+1) 

txnpO, C0NST_BITS-PASS1_BITS+1) 

tmpO. C0NST_BITS-PASS1„BITS+1) 



/* Even part * / 



tmpO = ((INT32) wsptr[0]) « (C0NST_BITS+1) ; 

tmp2 = MULTIPLY ( (INT3 2) wsptr[2], FIX_1_847759065 ) 
+ MULTIPLY ( (INT32) wsptr[61, - FIX_0_765366865) ; 



tmplO = tmpO + tmp2 ; 

tinpl2 = tmpO - tmp2; 

/* Odd part ^/ 

zl = {INT32) v;-ptr[7] ; 

z2 = (INT32) wsptr [5] ; 

z3 = (INT32) wsptr [3]; 

z4 = {INT32) wsptr [1] ; 



tmpO = MULTIPLY(zl, - FIX_0„211164243) /* sqrt(2) * {c3-cl) */ 
+ MULTIPLY(z2, FIX_1„4517749 81) /* sqrt(2) * (c3+c7) */ 
+ MULTIPLY(z3, - FIX„2_172734803 ) /* sqrt(2) * (-cl-c5) */ 
+ MULTIPLY{z4. FIX_1„061594337 ) ; /* sqrt(2) * (c5+c7) */ 

tinp2 = MULTIPIY(2l, - FIX_0_509795579) /* sqrt(2) * (c7-c5) */ 
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+ MULTIPLY (z2, - FIX_0_601344887 ) /* sqrt{2} * (c5-cl) */ 
+ MULTIPLY(z3 , FIX_0_899 976223 } /* sqrt(2) * {c3-c7) */ 
+ MULTIPLY (z4, FIX_2_562915447) ; /* sqrt(2) * (cl+c3) */ 

/* Final output stage */ 

outptr[0] = range„liinit [ (int) DESCALE (tmp 10 + trrip2, 
C0NST_BITS+PASSl__BITS+3 + l) 
& RANGE_MASK] ; 
outptrE3] = range_limitnint) DESCALE { tmplO - tmp2 , 
C0NST_BITS+PASSl_BITS+3+l) 
Sc RANGE_MASK3 ; 
outptr[l] = range__limit [ (int) DESCALE {tmpl2 + tmpO , 
C0NST_BITS+PASSl_BITS+3+l) 
& RANGE_MASK] ; 
outptr[2] = range_limit [ <int) DESCALE ( trapl2 - tmpO, 
C0NST_BITS+PASSl_BITS+3+l) 
Sc RANGE_MASK] ; 

wsptr += DCTSIZE; /* advance pointer to next row */ 

} 

} 



/* 

* Perforra dequantization and inverse DCT on one block of coefficients, 

* producing a reduced-size 2x2 output block. 
*/ 

GLOBAL (void) 

jpeg— idct_2x2 ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, 
y JSAMPAFRAY output_buf, JDIMENSION output_col) 

fffNT32 tmpO, tmplO, zl; 
"^'.frcOEFPTR inptr; 
tfiSLOW_J^ULTLTYPE ^ quantptr; 
\.|nt * wsptr; 
,,aJSAMPROW outptr; 

''^SAMPLE *range_limit = IDCT_range_limit (cinf o) ; 
iijLnt ctr; 

rllnt workspace [DCTSIZE*23 ; /* buffers data between passes */ 
^%HIFT_TEMPS 

L.=./* Pass 1: process columns from input, store into work array. */ 
L:linptr = coef_block; 

njquantptr = {ISLOW_MULT_TYPE *) compptr->dct„table; 
'i ' !wsp tr = wor ks p ace, 

"^^If or (ctr = DCTSIZE; ctr > 0; inptr++, quantptr++, wsptr++, ctr—) { 
n /* Don't bother to process columns 2,4,6 */ 

2^ if (ctr == DCTSIZE-2 |1 ctr == DCTSIZE-4 || ctr =:= DCTSI2E-6) 
continue ; 

if (inptr [DCTSIZE*!] == 0 && inptr [DCTSI2E*3 ] == 0 && 

inptr [DCTSIZE^ 5] == 0 && inptr [DCTSI2E*7] == 0) { 

/* AC terms all zero; we need not examine terms 2,4,6 for 2x2 output */ 
int dcval = DEQUANTIZE (inptr [DCTSIZE*0] , quantptr [DCTSIZE*0] ) « PASSIJ 

wsptr [DCTSIZE* 0] = dcval; 
wsptr [DCTSIZE*!] = dcval; 

continue; 

} 

/* Even part * / 

Zl = DEQUANTIZ3 ( inptr [DCTSIZE*0] , quantptr [DCTSIZE*0] ) ; 
tmplO = zl « ;C0NST_BITS+2) ; 

/* Odd part */ 

zl = DEQUANTIZE { inptr [DCTSIZE*73 / quantptr [DCTSIZE*7 ]) ; 

tmpO = MULTIPLYfzl, - FIX_0_720959822) ; /* sqrt(2) * (c7-c5+c3-cl) */ 

zl = DEQUANTIZE (inptr [DCTSIZE*5] , quantptr [DCTSIZE* 5]) ; 

tmpO += MULTIPLY (2l, FIX„0_850430095) ; /* sqrt(2) * (-cl+c3+c5+c7) */ 

zl = DEQUANTIZE f inptr [DCTSIZE*3 ] , quantptr [DCTS I ZE*3 ]) ; 

tmpO += MULTirZY(2!, - FIX_1_272758580) ; /* sqrt(2) * (-cl+c3-c5-c7 ) */ 

zl = DEQUANTIZE: inptr [DCTSIZE*!], quantptr [DCTSIZE*!] ) ; 

tmpO += MULTIPLY {z!, FIX_3_624509785 ) ; /* sqrt(2) * (cl+c3+c5+c7) */ 
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/* Final output stage */ 



wsptr[DCTSI2E*0] = (int) DESCALE (tmp 10 + tmpO, C0NST_BITS-PASSLBITS+2 ) ; 
wsptrEDCTSIZE^l J = (int) DESCALE (tmplO - tmpO, C0KST_BITS-PASSl_BITS+2 ) ; 

} 

/* Pass 2: process 2 rows from work array, store into output array. */ 

wsptr = workspace; 

for (ctr = 0; ctr < 2; ctr++) { 

outptr = output_buf [ctr] + output_col; 

/* It's not clear whether a zero row test is worthwhile here ... */ 

#ifndef N0_ZERO_ROW„TEST 

if (wsptr[l] ^= 0 Sc& wsptr[3] == 0 && wsptr[5] == 0 &Sc wsptr[7] == 0) { 

/* AC terms all zero */ 

JSAMPLE dcval = range_limit [ (int) DESCALE {( INT3 2 } wsptr [0], PASSl_BXTS+3 ) 
& RANGE„MASK] ; 

outptr [0] = dcval; 
outptr [1] = dcval; 

wsptr += DCTSIZE; /* advance pointer to next row */ 

continue; 

} 

#endif 

/* Even part 

tmplO = ((INT32) wsptr [0]) « {C0NST_BITS+2 ) ; 
/* Odd part 

m tmpO = MULTIPLY! {INT3 2) wsptr[7], - FIX__0_720959822 ) /* sqrt(2) * (c7-c5+c3 -cl) */ 
m + MULTIPLY ( {INT3 2) wsptr[5], FIX_0„850430095) /* sqrt{2) * {-cl+c3+c5+c7 ) */ 
'1: + MULTIPLY! {INT3 2) wsptr[31, - FIX_1_272758580 ) /* sqrt(2) * ( -cl+c3-c5-c7 ) */ 
^Ij + MULTIPLY ( (INT3 2) wsptrll], FI5C3_624509785 ) ; /* sqrt{2) * (cl+c3+c5+c7 ) */ 

.J' /* Final output stage */ 

■il outptr[0] = range_limit [ (int) DESCALE (tmp 10 + tmpO, 
^ CONST_BITS+PASSl_BITS+3+2) 

& RANGE_MASK] ; 

E outptr [1] = range^limit [ (int) DESCALE (tmp 10 - tmpO, 
L:. CONST„BITS+PASSl_BITS+3+2 ) 

Sc RANGE_MASK] ; 

wsptr += DCTSIZE; /* advance pointer to next row */ 

* Perform dequantization and inverse DCT on one block of coefficients, 

* producing a reduced-size 1x1 output block. 
*/ 

GLOBAL (void) 

jpeg_idct_lxl ( j„decompress jtr cinfo, jpeg_component__inf o * compptr, 

JCOEFPTR coef_block, 

JSAMPARRAY output„buf , JDIMENSION output„COl) 

{ 

int dcval; 

ISLOW_MULT_TYPE * quantptr; 

JSAMPLE *range_limit = IDCT__range__limit (cinf o) ; 
SHIFT_TEMPS 

/* We hardly need an inverse DCT routine for this: just take the 
* average pixel value ^ which is one-eighth of the DC coefficient. 
*/ 

quantptr = (ISLOW_MULT_TYPE *) compptr->dct_table; 
dcval = DEQUANTI 2E ( coef „block [ 0 ] . quantptr [ 0 ] ) ; 
dcval = (int) DESCALE { (INT32 ) dcval, 3); 

output_buf [0] [output_col] = range_limit [dcval & RANGE_MASK] ; 

} 

fendif /* IDCT„SC ALT NONSUPPORTED */ 
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* jmemmgr.c 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains the JPEG system- independent memory management 

* routines. This code is usable across a wide variety of machines; most 

* of the system dependencies have been isolated in a separate file. 

* The major functions provided here are: 

* * pool-based allocation and freeing of memory; 

* * policy decisions about how to divide available memory among the 

* virtual arrays; 

* * control logic for swapping virtual arrays between main memory and 

* backing storage. 

* The separate system-dependent file provides the actual backing-storage 

* access code, and it contains the policy decision about how much total 

* main memory to use. 

* This file is system- dependent in the sense that some of its functions 

* are unnecessary in some systems. For example, if there is enough virtual 

* memory so that backing storage will never be used, much of the virtual 

* array control logic could be removed. (Of course, if you have that much 

* memory then you shouldn't care about a little bit of unused code...) 
*/ 

#define JPEG__INTERNALS 
#define AM_MEMORy_MANAGER 
# include "j include. h" 
#include "jpeglib.h" 
#include "jmemsys.h" 

#itndef NO_GETENV 

#|€ndef HAVE_STDLIB_H /* <stdlib.h> should declare getenvO */ 

eitlern char * getenv JPP{ (const char * name)); 
fendif 
#^tdif 

f% 

WJ Some important notes : 

HI The allocation routines provided here must never return NULL. 
They should exit to error_exit if unsuccessful. 

It's not a good idea to try to merge the sarray and barray routines, 
f% even though they are textually almost the same, because samples are 

usually stored as bytes while coefficients are shorts or ints. Thus, 
FiM in machines where byte pointers have a different representation from 
^*;; word pointers, the resulting machine code could not be the same. 

Mj 

fi 

* Many machines require storage alignment: longs must start on 4-byte 

* boundaries, doubles on 8-byte boundaries, etc. On such machines, mallocO 

* always returns pointers that are multiples of the worst-case alignment 

* requirement, and we had better do so too. 

* There isn't any really portable way to determine the worst-case alignment 

* requirement. This module assumes that the alignment requirement is 

* multiples of sizeof (ALIGN_TYPE) . 

* By default, we define ALIGN_TYPE as double. This is necessary on some 

* workstations (where doubles really do need 8-byte alignment) and will work 

* fine on nearly everything. If your machine has lesser alignment needs, 

* you can save a few bytes by making ALIGN„TYPE smaller. 

* The only place I know of where this will NOT work is certain Macintosh 

* 680x0 compilers that define double as a 10-byte IEEE extended float, 

* Doing 10-byte alignment is counterproductive because longwords won't be 

* aligned well. Put "#define ALIGN_TYPE long" in jconfig.h if you have 

* such a compiler, 
*/ 

#ifndef ALIGN^TYPE /* so can override from jconfig.h */ 

#define ALIGN_TYPE double 

#endif 



/* 

* We allocate objects from "pools", where each pool is gotten with a single 

* request to jpeg_get_small { ) or jpeg_get_large ( ) . There is no per-object 

* overhead within a pool, except for alignment padding. Each pool has a 



/* we define jvirt_Xarray_control structs */ 
/* import the system-dependent declarations */ 
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* header with a link to the next pool of the same class. 

* Small and large pool headers are identical except that the latter s 

* link pointer must be FAR on 80x86 machines. 

* Notice that the "real" header fields are union 'ed with a dummy ALIGN_TYPE 

* field. This forces the compiler to make SIZEOF (small_^ool_hdr ) a multiple 

* of the alignment requirement of ALIGN_TYPE. 
*/ 

typedef union small_pool_struct * small_pool_i)tr ; 

typedef union small_pool„struct { 

struct { . . . ^ T * / 

small_pool_ptr next; /* next m list of pools */ ^ , ^. _ . 

size_t bytes.used; /* how many bytes already used withm pool / 

size_t bytes_left; /* bytes still available in this pool */ 

} lidr ; . -,.*_+/ 

ALIGN_TYPE dummy; /* included in union to ensure alignment */ 

} small_j)00l_hdr; 

typedef union large_pool_struct * large jool^tr; 
typedef union large_poo Instruct { 

struct { . . X. n * / 

large r)ool_ptr next; /* next m list of pools */ ^ ^ 

size_t bytes„used; /* how many bytes already used withm pool */ 

size_t bytes_left; /* bytes still available in this pool */ 

} hdr; , * / 

ALIGN_TYPE dummy; /* included m union to ensure alignment */ 

} large_pool„hdr ; 



^^Here is the full definition of a memory manager object. 

# 

tfpedef struct { ^. -.^ */ 

Uitruct jpeg_memory_mgr pub; /* public fielas / 

'f* Each pool identifier (lifetime class) names a linked list of pools. */ 
Cgmall_:pool_ptr small„list [ JPOOL^NUMPOOLS] ; 
J|.arge^ool_ptr large_list [ JPO0L_NUMP0OLS3 ; 

n|^* since we only have one lifetime class of virtual arrays, only one 

* linked list is necessary (for each datatype). Note that the virtual 

L;.. * array control blocks being linked together are actually stored somewhere 
^'^ * in the small-pool list, 

O */ 

npvirt„sarray_^tr virt_sarray_list; 
.: ''3 vi r t_barr ay J t r vi r t_bar r ay_l i s t ; 

f]/* This counts total space obtained from jpeg_get_small/ large */ 
^■iong total_space„al located; 

/* alloc„sarray and alloc_barray set this value for use by virtual 

* array routines . 

JDIMENSION last_rowsperchunk; /* from most recent alloc_sarray/barray */ 
} my_memory__mgr ; 

typedef my_memory_mgr * my_mem_ptr; 



* The control blocks for virtual arrays. 

* Note that these blocks are allocated in the "small" pool area. _ 

* System-dependent info for the associated backing store (if any) is hidden 

* inside the backing_store__inf o struct. 
*/ 

struct jvirt_sarray_control { 

JSAMPARRAY mem_buffer; /* => the in-memory buffer */ 
JDIMENSION rows_in_array; /* total virtual array height */ 
JDIMENSION samplesperrow; /* width of array (and of memory buffer) / 
JDIMENSION maxaccess; /* max rows accessed by access_virt_sarray / 

JDIMENSION rows_in_mem; /* height of memory buffer */ 
JDIMENSION rowsperchunk; /* allocation chunk size m mem_buffer / 
JDIMENSION cur_start„row; /* first logical row # in the buffer */ 
JDIMENSION first„undef_row; /* row # of first uninitialized row */ 
boolean pre_zero; /* pre-zero mode requested? */ 

boolean dirty; /* do current buffer contents need written? */ 
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}; 



boolean b_s_open; /* is backing-store data valid? */ 

jvirt_sarray_ptr next; /* link to next virtual sarray control block */ 
backing„store_inf o b_s_info; /* System-dependent control info */ 



struct jvirt__barray_control 
JBLOCKARRAY mem_buffer; 
JDIMENSION rows_in_array; 
JDIMENSION blocksperrow; 
JDIJffiNSION maxaccess; 
JDIMENSION rows_in_mem; 
JDIMENSION rows per chunk; 
JDIMENSION cur_start_row; 
JDIMENSION f irst_undef_row; 
boolean pre_zero; / 
boolean dirty; / 



=> the in-memory buffer */ 
total virtual array height */ 
width of array (and of memory buffer) */ 
max rows accessed by access_virt_barray */ 
height of memory buffer */ 
/* allocation chunk size in mem_buffer */ 
/* first logical row # in the buffer */ 
/* row # of first uninitialized row 
pre-zero mode requested? */ 
do current buffer contents need written? 



}; 



boolean b_s_open; /* is backing- store data valid? */ 

j virt_barray_ptr next; /* link to next virtual barray control block 

backing_store_inf o b_s_info; /* System-dependent control info */ 



#ifdef MEM_STATS /* optional extra stuff for statistics */ 

LOCAL (void) 

print_mem_stats ( j_coramon_ptr cinfo, int pool_id) 
{ 

my_mem_^tr mem = (my_mem_ptr) cinfo->mem; 
small_pool_ptr shdr_ptr; 
large_pool_ptr Ihdr _ptr; 

f^i* since this is only a debugging stub, we can cheat a little by using 
'7.f* fprintf directly rather than going through the trace message code. 
This is helpful because message parm array can't handle longs. 

"fprintf (stderr, "Freeing pool %d, total space = %ld\n" , 
pool„id, inem->total_space_al located) ; 

jior {lhdr_ptr = mem->large_list [pool_id] ; lhdr_ptr ! = NULL; 
lhdr„ptr = lhdr_ptr->hdr .next) { 
fprintf (stderr, " Large chunk used %ld\n% 
r; ; (long) lhdr^tr->hdr .bytes_used) ; 

L.for (shdr_ptr = mem->sraall_list [pool_id} ; shdr_^tr 1= NULL; 
L,^, shdr__ptr = shdr_ptr->hdr .next ) { 

LI fprintf (stderr, " Small chunk used %ld free %ld\n'*, 
f|J (long) shdr_ptr->hdr .bytes_used, 

I'l (long) shdr_ptr->hdr ,bytes_lef t) ; 

3 

El 

tehdif /* MEM_STATS */ 



LOCAL (void) 

out_of_memory ( j_common_ptr cinfo, int which) 

/* Report an out-of -memory error and stop execution */ 

/* If we compiled MEM_STATS support, report alloc requests before dying */ 
{ 

#ifdef MEM_STATS 

cinf o->err->trace_level =2; /* force self_destruct to report stats */ 
#endif 

ERREXITl (cinfo, JERR„OUT_OF_MEMORY , which); 

} 



* Allocation of "small" objects. 
* 

* For these, we use pooled storage. When a new pool must be created, 

* we try to get enough space for the current request plus a "slop" factor, 

* where the slop will be the amount of leftover space in the new pool. 

* The speed vs. space tradeoff is largely determined by the slop values, 

* A different slop value is provided for each pool class (lifetime), 

* and we also distinguish the first pool of a class from later ones. 

* NOTE; the values given work fairly well on both 16- and 32-bit-int 

* machines, but may be too small if longs are 64 bits or more. 
*/ 
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static const si2e_t f irst_pool_slop [ JPOOL__NUMPOOLS] = 
{ 

1600, /* first PERMANENT pool */ 

16000 /* first IMAGE pool */ 

}; 

static const size_t extra_pool_slop [ JPOOL__NUMPOOLS] = 
{ 

0, /* additional PERMANENT pools */ 

5000 /* additional IMAGE pools */ 

}; 

#define MIN„SLOP 50 /* greater than 0 to avoid futile looping */ 



METHODDEFCvoid 

alloc„small ( j_coinmon_ptr cinfo, int pool_id, size_t sizeof object) 

/* Allocate a "small" object */ 

{ 

my_inem_^tr meru = (my_mem_ptr) cinf o->mem,' 
small_pool_ptr hdr_ptr, prev„hdr_ptr ; 
char * data__ptr; 

size_t odd_bytes, rtiin__request , slop; 

/* Check for unsatisf iable request (do now to ensure no overflow below) */ 
if (sizeofobject > (size_t} (MAX_ALLOC_CHUNK-SIZEOF (small jool_hdr} ) ) 
out_of_memory (cinfo, 1); /* request exceeds malloc's ability */ 

/* Roimd up the requested size to a multiple of SIZEOF (ALIGN_TYPE) */ 
odd_bytes = sizeofobject % SIZEOF {ALIGN_TYPE) ; 
if {odd_bytes > 0) 
f-, sizeofobject += SIZEOF {ALIGN_TYPE) - odd_bytes; 

yj* See if space is available in any existing pool */ 
nif (pool_id < 0 I ! pool_id >= JPOOL_NUMPOOLS ) 

ERREXITl (cinfo, JERR„BAD_POOL_ID , pool_id) ; /* safety check */ 
yfi>rev_hdr^tr = NULL; 
%,fedr_ptr = mem->small_list [pool_id] ; 
,.|rhile (hdr_ptr NULL) { 

if (hdr_ptr->hdr .bytes_lef t >= sizeofobject) 

break; /* found pool with enough space */ 

^iil prev_hdr_ptr = hdr_ptr; 

hdr_ptr = hdr __ptr->hdr .next ; 

} 

Time to make a new pool? */ 
Llf (hdr^ptr == NULL) { 

ni /* min„request is what we need now, slop is what will be leftover */ 
V'i min_request = sizeofobject + SIZEOF {small_pool_hdr) ; 

if (prev_hdr^tr == NULL) /* first pool in class? */ 
fj slop = f irst_pool_slop[pool„id] ; 

else 

slop = extra_pool_slop [pool_idJ ; 
/* Don^t ask for more than MAX_ALLOC„CHUNK */ 
if (slop > (size_t) (MAX_ALLOC„CHUNK-min_request) ) 

slop = (size_t) (MAX_ALLOC_CHUNK-min_request) ; 
/* Try to get space, if fail reduce slop and try again */ 
for (;;) { 

hdrjptr = (small_pool_ptr) jpeg_get_small (cinfo, min_.request + slop); 
if (hdr_ptr != NULL) 
break; 

slop /= 2; 

if (slop < MIN_SLOP) /* give up when it gets real small */ 
out_of_memory (cinfo, 2); /* jpeg_.get_small failed */ 
} 

mem->total„space„allocated += min„request + slop; 

/* Success, initialize the new pool header and add to end of list */ 
hdr_ptr->hdr,next = NULL; 
hdr_j)tr->hdr .bytes_used = 0; 

hdr_ptr~>hdr .bytes_lef t = sizeofobject + slop; 

if (prev_hdr_ptr == NULL) /* first pool in class? */ 

mem->small_list [pool_id3 = hdr_^tr; 
else 

prev_hdr_ptr->hdr .next - hdr_ptr; 

} 

/* OK, allocate the object from the current pool */ 

data__ptr = (char *} (hdr_ptr + 1); /* point to first data byte in pool */ 
data_ptr += hdr^tr->hdr .bytes_used; /* point to place for object */ 
hdr_ptr->hdr ,bytes_used += sizeofobject; 
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hdr_ptr->hdr .foytes_lef t -= sizeof objects- 
return (void data_ptr; 

} 



/* 

* Allocation of "large" objects. 
* 

* The external semantics of these are the same as "small" objects, 

* except that FAR pointers are used on 80x86. However the pool 

* management heuristics are quite different. We assume that each 

* request is large enough that it may as well be passed directly to 

* jpeg_get_large; the pool management just links everything together 

* so that we can free it all on demand. 

* Note: the major use of "large" objects is in JSAMPARRAY and JBLOCKARRAY 

* Structures. The routines that create these structures (see below) 

* deliberately bunch rows together to ensure a large request size. 
*/ 

METHODDEF(void 

alloc_large ( j_common_ptr cinfo, int pool_id, size_t sizeof obj ect) 

/* Allocate a "large" object */ 

{ 

my_mem_ptr mem = (my_mem_ptr) cinfo->mem; 
large_pool_ptr hdr_ptr; 
size_t odd„bytes; 

/* Check for unsatisf iable request (do now to ensure no overflow below) */ 
if (sizeofobject > (size_t) {MAX_ALLOC_CHUNK-SIZEOF (large_pool_hdr) ) ) 
out_of_memory (cinfo, 3); /* request exceeds malice's ability */ 

O* Round up the requested size to a multiple of SIZEOF (ALIGNJTYPE) */ 
vf|dd_bytes = sizeofobject % SIZEOF (ALIGN^TYPE) ; 
3f (odd_bytes > 0) 

^" sizeofobject += SIZEOF (ALIGN_TYPE) - odd_bytes; 



C/* Always make a new pool */ 

'if {pool_id < 0 M pool_id >= JPOOL_NUMPOOLS ) 

Jj ERREXITKcinfo, JERR_BAD_POOL_ID, pool_id) ; /* safety check */ 

:::|idr_ptr = (large_pool_ptr) jpeg_get_large(cinf o, sizeofobject + 
flJ SIZEOF (large_pool_hdr) ) ; 

. if (hdr_ptr == NULL) 

r out_of_memory (cinfo, 4); /* jpeg_get_large failed */ 
^"lhem->total_space_allocated += sizeofobject + SIZEOF (large_pool_hdr) ; 

5y* Success, initialize the new pool header and add to list */ 
^^hdr_ptr->hdr .next = mem->large_list [pool_id] ; 

SF* We maintain space counts in each pool header for statistical purposes, 
* even though they are not needed for allocation. 

!:f */ 

Llidr_ptr->hdr .bytes_used = sizeofobject; 
hdr_ptr->hdr . byte s_l eft = 0 ; 
mem->large_list [pool_id] = hdr_ptr; 

return (void *) (hdr_ptr + 1); /* point to first data byte in pool */ 

} 



/* 

* Creation of 2-D sample arrays. 

* The pointers are in near heap, the samples themselves in FAR heap. 
* 

* To minimize allocation overhead and to allow I/O of large contiguous 

* blocks, we allocate the sample rows in groups of as many rows as possible 

* without exceeding MAX_ALLOC_CHUNK total bytes per allocation request. 

* NB: the virtual array control routines, later in this file, know about 

* this chunking of rows. The rowsperchunk value is left in the mem manager 

* object so that it can be saved away if this sarray is the workspace for 

* a virtual array. 
*/ 

METHODDEF (JSAMPARRAY) 

alloc_sarray ( j_common__ptr cinfo, int pool_id, 

ODIMEKSION samplesperrow, JDIMENSION numrows) 
/* Allocate a 2-D sample array */ 
{ 

my_mem_ptr mem = {my„mem_ptr) cinfo->mem; 
JSAMPARRAY result; 
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JSAMPROW workspace; 

JDIMENSION rowsperchunk, currow, i; 

long Itemp; 

/* Calculate max # of rows allowed in one allocation chunk */ 
Itemp = (MAX_ALLOC_CHUNK-SIZEOF{large_j>ool_hdr) } / 

((long) samplesperrow * SIZEOF ( JSAMPLE) ) ; 
if (Itemp <= 0) 

ERREXIT(cinfo, JERR__WIDTH_OVERFLOW) ; 
if (Itemp < (long) numrows) 

rowsper chunk = (JDIMENSION) Itemp; 
else 

rowsperchunk = numrows; 
mem- >1 as t_rowsper chunk - rowsperchunk; 

/* Get space for row pointers (small object) */ 
result = (JSAMPARRAY) alloc_small ( cinf o , pool_id, 

(size_t) (numrows * SIZEOF (JSAMPROW) )) ; 

/* Get. the rows themselves (large objects) */ 
currow = 0; 

while (currow < numrows) { 

rowsperchunk = MIN (rowsperchunk, numrows - currow); 
workspace = (JSAMPROW) alloc_large (cinf o, pool_id, 
(size_t) {{size_t) rowsperchunk* (size_t) samplesperrow 

* SIZEOF (JSAMPLE) ) ) ; 
for (i = rowsperchunk; i > 0; i — ) { 
result [currow++] = workspace; 
workspace += samplesperrow; 

} 

} 

r,lreturn result; 

Creation of 2-D coefficient-block arrays. 
**lThis is essentially the same as the code for sample arrays, above. 

|7 

kSthoddef { JBLOCKARRAY) 

ailloc_barray ( j_common_ptr cinfo, int pool_id, 
y JDIMENSION blocksperrow, JDIMENSION n\imrows) 

A Allocate a 2~D coefficient-block array */ 

r=|[iy_mem_ptr mem = (my_mem_j3tr) cinfo->mem; 

StrBLOCKARRAY result; 

HItbLOCKROW workspace; 

\^roiMENSION rowsperchunk, currow, i; 

j:;r:long Iteitip; 

fy* Calculate max # of rows allowed in one allocation chunk */ 
"""itemp = (MAX_ALLOC_CHUNK-SIZEOF(large_^ool_hdr) ) / 
((long) blocksperrow * SIZEOF (JBLOCK) ) ; 
if (Itemp <^ 0) 

ERREXIT { cinf o , JERR„WIDTH_0VERFL0W) ; 
if (Itemp < (long) numrows) 

rowsperchunk = (JDIMENSION) Itemp; 
else 

rowsperchunk = niomrows; 
mem- >1 as t_rowsper chunk = rowsperchunk; 

/* Get space for row pointers (small object) */ 
result = (JBLOCKARRAY) alloc_small ( cinf o , pool_id, 

( s i z e_t ) ( numrows * S I ZEOF ( JBLOCKROW ) ) ) ; 

/* Get the rows themselves (large objects) */ 
currow = 0; 

while (currow < numrows) { 

rowsperchunk = MIN (rowsperchunk, numrows - currow); 
workspace = (JBLOCKROW) alloc_.large (cinf o, pool_id, 
(si2e_t) ((size_t) rowsperchunk* (size_t) blocksperrow 

* SIZEOF (JBLOCK) ) ) ; 
for (i = rowsperchunk; i > 0; i — ) { 
result [currow++] = workspace; 
workspace += blocksperrow; 

} 

} 
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return result ; 

} 



/* 

* About virtual array management: 
* 

* The above "normal" array routines are only used to allocate strip buffers 

* (as wide as the image, but just a few rows high). Full- image-sized buffers 

* are handled as "virtual" arrays. The array is still accessed a strip at a 

* time, but the memory manager must save the whole array for repeated 

* accesses. The intended implementation is that there is a strip buffer in 

* memory (as high as is possible given the desired memory limit) , plus a 

* backing file that holds the rest of the array. 
* 

* The request_virt_array routines are told the total size of the image and 

* the maximum number of rows that will be accessed at once. The in-memory 

* buffer must be at least as large as the maxaccess value. 
* 

* The request routines create control blocks but not the in-memory buffers. 

* That is postponed until real ize_virt_ar rays is called. At that time the 

* total amount of space needed is known (approximately; anyway) , so free 

* memory can be divided up fairly. 
* 

* The access_virt_array routines are responsible for making a specific strip 

* area accessible (after reading or writing the backing file, if necessary) . 

* Note that the access routines are told whether the caller intends to modify 

* the accessed strip; during a read-only pass this saves having to rewrite 

* data to disk. The access routines are also responsible for pre-zeroing 

* any newly accessed rows, if pre-zeroing was requested. 
* 

l-In current usage, the access requests are usually for nonover lapping 
%J strips; that is, successive access start_row numbers differ by exactly 
;|]num_rows = maxaccess. This means we can get good performance with simple 
1^: buffer dump/reload logic, by making the in-memory buffer be a multiple 
'^;of the access height; then there will never be accesses across bufferload 

boundaries . The code will still work with overlapping access requests, 
^nbut it doesn't handle bufferload overlaps very efficiently. 
*| 

lll&HODDEF ( j vir t_sarray__ptr ) 

request_virt_sarray ( j_common_ptr cinfo, int pool_id, boolean pre_zero, 

JDIMENSION samplesperrow, JDIMENSION numrows, 
I: , JDIMENSION maxaccess) 

Request a virtual 2-D sample array */ 

a 

fiiifriy_mem_:ptr mem = (my_mem_^tr) cinfo->mem; 
" 'pvirt_sarray_ptr result; 

py* Only IMAGE-lif etime virtual arrays are currently supported */ 
SjLf (pool_id != JP0OL_IMAGE) 

ERREXITK cinfo, JERR_BAD_POOL_ID , pool_id) ; /* safety check */ 

/* get control block */ 

result = ( jvirt„sarray_ptr) alloc_small (cinfo , pool„id, 

SIZEOF (struct j virt_sarray_control ) ) ; 

result->mem_buf f er = NULL; /* marks array not yet realized */ 
result->rows„in_array = numrows; 
result->samplesperrow = samplesperrow; 
result->maxaccess = maxaccess; 
result->pre_zero = pre_zero; 

result->b__s_open = FALSE; /* no associated backing-store object */ 
result->next = mem->virt_sarray_list; /* add to list of virtual arrays */ 
mem->virt_sarray_list = result; 

return result; 

} 



METHODDEF ( j vir t^barr ay_ptr } 

request_yirt_barray ( j_common_^tr cinfo, int pool_id, boolean pre_zero, 
JDIMENSION blocksperrow, JDIMENSION numrows, 
JDIMENSION maxaccess) 

/* Request a virtual 2-D coefficient-block array */ 

{ 

niy_mem_ptr mem = (my_mem_ptr} cinfo->mem; 
jvirt_barray__ptr result; 



/* Only IMAGE-lifetime virtual arrays are currently supported */ 
if (pool_id \= JPOOL_IMAGE) 

ERREXITKcinfo, JERR„BAD_POOL_ID, pool_id) ; /* safety check */ 

/* get control block */ 

result = ( jvirt_barray_ptr) alloc_small (cinf o, pool_id, 

SIZEOF( struct jvirt_barray_control) ) ; 

result->mem_buffer = NULL; /* marks array not yet realized */ 
result->rows_in_array = niimrows; 
result->blocksperrow = blocksperrow; 
result->maxaccess = maxaccess; 
result->pre__zero = pre__zero; 

result->b_s_open = FALSE; /* no associated backing-store object */ 
result->next = mein->virt_barray_list ; /* add to list of virtual arrays */ 
itiem->virt_barray_list = result; 

return result; 



METHODDEF(void) 

real ize_virt_ar rays { j_conimon_ptr cinfo) 

/* Allocate the in-memory buffers for any unrealized virtual arrays */ 

my_mem_ptr mem = (my„mem_ptr) cinfo->mem; 

long space_per_minheight, maximum_space, avail_mem; 

long minheights, max_minheights; 

jvirt_sarray_ptr sptr; 

jvirt_barray_ptr bptr; 

/* Compute the minimum space needed (maxaccess rows in each buffer) 
ff and the maximum space needed (full image height in each buffer). 

These may be of use to the system- dependent jpeg_mem_available routine. 

§i>ace_per_minheight = 0; 
.wximuin_space = 0; 

;ft)r (sptr = mem->virt_sarray„list; sptr != NULL; sptr ~ sptr->next) { 
-^iif (sptr->mem_buffer NULL) { /* if not realized yet */ 

space_pGr_minheight += (long) sptr->maxaccess * 
,1^ , (long) sptr->samplesperrow * SIZEOF ( JSAMPLE) ; 

maximum_space += (long) sptr ->rows_in_ar ray * 
llj (long) sptr~>samplesperrow * SIZEOF (JSAMPLE) ; 

J 

'f'9r (bptr = mem->virt_barray_list; bptr i= NULL; bptr = bptr->next) { 
r-;;if (bptr->mem__buf fer == NULL) { /* if not realized yet */ 

space_per_minheight += (long) bptr->maxaccess * 
lU _ (long) bptr->blocksperrow * SIZEOF (JBLOCK) ; 

maximuHLSpace +- (long) bptr->rows_in_array * 

(long) bptr->blocksperrow * SIZEOF (JBLOCK) ; 

b 

if {space_pGr_minh eight <= 0) 

return; /* no unrealized arrays, no work */ 

/* Determine amount of memory to actually use; this is system- dependent */ 
avail_mem = jpeg_mem_available (cinfo, space_per_minheight, maximum_space, 
mem->total_space_allocated) ; 

/* If the maximum space needed is available, make all the buffers full 

* height; otherwise parcel it out with the same number of minheights 

* in each buffer. 

. *^ 

if {avail_mem >= maximum_space) 
max_minheights = lOOOOOOOOOL; 
else { 

max_minheights = avail_mem / space_per_minheight ; 

/* If there doesn't seem to be enough space, try to get the minimum 
* anyway. This allows a "stub" implementation of j peg_mem_a vail able () . 

if (max__minheights <= 0) 
max_minheights = 1; 

} 

/* Allocate the in-memory buffers and initialize backing store as needed. */ 

for (sptr = mem->virt_sarray_list; sptr '= NULL; sptr = sptr->next) { 
if (sptr->niem_buf fer NULL) { /* if not realized yet */ 
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minheights = ( (long) sptr->rows_in_array - IL) / sptr->maxaccess + IL 

if (minheights <- inax_minheights) { 
/* This buffer fits in memory */ 
sptr->rows_in_mem = sptr->rows_in_array; 

} else { 

/* It doesn't fit in memory, create backing store. */ 
sptr->rows_in_mem = (JDIMENSION) (max_minheights * sptr->raaxaccess) ; 
jpeg_open„backing_store (cinfo, Sc sptr->b_s_inf 

(long) sptr->rows_in_array * 

(long) sptr->samplesperrow * 

( 1 ong ) SI ZEOF ( JSAMPLE ) ) ; 
sptr->b„s_open = TRUE; 
} 

sptr->mem_buf f er = alloc_sarray (cinf JPOOL_IMAGE, 

sptr->samplesperrow, sptr->rows_in_,mem) ; 
sptr->rowsper chunk = mem- > las t_rowsper chunk; 
sptr->cur_start„row = 0; 
sptr->f irst_undef_row = 0; 
sptr->dirty = FALSE; 

} 

} 

for (bptr = mem->virt__barray_list; bptr 1= NULL; bptr = bptr->next) { 
if (bptr->mem_buf f er == NULL) { /* if not realized yet */ 

minheights = ( (long) bptr->rows_in_array - IL) / bptr->inaxaccess + IL 

if (minheights <= max_minheights) { 
/* This buffer fits in memory */ 
bptr->rows_in_mem = bptr->rows_in_array ; 

} else { 

/* It doesn't fit in memory, create backing store. */ 
bptr->rows_in_mem - (JDIMENSION) (max_minheights * bptr->maxaccess) ; 

Li 3peg_open_backing„store (cinfo, & bptr->b„s_inf o, 

'Jl (long) bptr->rows_in_array * 

^^.r^ (long) bptr->blocksperrow * 

(long) SIZEOF ( JBLOCK) ) ; 
bptr->b„s__open = TRUE; 

bptr->mem_buf f er = alloc_barray (cinf o , JP00L_II!1AGE , 

bptr->blocksperrow, bptr->rows_in__raem) ; 
J'. bptr->rowsperchunk = mem->last_rowsperchunk; 

bptr->cur_start_row = 0; 
IL bptr->f irst_undef_row = 0; 

bptr->dirty = FALSE; 



rM:AL(void) 

c|E^^sarray_io (j_common^tr cinfo, jvirt_sarray_ptr ptr, boolean writing) 
Do backing store read or write of a virtual sample array */ 

CI 

long by tesp err ow, file_offset; byte„count, rows, this row, i; 

bytesperrow = (long) ptr->samplesperrow * Si ZEOF (JSAMPLE) ; 
file_offset = ptr->cur_start_row * bytesperrow; 
/* Loop to read or write each allocation chunk in mem_buffer */ 
for (i = 0; i < (long) ptr->rows_in_mem; i += ptr->rowsperchunk) { 

/* One chunk, but check for short chunk at end of buffer */ 

rows = MIN{(long) ptr->rowsper chunk, (long) ptr->rows_in_mem - i) ; 

/* Transfer no more than is currently defined */ 

thisrow - (long) ptr->cur_start_rDw + i; 

rows = MIN{rows, (long) ptr->f irst_undef_row - thisrow); 

/* Transfer no more than fits in file */ 

rows = MIN(rows, (long) ptr->rows_in_array - thisrow); 

if (rows <= 0) /* this chunk might be past end of file! */ 

break; 

byte_count = rows * bytesperrow; 
if (writing) 

(*ptr->b_s_inf o-write_backing_store) (cinfo, & ptr->b_s_inf o, 
(void *) ptr->mem„buf f er [i] , 
file_offset, byte_count) ; 

else 

{*ptr->b_s_inf o, read_backing_store) (cinfo, & ptr->b_s_inf o, 
(void *) ptr->mem_buffer[i] , 
file_offset, byte_count) ; 
file_offset += byte_count; 

} 

} 
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LOCAL (void) 

do_barray_io ( j_coiranon_j>tr cinfo, jvirt_barray_ptr ptr, boolean writing) 
/* Do backing store read or write of a virtual coefficient-block array */ 
{ 

long bytesperrow, f ile_of f set , byte„count, rows, thisrow, i; 

bytesperrow = (long) ptr->blocksperrow * SIZEOF { JBLOCK) ; 
file_offset = ptr->cur_start_row * bytesperrow; 
/* Loop to read or write each allocation chunk in inem_buffer */ 
for (i = 0; i < (long) ptr->rows_in_inerti; i += ptr ->rowsper chunk) { 

/* One chunk, but check for short chunk at end of buffer */ 

rows = MIN( (long) ptr->rowsperchunk, (long) ptr->rows_in_mem - i) ; 

/* Transfer no more than is currently defined */ 

this row = (long) ptr->cur_start_row + i; 

rows = MIN{rows, (long) ptr->f irst„undef_row - thisrow) ; 

/* Transfer no more than fits in file */ 

rows = MIN(rows, (long) ptr->rows_in„array - thisrow); 

if (rows <= 0) /* this chunk might be past end of file! */ 

break; 

byte_count = rows * bytesperrow; 
if (writing) 

(*ptr->b_s„inf o . write_backing_store) (cinfo, & ptr*>b_s_inf o, 
(void *) ptr->mem_buf f er [i] , 
file_of fset, byte_count) ; 

else 

(*ptr->b_s_inf o. read_backing_store) (cinfo, & ptr->b_s_inf o , 
(void *) ptr->mem__buf f er [i] , 
file_offset, byte_count) ; 
file_offset += byte_count; 

MlfnODDEF ( JSAMPARRAY) 

a^eess_V2rt_s array ( j_coinmon_ptr cinfo, jvirt_sarray_ptr ptr, 
Sj JDIMENSION start_row, JDIMENSION num^rows, 

J^ boolean writable) 

/^f Access the part of a virtual sample array starting at start_row */ 
Af J and extending for num_.rows rows, writable is true if */ 
caller intends to modify the accessed area. */ 

s JDIMENSION end_row = start_row + num__rows; 
|..aJDIMENSION undef_row; 

^4/* debugging check */ 

njif (end_row > ptr->rows_in_array | | n\im_rows > ptr->maxaccess ( | 

ptr->mem_buf f er == NULL) 
2 ERREXIT( cinfo, JERR_BADlJVIRTUAL_ACCESS) ; 

p^y* Make the desired part of the virtual array accessible */ 
^"'if (start_row < ptr->cur_start_row | | 

end_row > ptr->cur_start_row+ptr->rows_in_mem) { 
if (1 ptr->b_s_open) 

ERREXIT (cinfo , JERR_VIRTUAL_BUG) ; 
/* Flush old buffer contents if necessary */ 
if (ptr->dirty) { 

do_sarray_io (cinfo, ptr, TRUE); 
ptr->dirty = FALSE; 

} 

/* Decide what part of virtual array to access. 

* Algorithm: if target address > current window, assume forward scan, 

* load starting at target address. If target address < current window, 

* assume backward scan, load so that target area is top of window. 

* Note that when switching from forward write to forward read, will have 

* start_row =0, so the limiting case applies and we load from 0 anyway. 
*/ 

if (start_row > ptr->cur_start_row) { 

ptr->cur_start_row = start_row; 
) else ( 

/* use long arithmetic here to avoid overflow & unsigned problems */ 

long Itemp; 

Itemp = (long) end_row - (long) ptr->rows_in_mem; 
if (Itemp < 0) 
Itemp =0; /* don't fall off front end of file */ 

ptr->cur_start„row = (JDIMENSION) Itemp; 

} 

/* Read in the selected part of the array. 

* During the initial write pass, we will do no actual read 
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* because the selected part is all undefined. 
*/ 

do_sarray„io (cinfo, ptr, FALSE); 

} 

/* Ensure the accessed part of the array is defined; prezero if needed. 

* To improve locality of access, we only prezero the part of the array 

* that the caller is about to access, not the entire in-memory array. 
*/ 

if (ptr->f irst_undef_row < end_row) { 
if (ptr->f irst_undef_row < start_row) { 

if (writable) /* writer skipped over a section of array */ 

ERREXIT(cinfo, JERR_BAD_VIRTUAL_ACCESS} ; 

undef_r ow = start_row; /* but reader is allowed to read ahead */ 
} else { 

undef„row = ptr->f irst_undef_row; 
} 

if (writable) 

ptr->f irst_undef_row = end^row; 
if (ptr->pre_zero) { 

size„t bytesperrow = (size_t) ptr->samplesperrow * SIZEOF ( JSAMPLE) ; 

undef_row -= ptr->cur_start_row; /* make indexes relative to buffer */ 

end_row -= ptr->cur_start_row; 

while {undef_row < end_row) { 
jzero_f ar C (void *) ptr->mem_buf f er [undef_row] , bytesperrow); 
undef_row++ ; 

} 

} else { 

if {! writable) /* reader looking at undefined data */ 

ERREXIT { c inf o , JERR_BAD_VIRTUAL_ACCESS ) ; 

} 

□ 

;||* Flag the buffer dirty if caller will write in it */ 
3f (writable) 

ptr->dirty = TRUE; 
yrf* Return address of proper part of the buffer */ 
"return ptr->mem__buf f er + (start_row - ptr->cur_start_row) ; 

J&JtHODDEF ( JBLOCKARRAY ) 

a4bess_virt__barray ( j_cornmon_ptr cinfo, jvirt„barray__ptr ptr, 
, JDIMENSION start_row, JDIMENSION num_rows, 

\ boolean writable) 

M'' Access the part of a virtual block array starting at start_row */ 
Q and extending for num_rows rows, writable is true if */ 
M caller intends to modify the accessed area. */ 

\|JDIMEWSION end_row = start_row + nuin_rows; 
f |JDIMEWSION undef„row; 

O/* debugging check */ 

if (end_row > ptr->rows_in_array | | nvuiurows > ptr->maxaccess | | 
ptr->mein_buf f er == NULL) 
ERREXIT ( cinf o , JERR_BAD„VIRTUAL_ACCESS ) ; 

/* Make the desired part of the virtual array accessible */ 
if (start_row < ptr->cur_start_row | | 

end__row > ptr->cur_start_row+ptr->rows_in_mem) { 
if (1 ptr->b_s„open) 

ERREXIT ( cinf o , JERR_VIRTUAL_BUG ) ; 
/* Flush old buffer contents if necessary */ 
if (ptr->dirty) { 

do_barray„io {cinfo, ptr, TRUE); 
ptr->dirty = FALSE; 

} 

/* Decide what part of virtual array to access. 

* Algorithm: if target address > current window, assume forward scan, 

* load starting at target address. If target address < current window, 

* assume backward scan, load so that target area is top of window, 

* Note that when switching from forward write to forward read, will have 

* start_row = 0, so the limiting case applies and we load from 0 anyway. 
*/ 

if (start_row > ptr->cur_start_row} { 

ptr->cur_start_row = start_row; 
} else { 

/* use long arithmetic here to avoid overflow & unsigned problems */ 
long Itemp; 

Itemp = (long) end_row - (long) ptr->rows_in_mem; 

if (Itemp < 0) 
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Itemp = 0; don't fall off front end of file */ 

ptr->cur_start_row = (JDIMENSION) Itemp; 

} 

/* Read in the selected part of the array. 

* During the initial write pass, we will do no actual read 

* because the selected part is all undefined. 
*/ 

do_barray_io (cinfo, ptr, FALSE); 

} 

/* Ensure the accessed part of the array is defined; prezero if needed, 

* To improve locality of access, we only prezero the part of the array 

* that the caller is about to access, not the entire in-memory array. 
*/ 

if (ptr->f irst_undef_row < end_row) { 
if (ptr->f irst_undef_row < start_row) { 

if (writable) /* writer skipped over a section of array */ 

ERREXIT ( c inf o , JERR__BAD_VIRTUAL_ACCESS ) ; 

undef^row = start_row; /* but reader is allowed to read ahead */ 
} else { 

undef_row = ptr->f irst_undef_row; 

} 

if (writable) 

ptr->f irst_undef__row = end_row; 
if (ptr->pre_zero) { 

size_t bytesperrow = (size^t) ptr->bloc]csperrow * SIZEOF (JBLOCK) ; 

undef_row -= ptr->cur_start_row; /* make indexes relative to buffer */ 

end__row -= ptr->cur__start_row; 

while (undef_row < end_row) { 
jzero_f ar { (void *) ptr->mein_.buf f er [undef_row] , bytesperrow); 
undef_row++ ; 

) 

IT':' } else { 

if (! writable) /* reader looking at undefined data */ 

2;^; ERREXIT (cinfo, JERR_BAD„VIRTUAL_ACCESS) ; 

h 

^//* Flag the buffer dirty if caller will write in it */ 
'vif (writable) 
^ ptr->dirty = TRUE; 

Return address of proper part of the buffer */ 
'^^^-return ptr->rriem__buf f er + (start_row - ptr->cur__start_row) ; 



f^i Release all objects belonging to a specified pool. 

;*/ 

HETHODDEF(void) 

iree_pool ( j_Gommon_ptr cinfo, int pool_id) 

if 

c:nji^y-J^®i^-P*^^ - (^iiy_Hiein __ptr) cinf o->inem; 
small pool Ptr shdr .ptr; 
large_pool_ptr lhdr_ptr; 
size_t space_freed; 

if (pool_id < 0 1 1 pool_id >= JPOOL_NUMP0OLS ) 

ERREXITl (cinfo, JERR_BAD_POOL„ID, pool_.id) ; /* safety check */ 

#ifdef MEM_STATS 

if (cinf 0">err->trace„level > 1) 

print_mem_s tats (cinf o, pool_id) ; /* print pool's memory usage statistics 
#endif 

/* If freeing IMAGE pool, close any virtual arrays first */ 
if (pool_id JPOOL_IMAGE) { 

jvirt_sarray_ptr sptr; 

jvirt_barray_^tr bptr; 

for (sptr - mem->virt__sarray„list; sptr != NULL; sptr = sptr->next) { 

if (sptr->b_s_open) { /* there may be no backing store */ 
sptr->b_s__open = FALSE; /* prevent recursive close if error */ 
(*sptr->b_s_info,close_backing_store) (cinfo, & sptr^>b_s„info) ; 
} 

} 

mem->virt_sarray_list = NULL; 

for (bptr = mem->virt__barray_list; bptr != NULL; bptr = bptr->next) { 

if (bptr->b„s__open} { /* there may be no backing store */ 
bptr->b_s_open = FALSE; /* prevent recursive close if error */ 
(*bptr->b__s_inf o . close_backing_store) (cinfo, & bptr->b__s_info) ; 
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} 

} 

mem->virt_barray_list = NULL; 

} 

/* Release large objects */ 
Ihdr^ptr = mem->large„list [pool_id] ; 
raem->large_list [pool_id] = NULL; 

while (lhdr_ptr != NULL) { 

large_pool_jptr next_lhdrjtr = lhdr_ptr->hdr .next; 
space_freed = lhdr_ptr->hdr .bytes_used + 

lhdr_ptr->hdr .bytes„lef t + 

SI ZEOF (large _j)ool_hdr) ; 
jpeg_free_large (cinf (void *) lhdr_ptr, space_f reed) ; 
inein->total__space_allocated -= space_freed; 
lhdr_ptr = next„lhdr_ptr ; 

} 

/* Release small objects */ 
shdr_j>tr = inem->small_list [pool_id] ; 
mein->small_list [pool_id] = NULL; 

while {shdr_ptr 1= NULL) { 

sinall_pool_ptr next_shdr __ptr = shdr_ptr->hdr ,next; 
space_freed = shdr_ptr->hdr .byte soused + 

shdr_ptr->hdr .bytes_lef t + 

SIZEOF (sinall_pool_hdr) ; 
jpeg_free_small (cinf o, (void *) shdr_ptr, space__f reed) ; 
mem->total_space_allocated space_freed; 
shdr_ptr = next_shdr_ptr ; 

f1} 
}% 



Close up shop entirely. 

Note that this cannot be called unless cinfo->meiii is non-NULL- 
jSrHODDEF(void) 

srelf_destruct ( j_coinmon__ptr cinfo) 
int pool; 

f^=J* Close all backing store, release all memory. 

* Releasing pools in reverse order might help avoid fragmentation 
rj * with some (brain-damaged) malloc libraries. 

*/ 

^!;for {pool ^ JP00L_NUMP00LS-1; pool >= JP00L_PERMANENT ; pool--) { 
free_pool (cinfo, pool); 

CJ 

/* Release the memory manager control block too. */ 
jpsg_free_small {cinfo , (void *) cinf o->inein, SIZEOF (my_raemory_mgr) ) ; 
cinfo->mem = NULL; /* ensures I will be called only once */ 

jpeg_mem_term (cinfo) ; /* system-dependent cleanup */ 

} 



/* 

* Memory manager initialization. 

* When this is called, only the error manager pointer is valid in cinfo 
*/ 

GLOBAL (void) 

jinit_memory__mgr (j_common _ptr cinfo) 
{ 

my_mem_ptr mem; 
long max_to_use; 
int pool; 
size_t test_mac; 

cinfo->mem = NULL; /* for safety if init fails */ 

/* Check for configuration errors. 

* SIZEOF (ALIGN_TYPE) should be a power of 2; otherwise, it probably 

* doesn't reflect any real hardware alignment requirement. 

* The test is a little tricky: for X>0, X and X-1 have no one-bits 
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* in common if and only if X is a power of 2, ie has only one one-bit. 

* Some compilers may give an "unreachable code" warning here; ignore it. 
*/ 

if { (SIZEOF(ALIGN_TYPE) Sc ( SIZEOF (ALIGN_TYPE) -1) ) 1= 0) 

ERREXIT(cinfo, JERR_BAD_ALIGN_TYPE) ; 
/* MAX_ALLOC_CHUNK must be representable as type size_t, and must be 

* a multiple of SIZEOF (ALIGN_TYPE) . 

* Again, an "unreachable code" warning may be ignored here. 

* But a "constant too large" warning means you need to fix MAX_ALLOC_CHUNK , 
*/ 

test_mac = (size_t) MAX_ALLOC_CHUNK ; 

if ((long) test_mac '= MAX_ALLOC„CHUNK j] 

(MAX_ALLOC_CHUNK % SIZEOF (ALIGN_TYPE) ) 1= 0) 
ERREXIT ( c inf o , JERR_BAD_ALLOC_CHUNK ) ; 

max__to_use = jpeg_mem_init (cinf o) ; /* system-dependent initialization */ 

/* Attempt to allocate memory manager's control block */ 

mem = (my_mem_ptr) jpeg_get_„small (cinf o, SIZEOF (my_memory_mgr) ) ; 

if (mem == NULL) { 

jpeg_mem_term(cinf o) ; /* system-dependent cleanup */ 
ERREX I T 1 ( c inf o, JERR„OUT„OF_MEMORY , 0 ) ; 

} 

/* OK, fill in the method pointers */ 

mem->pub. alloc_small = alloc_small; 

mem->pub .alloc_large = alloc_large; 

mem- >pub. alio c__s array = alloc_sarray; 

mem->pub. alloc_barray - alloc_barray; 

mem- >pub. r e que st_virt_s array = r equest_yir t_s array ; 
f ^nem->pub.request_virt_barray = request_virt_barray ; 
'':jnera->pub. real ize_virt_ar rays = realize_virt_arrays; 
"linem->pub.access_virt_s array = access_virt_sarray; 
fmem->pub.access_virt_barray = access_virt_barray; 
'^.=mem->pub. f ree_pool = f ree_pool ; 
'^=kem->pub.self„de struct = self_destruct; 

.r7* Make MAX_ALLOC_CHUNK accessible to other modules */ 
'^*fmem->pub.max_alloc_chunk = MAX„ALLOC__CHUWK ; 

-"h7* Initialize working state */ 
"mem- >pub . rnax_memo ry_ t o_u s e - max_t o_us e ; 

khfor (pool = JP00L_NUMP00LS-1; pool >= JPOOL_PERMA]SfENT ; pool — ) { 
^^5^ mem->small_list [pool] = NULL; 
mem->large_list [pool] = NULL; 

..mem->vi rt_sarray_list = NULL; 
J^5mem->virt_barray_list = NULL; 

^^^=^mem->total_space_al located = SIZEOF (ray_memory_mgr) ; 

/* Declare ourselves open for business */ 
cinfo->mem = & mem->pub; 

/* Check for an environment variable JPEGMEM; if found, override the 

* default max_memory setting from jpeg_mem_init . Note that the 

* surrounding application may again override this value. 

* If your system doesn't support getenvO, define NO_GETENV to disable 

* this feature. 
*/ 

#ifndef N0„getenv 
{ char memenv; 

if ((memenv = getenv { " JPEGMEM" ) ) 1= NULL) { 
char ch = 'x' ; 

if (sscanf (memenv, "%ld%c", &max_to__use , &ch) > 0) { 
if (ch 'm' II ch == 'M' ) 

max_to_use lOOOL; 
mem->pub.max_memory_to_use = max_to_use * lOOOL; 

} 

} 

} 

#endif 
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* jmemnobs . c 
* 

* Copyright (C) 1992-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 
* 

* This file provides a really simple implementation of the system- 

* dependent portion of the JPEG memory manager. This implementation 

* assumes that no backing-store files are needed: all required space 

* can be obtained from malloc ( ) , 

* This is very portable in the sense that it'll compile on almost anything, 

* but you'd better have lots of main memory (or virtual memory) if you want 

* to process big images. 

* Note that the max_memory_to_use option is ignored by this implementation. 
*/ 

#define JPEG_INTERNALS 
# include " j include .h" 
#include "jpeglib.h" 

ttinclude "jmemsys.h" /* import the system-dependent declarations */ 

#ifndef HAVE_STDLIB_H /* <stdlib.h> should declare malloc (), free ( ) */ 

extern void malloc JPP{{size_t size)); 
extern void free JPP{(void *ptr) ) ; 
#endif 



/* 

* Memory allocation and freeing are controlled by the regular library 

* routines malloc () and f ree { ) . 

& 

CESBAL{void *) 

jpf^g_get_small ( j_common_ptr cinfo, size_t sizeof object) 
l^:::return (void *) malloc (sizeof object) ; 

K 

GyOBAL{void) 

Jjgeg_free_small ( j_common_ptr cinfo^ void * object, size_t sizeof object ) 
■^^free (object) ; 



Ti 

J'^l "Large" objects are treated the same as "small" ones. 
V\ KB: although we include FAR keywords in the routine declarations, 
~* this file won't actually work in 80x86 small /medium model; at least, 
€y you probably won't be able to process useful-size images in only 64KB. 

M/ 

GLOBAL (void *) 

jpeg_get_large ( j_common_ptr cinfo, size_t sizeof object) 
{ 

return (void *) malloc (sizeof object ) ; 

} 

GLOBAL (void) 

jpeg—f re enlarge ( j_cominon_ptr cinfo, void * object, size_t sizeof object) 
{ 

free (object) ; 

} 



/* 

* This routine computes the total memory space available for allocation. 

* Here we always say, "we got all you want bud!" 
*/ 

GLOBAL (long) 

jpeg_mem_available ( j_common__ptr cinfo, long min_bytes_needed, 
long max_bytes_needed, long already_allocated) 

{ 

return max_bytes_needed; 

} 
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* Backing store (temporary file) management. 

* Since jpeg_mem_available always promised the moon, 

* this should never be called and we can just error out, 
*/ 

GLOBAL (void) 

jpeg_open_backing_store ( j„common_ptr cinfo, backing_store_ptr 
long total_bytes_needed) 

^ ERREXITicinfo, JERR_NO_BACKING_STORE) ; 
} 



* These routines take care of any system-dependent initialization and 

* cleanup required. Here, there isn't any. 
*/ 

GLOBAL (long) 

jpeg_mem_init ( j_common_ptr cinfo) 

^ return 0; /* just set max_memory_to_use to 0 */ 

} 

GLOBAL (void) 

jpeg„mera_term ( j_common_ptr cinfo) 
{ 

/* no work */ 

} 



/* 

* j quant l.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains 1-pass color quantization (color mapping) routines, 

* These routines provide mapping to a fixed color map using equally spaced 

* color values. Optional Floyd- Steinberg or ordered dithering is available, 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 

#ifdef QUANT_1PASS_SUPP0RTED 



* The main purpose of 1-pass quantization is to provide a fast, if not very 

* high quality, colormapped output capability. A 2-pass quantizer usually 

* gives better visual quality; however, for quantized grayscale output this ^ 

* quantizer is perfectly adequate. Dithering is highly recommended with this 

* quantizer, though you can turn it off if you really want to. 
* 

* In 1-pass quantization the colormap must be chosen in advance of seeing the 

* image. We use a map consisting of all combinations of Ncolors[i] color 

* values for the i'th component. The Ncolors[] values are chosen so that 

* their product, the total number of colors, is no more than that requested. 

* (In most cases, the product will be somewhat less.) 

^ Since the colormap is orthogonal, the representative value for each color 
M component can be determined without considering the other components; 

then these indexes can be combined into a colormap index by a standard 
m N-dimensional-array-subscript calculation. Most of the arithmetic involved 
m can be precalculated and stored in the lookup table color index[] . 

colorindex[i] [ j] maps pixel value j in component i to the nearest^ 
1 representative value (grid plane) for that component; this index is 
^ multiplied by the array stride for component i, so that the_ 
m index of the colormap entry closest to a given pixel value is just 
3 sum( colorindex [component-number] [pixel -component-value ] ) 
^'^ Aside from being fast, this scheme allows for variable spacing between 
^* representative values with no additional lookup cost. 
= ^ 

^* If gamma correction has been applied in color conversion, it might be wise 
O to adjust the color grid spacing so that the representative colors are 
m equidistant in linear space. At this writing, gamma correction is not 
implemented by jdcolor, so nothing is done here. 



Declarations for ordered dithering. 

* 

* We use a standard 16x16 ordered dither array. The basic concept of ordered 

* dithering is described in many references, for instance Dale Schumacher's 

* chapter II. 2 of Graphics Gems II (James Arvo, ed. Academic Press, 1991). 

* In place of Schumacher's comparisons against a "threshold" value, we add a 

* "dither" value to the input pixel and then round the result to the nearest 

* output value. The dither value is equivalent to (0.5 - threshold) times 

* the distance between output values. For ordered dithering, we assume that 

* the output colors are equally spaced; if not, results will probably be 

* worse, since the dither may be too much or too little at a given point. 
* 

* The normal calculation would be to form pixel value + dither, range-limit 

* this to 0. .MAXJSAMPLE, and then index into the colorindex table as usual. 

* We can skip the separate range-limiting step by extending the colorindex 

* table in both directions. 
*/ 

#define ODITHER_SIZE 16 /* dimension of dither matrix */ 
/* NB- if ODITHER_SIZE is not a power of 2, ODITHER_MASK uses will break */ 
#define ODITHER_CELLS (ODITHER_SIZE*ODITHER_SIZE) /* # cells in matrix */ 
#define ODITHERjy[ASK (0DITHER„SIZE-1) /* mask for wrapping around counters */ 

typedef int ODITHER_MATRIX [ODITHER_SIZE] [ODITHER_SIZE] ; 
typedef int ( *ODITHER_MATRIX_PTR) [ODITHER_SIZE] ; 

static const UINT8 base_dither_matrix [ODITHER_SIZE] [ODITHER_.SIZE] = { 
/* Bayer's order- 4 dither array. Generated by the code given m 
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* Stephen Hawley's article "Ordered Dithering" in Graphics Gems I, 

* The values in this array must range from 0 to 0DITHER_CELLS-1 . 
*/ 

{ 0,192. 48,240, 12,204, 60,252, 3,195, 51,243, 15,207, 63,255 } 
{ 128, 64,176,112,140, 76,188,124,131, 67,179,115,143, 79,191,127 } 
{ 32,224, 16,208, 44,236, 28,220, 35,227, 19,211, 47,239, 31,223 } 
{ 160, 96,144, 80,172,108,156, 92,163, 99,147, 83,175,111,159, 95 } 
{ 8,200, 56,248, 4,196, 52,244, 11,203, 59,251, 7,199, 55,247 } 
{ 136, 72,184,120,132, 68,180,116,139, 75,187,123,135, 71,183,119 } 
{ 40,232, 24,216, 36,228, 20,212, 43,235, 27,219, 39,231, 23,215 } 
{ 168,104,152, 88,164,100,148, 84,171,107,155, 91,167,103,151, 87 } 
{ 2,194, 50,242, 14,206, 62,254, 1.193, 49,241, 13,205, 61,253 } 
{ 130, 66,178,114,142, 78,190,126,129, 65,177,113,141, 77,189,125 } 
{ 34,226, 18,210, 46,238, 30,222, 33,225, 17,209, 45,237, 29,221 } 
{ 162, 98,146, 82,174,110,158, 94,161, 97,145, 81,173,109,157, 93 } 
{ 10,202, 58,250, 6,198, 54,246, 9,201, 57,249, 5,197, 53,245 } 
{ 138, 74,186,122,134, 70,182,118,137, 73,185,121,133, 69,181,117 } 
{ 42,234, 26,218, 38,230, 22,214, 41,233, 25,217, 37,229, 21,213 } 
{ 170,106,154, 90,166,102,150, 86,169,105,153, 89,165,101,149, 85 } 



/* Declarations for Floyd-Steinberg dithering. 
* 

* Errors are accumulated into the array fserrors[], at a resolution of 

* l/16th of a pixel count. The error at a given pixel is propagated 

* to its not-yet-processed neighbors using the standard F-S fractions, 

* ... (here) 7/16 

* 3/16 5/16 1/16 

* We work left-to-right on even rows, right-to-left on odd rows. 
* 

We can get away with a single array (holding one row's worth of errors) 
Id by using it to store the current row's errors at pixel columns not yet 

processed, but the next row's errors at columns already processed. We 
3^ need only a few extra variables to hold the errors immediately around the 

current column. (If we are lucky, those variables are in registers, but 

even if not, they're probably cheaper to access than array elements are.) 

-*j 

*^ The fserrors[] array is indexed [component*] [position] . 
W We provide (#columns + 2) entries per component; the extra entry at each 
.|*^: end saves us from special-casing the first and last pixels. 

Note: on a wide image, we might not have enough room in a PC's near data 
£.* segment to hold the error array; so it is allocated with alloc_large. 

iJf BITS_IN„JSAMPLE 8 
tliUpedef INT16 FSERROR; 
fc'^edef int LOCFSERROR; 

IfrQ X s Q 

^Ipedef INT3 2 FSERROR; 
typedef INT3 2 LOCFSERROR ; 
%^ndif 

typedef FSERROR *FSERRPTR; 



/* Private subobject */ 
#define iy[AX_Q_COMPS 4 



/* 16 bits should be enough */ 
/* use 'int' for calculation temps */ 

/* may need more than 16 bits */ 
/* be sure calculation temps are big enough */ 

/* pointer to error array (in FAR storage!) */ 
/* max components I can handle */ 



typedef struct { 

struct jpeg_color_quantizer pub; /* public fields */ 

/* Initially allocated colormap is saved here */ 

JSAMPARRAY sv_colormap; /* The color map as a 2-D pixel array */ 
int sv„actual; /* number of entries in use */ 

JSAMPARRAY colorindex; /* Precomputed mapping for speed */ 

/* colorindex[i] [ j ] = index of color closest to pixel value j in component i, 

* premultiplied as described above. Since colormap indexes must fit into 

* JSAl^IPLEs, the entries of this array will too, 
*/ 

boolean is_padded; /* is the colorindex padded for odither? */ 

int Ncolors [MZUC_Q_COMPS] ; /* # of values alloced to each component */ 
/* Variables for ordered dithering */ 

int row_index; /* cur row's vertical index in dither matrix */ 

ODITHER_MATRIX_PTR odither [MAX_Q_COMPS ] ; /* one dither array per component */ 
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/* Variables for Floyd-Steinberg dithering */ 
FSERRPTR f s errors [MAX_Q_COMPS] ; /* accumulated errors */ 
boolean on_odd„row; /* flag to remember which row we are on */ 

} my_cquantizer ; 

typedef my_cquantizer * my_cquantize_ptr ; 



^ Policy-making subroutines for create_colormap and create_colorindex. 

^ These routines determine the colormap to be used. The rest of the module 

• only assumes that the colormap is orthogonal. 

f * select_ncolors decides how to diwy up the available colors 

' among the components . ^ 4- 

^ * output„value defines the set of representative values for a component. 

^ * largest„input_value defines the mapping from input values to 

^ representative values for a component. ^ ^ 

' Note that the latter two routines may impose different policies for 

^ different components, though this is not currently done. 



LOCAL (int) . ^ ^ nx 

select_ncolors ( j_decompress jtr cmfo, mt NcolorsLJ) 
/* Determine allocation of desired colors to components, */ 
/* and fill in Ncolors[] array to indicate choice. */ 

/* Return value is total number of colors (product of Ncolors[] values). / 

^ int nc = cinfo->out_color_components; /* number of color components */ 
"■"""Int max_colors = cinf o->desired_number_of_colors ; 
"^int total_colors , iroot, i, j; 
^-^fcoolean changed; 

i:|tatic^ const int RGB_order[3] = { RGB_GREEN, RGB_RED, RGB_BLUE }; 

-J/* We can allocate at least the nc'th root of max_colors per component. */ 
_y* Compute floor{nc'th root of max_colors) . */ 
^firoot = 1; 

'i-:do { 

iri;ii iroot++; 

''''' temp - iroot; /* set temp = iroot ** nc */ 

for (i = 1; i < nc ; i+ + ) 
Lh temp iroot; . *. * / 

L.} while (temp <= (long) max_colors) ; /* repeat till iroot exceeds root */ 
^==^lroot--; now iroot = floor (root) */ 

11/* Must have at least 2 color values per component */ 
„:?if (iroot < 2) . . v 

Q ERREXITl (cinfo, JERR_QUANT_FEW_COLORS , (mt) temp); 

"''V* Initialize to iroot color values for each component */ 
total_colors = 1; 
for (i = 0; i < nc; i++) { 
Ncolors[i] = iroot; 
total_colors *= iroot; 

/* We may be able to increment the count for one or more components without 

* exceeding max_colors, though we know not all can be incremented. 

* Sometimes, the first component can be incremented more than once! 

* (Example: for 16 colors, we start at 2*2*2, go to 3*2*2, then 4*2*2.) 

* In RGB col or space, try to increment G first, then R, then B. 

*/ 
do { 

changed = FALSE; 

for (i = 0; i < nc; i+ + ) { ^ r • • 

j = {cinfo->out_color_space == JCS_RGB ? RGB_order[i] : 1); 
/* calculate new total_colors if Ncolors[j] is incremented */ 
temp = total„colors / Ncolors[j]; , ^-i 4. / 

temp ^= Ncolors[ j ]+l; /* done in long arith to avoid oflo */ 
if (temp > (long) max„colors) 

break; /* won't fit, done with this pass */ 

Ncolors[j]++; /* OK, apply the increment */ 

total„colors = (int) temp; 
changed = TRUE; 

} 

} while (changed) ; 
return total„colors ; 
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} 



LOCAL (int) 

output_value ( j„decompress_ptr cinfo, mt ci, mt 3, mt max] j 

/* Return j ' th output value, where j will range from 0 to max3 / 

/* The output values must fall in 0 . .MAXJSAMPLE in increasing order 

^ /* We always provide values 0 and MAXJSAMPLE for each component; 

* any additional values are equally spaced between these limits. 

* (Forcing the upper and lower values to the limits ensures that 

* dithering can't produce a color outside the selected gamut.) 



return (int) ({(INT32) j * MAXJSAMPLE + maxj/2) / max: ) ; 



} 



largest_input_value { j„decompress^tr cinfo, mt ci, mt 3, int max:) 
/* Return largest input value that should map to j ' th output value / 
/* Must have largest{j=0) >= 0, and largest {j=:maxj ) >:= MAXJSAMPLE */ 

^ /* Breakpoints are halfway between values returned by output_value */ 
return (int) (((INT32) (2*j + 1) * MAXJSAMPLE + max j ) / (2*maxj)); 

} 



/* 

* Create the colormap. 
4/ 



LC^AL(void) 

<peate_coloriuap { j_decompress^tr cinfo) 

^;:ky_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
C"jSAMPARRAY colormap; /* Created colormap */ 

"■"^■int total_colors; /* Number of distinct output colors */ 

4^Sint i,j,k, nci, blksize, blkdist, ptr, val; 

r^'V* Select number of colors for each component */ 

^' -^^total^colors = select_.ncolors (cinf o, cquantize->Ncolors) ; 

■; .,/* Report selected color counts */ 

^'^'^if (cinfO">out„color„components =- 3) 

fli TRACEMS4 (cinfo, 1, JTRC_QUANT_3^C0L0RS , 

S'i total_colors, cquantize->Ncolors [0] , 

cquantize->Ncolors [1] , cquantize->Ncolors [2] ) ; 

"^Jelse 

r'^ TRACEMSK cinfo, 1, JTRC_QUANT_NCOLORS , total_colors) ; 

O/* Allocate and fill in the colormap. */ 

/* The colors are ordered in the map in standard row-maj or order , */ 
/* i.e. rightmost (highest-indexed) color changes most rapidly. */ 

colormap = ( *cinfo->mem->alloc_s array) 
( ( j_common_ptr) cinfo, JPOOL„IMAGE, 
(JDIMENSION) total_colors, (JDIMENSION) cinf o->out_color_coraponents ) ; 

/* blksize is number of adjacent repeated entries for a component */ 

/* blkdist is distance between groups of identical entries for a component */ 

blkdist = total_colors; 

for (i = 0; i < cinf o->out_color„components ; i++) { 

/* fill in colormap entries for i ' th color component */ 

nci - cquantize->Ncolors[i] ; /* # of distinct values for this color */ 

blksize =: blkdist / nci; 

for (j =^ 0; j < nci; j++) { 

/* Compute j'th output value (out of nci) for component */ 

val = output_value (cinfo, i, j, nci-1) ; 

Fill in all colormap entries that have this value of this component */ 

for {ptr = j * blksize; ptr < total.colors ; ptr +- blkdist) { 
/* fill in blksize entries beginning at ptr */ 
for (k = 0; k < blksize; k++) 

colormap [i] [ptr+k] = (JSAMPLE) val; 

} 

blkdist = blksize; /* blksize of this color is blkdist of next */ 

} 

/* Save the colormap in private storage, 
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* where it will survive color quantization mode changes, 
*/ 

cquantize->sv_colonnap = colormap; 
cquantize->sv„actual = total_colors ; 

} 



/* 

* Create the color index table. 
*/ 

LOCAL (void) 

create_colorindex ( j_decompress_ptr cinfo) 

my_cquanti2e_ptr cquantize = (my.cquantizejtr) cinf o->cquantize; 

JSAMPROW indexptr; 

int i,j,k, nci, blksize, val, pad; 

/* For ordered dither, we pad the color index tables by MAXJSAMPLE in 

* each direction (input index values can be -MAXJSAMPLE 2*MAXJSAMPLE) . 

* This is not necessary in the other dithering modes. However, we 

* flag whether it was done in case user changes dithering mode. 
*/ 

if (cinfo->dither_mode == JDITHER_ORDERED) { 

pad = MAXJSAMPLE*2; 

cquantize->is_padded = TRUE; 
} else { 

pad = 0; 

cquantize->is_padded = FALSE; 

.J 

15cquantize->colorindex = ( *cinf o->mem->alloc„sarray) 

( ( j^coimr.on^tr) cinfo, JPOOL„IMAGE, 
yl (JDIMENSION) (MAXJSAMPLE+1 + pad) , 
_n (JDIMENSION) cinfo->out_color_components) ; 

'"-J/* blksize is number of adjacent repeated entries for a component */ 
:ii;blksize = cquantize->sv„actual ; 

"-■for (i = 0; i < cinf o->out„color_components; i++) { 
^-'^ /* fill in colorindex entries for i'th color component */ 
""^ nci - cquantize->Ncolors[i] ; /* # of distinct values for this color */ 
blksize = blksize / nci; 

'ri /* adjust colorindex pointers to provide padding at negative indexes. */ 

if (pad) 

v cquancize->colorindex[i] += MAXJSAMPLE; 

/* in loop, val = index of current output value, */ 
/* and k = largest j that maps to current val */ 
C: indexptr = cquantize->colorindex [i] ; 
val - 0 ; 

k= largest„input_value (cinfo, i, 0, nci-1) ; 
for (j = 0; j <= MAXJSAMPLE; j++) { 

while (j > k) /* advance val if past boundary */ 

k= largest_input_value (cinfo, i, ++val, nci-1); 

premultiply so that no multiplication needed in mam processing */ 

indexptr[jl = (JSAMPLE) (val * blksize); 

/* Pad at both ends if necessary */ 

if (pad) 

for (j = 1; j <= MAXJSAMPLE; j++) { 
indexptr[-j] = indexptr[0]; 

indexptr [MAXJSAMPLE+j] = indexptr [MAXJSAMPLE] ; 

} 

} 

} 



* Create an ordered-dither array for a component having ncolors 

* distinct output values. 
*/ 

LOCAL (ODITHER„MATRIX_PTR) 

make_odither_array ( j_decompress^tr cinfo, int ncolors) 
ODITHER„MATRIX_PTR odither; 

int j , k ; 

INT32 num.den; 
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odither = (ODITHER_MATRIX_PTR) 

(*cinfo->mem->alloc_small) ( ( j_common^tr) cinfo, JPOOL_IMAGE, 
SIZEOF(0DITHER_MATRIX) ) ; 
/* The inter-value distance for this color is MAXJSAMPLE/ (ncolors-1) . 

* Hence the dither value for the matrix cell with fill order f 

* (f-O..N-l) should be {N-l-2*f ) / (2*N) * MAXJSAMPLE/ (ncolors-1) . 

* On 16-bit-int machine, be careful to avoid overflow. 
*/ 

den = 2 * ODITHER_CELLS * ((INT32) (ncolors - 1) } ; 
for (j = 0; j < ODITHER„SIZE; { 
for (k - 0; k < ODITHER_SIZE; k++) { 

num - ((INT32) (0DITHER_CELLS-1 - 2* ( ( int) base„dither_matrix [ j ] [k] ) ) ) 
^ M^^XJSAMPLE; 

/* Ensure round towards zero despite C's lack of consistency 
* about rounding negative values in integer division... 

*/ 

odither [j] [k] = (int) (num<0 ? -{ (-num) /den) : num/ den ) ; 

} 

} 

return odither; 



/* 

* Create the ordered-dither tables. 

* Components having the same number of representative colors may 

* share a dither table. 
*/ 

LOCAL (void) 

efeate_odither_tables ( j_.de compress_p tr cinfo) 

■i^by_cquantize_ptr cquantize = (my„cquantize__ptr ) cinf o->cquantlze; 
|lODITHER_MATRIX_PTR odither; 
, ^vdnt i , j , nci ; 

''4for (i = 0; i < cinf o->out_color„components; i++) { 

.A nci = cquantize->Ncolors [i] ; /* # of distinct values for this color */ 

odither = NULL; /* search for matching prior component */ 

y3 for (j=0;j<i;j++) { 
nil if (nci == cquantize->Ncolors [ j] ) { 
''^ odither = cquantize->odither [ j ] ; 
^ break; 

if (odither == NULL) /* need a new table? */ 
111 odither = make_odither_ar ray (cinfo, nci); 
l ^; cquantize->odither [i] = odither; 

:!} 



* Map some rows of pixels to the output colormapped representation. 
*/ 

METHODDEF(void) 

color__quantize ( j_decompress^tr cinfo, JSAMPARRAY input_buf, 

JSAMPARRAY output_buf , int num_rows) 
/* General case, no dithering */ 

^ my_cquantize_ptr cquantize = (my_cquantize_ptr) cinf o->cquantize; 
JSAMPARRAY color index = cquantize->colorindex; 
register int pixcode, ci; 
register JSAMPROW ptrin, ptrout; 
int row; 
JDIMENSION col; 

JDIMENSION width = cinfo->output_width; 
register int nc = cinf o->out_color„components ; 

for (row - 0; row < num_rows; row++) { 
ptrin = input_buf [row] ; 
ptrout = output_buf [row] ; 
for (col = width; col > 0; col — ) { 

pixcode = 0; 

for (ci = 0; ci < nc; ci++) { 
pixcode += GETJSAMPLE{colorindex[ci] [GETJSAMPLE(*ptrin++) ] ) ; 

} 

*ptrout++ = (JSAMPLE) pixcode; 
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} 

} 

} 



METHODDEF (void) . ^ ^ 

color_quantize3 {j_decompress_ptr cinfo, JSAMPARRAY mput^buf, 

JSAMPARRAY output_buf, int num_rows) 
/* Fast path for out_color_components=-3 , no dithering */ 

^ my_cquanti2e^tr cquantize = {my_cquantize_ptr ) cinf o->cquantize; 
register int pixcode; 
register JSAMPROW ptrin, ptrout; 

JSAMPROW colorindexO = cquantize->colorindex[0] ; 
JSAMPROW colorindexl = cquantize->colorindex[l] ; 
JSAMPROW colorindex2 = cquantize->colorindex [2] ; 
int row; 
JDIMENSION col; 

JDIMENSION width = cinfo->output_width; 

for (row = 0; row < nuru_rows; row++) { 
ptrin - input_buf [row] ; 
ptrout = output_buf [ row] ; 

for (col = width; col > 0; col--) { . 

pixcode = GET JSAMPLE (colorindexO [GETJSAMPLE (*ptrin++) ] ) ; 
pixcode += GETJSAMPLE (colorindexl [GETJSAMPLE (*ptrin++) ]) ; 
pixcode += GETJSAMPLE { color index2 [GETJSAMPLE (*ptrin++) 3 ) ; 
*ptrout++ - (JSAMPLE) pixcode; 



} 



} 



jliTHODDEF(void) ^ . ^ i_ ^ 

^antize_ord_dither ( j_decompress_ptr cmfo, JSAMPARRAY input_but, 
JSAMPARRAY output_buf , int num_rows) 
General case, with ordered dithering */ 

%l 

,£^my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 

register JSAMPROW input_ptr? 
y!|register JSAMPROW output_ptr; 

^i ;: JSAMPROW colorindex„ci ; ^ . + y 

'""'int * dither; /* points to active row of dither matrix */ 

- int row_index, col_index; /* current indexes into dither matrix */ 
y;:int nc = cinf o->out_color„components; 

int ci; 

int row; 
nij JDIMENSION col; 

11 JDIMENSION width = cinf o->output_width; 

Clfor (row = 0; row < nurrurows; row++) { ^ i */ 

^i /* Initialize output values to 0 so can process components separately / 
jzero_far( {void *) output_buf [row] , 

(size_t) (width * S I ZEOF (JSAMPLE) )) ; 
row_index = cquantize->row_index; 
for (ci = 0; ci < no; ci++) ( 

input_ptr = input„buf [row] + ci; 
output_ptr = output_buf [row] ; 
colorindex__ci = cquantize->colorindex [ci] ; 
dither = cquantize->odither [ci ] [row_index] ; 
col_index = 0; 

for (col = width; col > 0; col--) { 
/* Form pixel value + dither, range-limit to 0 . .MAXJSAMPLE, 

* <:^elect output value, accumulate into output code for this pixel, 

* Range-limiting need not be done explicitly, as we have extended 

* the colorindex table to produce the right answers for out-of -range 

* inputs. The maximum dither is +- MAXJSAMPLE; this sets the 

* required amount of padding, 

* / 

*output_ptr += colorindex_ci [GETJSAMPLE (*inputjtr)+dither[col„index] ] ; 

input_ptr += nc; 

output_ptr-H+; 

COl_index = (col_index + 1) & ODITHER_MASK; 
} 

/* Advance row index for next row */ 
row_index = (row_index + 1) & ODITHER„MASK; 
cquantize->row_index = row_index; 
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METHODDEF (void) . ^ 

quantize3_ord„dither ( j_deconipress_ptr cinfo, JSAMPARRAY input_buf, 

JSAMPARRAY output_buf, int num_rows) 
/* Fast path for out_color_components==:3 , with ordered dithering */ 

^ my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 
register int pixcode; 
register JSAMPROW input_ptr; 
register JSAMPROW output_ptr; 

JSAMPROW colorindexO = cquantize->colorindex [ 0 ] ; 
JSAMPROW colorindexl = cquantize->colorindex [1] ; 
JSAMPROW colorindex2 = cquantize->colorindex [2 ] ; 

int * ditherO; /* points to active row of dither matrix */ 

int * ditherl; 

int * dither2; . ^. ^ ^ . + / 

int row„index, col_index; /* current indexes into dither matrix */ 

int row; 
JDIMENSION col; 

JDIMENSION width = cinf o->output_width; 

for {row = 0; row < num_rows; row++) { 
row_index - cquantize->row_index; 
input„ptr = input_buf [row] ; 
output_ptr = output_tauf [row] ; 
ditherO = cguantize->odither [ 0] [row_index] ; 
ditherl = cquantize->odither [ 13 [row_index] ; 
dither2 = cquantize->odither[2] [row_index] ; 
col_index ~ 0; 

M fQj- (col = width; col > 0; col--) { 

pixcode = GET JSAMPLE (colorindexO [GET JSAMPLE ( *input_ptr++} + 
ditherO [col_index3 ] ) ; 
't' pixcode += GETJSAMPLE(colorindexl[GETJSAMPLE(*input_^tr++) + 

ditherl [col_index] 3 ) ; 
\l pixcode += GETJSAMPLE(colorindex2[GETJSA]^PLE{*input_ptr++) + 
dither 2 [col_index] ] ) ; 
*output_ptr++ - (JSAMPLE) pixcode; 
y:i col_index = {col__index + 1} & ODITHER_MASK; 

^'^^ row_index = (row_index + D & ODITHER_MASK; 
=; cquantize->row_index - row_index; 

1. 



iifeTHODDEF (void) . 
j|tiantize_fs„dither { j_decompress_ptr cinfo, JSAMPARRAY input_buf, 

JSAMPARRAY output_buf, int num_rows) 
.^i General case, with Floyd- Steinberg dithering */ 

my_cquantxze_ptr cquantize = (my_cquantize_ptr ) cmf o->cquantize; 

register LOCFSERROR cur; /* current error or pixel value */ 

LOCFSERROR belowerr; /* error for pixel below cur */ 

LOCFSERROR bpreverr; /* error for below/prev col */ 

LOCFSERROR bnexterr; /* error for below/next col */ 

LOCFSERROR delta; ^ ^ 

register FSERRPTR errorptr; /* => fserrors[] at column before current 

register JSAMPROW input__ptr; 

register JSAMPROW output_ptr; 

JSAMPROW color index_ci; 

JSAMPROW colormap_ci; 

int pixcode; 

int nc = cinf o->out_color_components; 

int dir; /* 1 for left-to-right, -1 for right-to-left */ 

int dirnc; /* dir * nc */ 

int ci; 
int row; 
JDIMENSION col; 

JDIMENSION width = cinf o->output_width; 

JSAMPLE *range_limit = cinf o->sample_range_limit ; 

SHIFT„TEMPS 

for (row = 0; row < num_rows; row++) { 

/* Initialize output values to 0 so can process components separately 
jzero_far ( (void *) output_buf [row] , 

(size_t) (width * S I ZEOF (JSAMPLE) )) ; 
for (ci = 0; ci < nc; ci++) { 
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input^tr = input_buf [row] + ci; 
output_ptr = output_buf [row] ; 
if (cquantize->on_odd_row) { 
/* work riglat to left in tliis row */ 

input_ptr (width-1) * no; /* so point to rightmost pixel */ 
output jtr += width-1; 
dir = -1; 

dirnc = -nc ; ^ . ^ , 

errorptr = cquantize->f serrors [ci] + (width+1) ; /* => entry after last column */ 

} else { 

/* work left to right in this row */ 
dir = 1; 
dirnc = nc; 

errorptr = cquanti2e->f serrors [ci] ; /* => entry before first column */ 

colorindex_ci - cquantize->colorindex[ci] ; 
colormap_ci = cquantize->sv_colormap [ci] ; 

/* Preset error values: no error propagated to first pixel from left */ 

cur = 0 ; 

/* and no error propagated to row below yet */ 
belowerr = bpreverr - 0; 

for (col = width; col > 0; col — ) { 
/* cur holds the error propagated from the previous pixel on the 

* current line. Add the error propagated from the previous line 

* to form the complete error correction term for this pixel, and 

* round the error term (which is expressed * 16) to an integer. 

* RIGHT_SHIFT rounds towards minus infinity, so adding 8 is correct 

* for either sign of the error value. 

* Note: errorptr points to *previous* column's array entry, 

*/ 

cur RIGHT_SHIFT(cur + errorptr [dir] + 8, 4) ; 

/* Form pixel value + error, and range-limit to 0 . . MAXJSAMPLE . 

* The maximxim error is +- MAXJSAMPLE; this sets the required size 

* of the range„limit array. 
*/ 

cur += GETJSAMPLE{*input_ptr) ; 

cur = GETJSAMPLE(range„limit [cur] ) ; 

/* Select output value, accumulate into output code for this pixel */ 
pixcode = GETJSAMPLE (colorindex„ci [cur] ) ; 
*output_ptr += (JSAMPLE) pixcode; 

/* Compute actual representation error at this pixel 

/* Note: we can do this even though we don't have the final */ 

/* pixel code, because the colormap is orthogonal. */ 

cur -= GET JSAMPLE {CO lormap_ci [pixcode] ) ; 

/* Compute error fractions to be propagated to adjacent pixels. 

* Add these into the running sums, and simultaneously shift the 

* next-line error sums left by 1 column. 

*/ 

bnexterr = cur; 
delta = cur * 2; 

cur delta; /* form error * 3 */ 

errorptr [0] = (FSERROR) (bpreverr + cur); 
cur += delta; /* form error * 5 */ 

bpreverr = belowerr + cur; 
belowerr = bnexterr; 

cur += delta; /* form error * 7 */ 

/* At this point cur contains the 7/16 error value to be propagated 

* to the next pixel on the current line, and all the errors for the 

* next line have been shifted over. We are therefore ready to move on. 
*/ 

input_ptr += dirnc; /* advance input ptr to next column */ 
output_ptr dir; /* advance output ptr to next coliunn */ 
errorptr +- dir; /* advance errorptr to current column */ 

/•^ Post-loop cleanup: we must unload the final error value into the 

* final fserrors[] entry. Note we need not unload belowerr because 

* it is for the dummy column before or after the actual array. 

*/ 

errorptr [0] = (FSERROR) bpreverr; /* unload prev err into array */ 
cquantize->on_odd_row = (cquantize->on_odd„row ? FALSE ; TRUE); 



/* 

* Allocate workspace for Floyd- Steinberg errors. 
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LOCAL (void) 

alloc_f s_workspace ( j_decoinpress_ptr cinfo) 

my_cquantize_^tr cquantize = (my_cquantize_ptr) cinf o->cquantize ; 
size_t arrays ize; 
int i; 

arraysize = (size_t) ( (cinfo ->output_width + 2) * SI ZEOF (FS ERROR) ) ; 
for (i = 0; i < cinf o->out_color_components; i++) { 
cquantize->fserrors [i] = (FSERRPTR) 

{*cinfo->mem->alloc_large) ( ( j_common_ptr) cinfO; JPO0L_IMAGE, arraysize) 

} 



* Initialize for one-pass color quantization. 
*/ 

METHODDEF{void) 

start_pass_l_quant { j_decompress_ptr cinfo, boolean is_pre_scan) 

niy_cquantize__ptr cquantize = {my_cquantize_j)tr ) cinf o->cquantize; 
size„t arraysize; 
int i; 

/* Install my colormap. */ 

cinf o->colormap = cquantize->sv_colormap; 

cinf o~>actual_number_of_colors = cquanti2e->sv„actual ; 

/* Initialize for desired dithering mode. */ 
,;-_switch (cinf o->dither„mode) { 
£jcase JDITHER_NONE: 

iiJ if (cinf o->out_color__components ==3) 

2^ cquantize->pub. color_quantize = color_quantize3 ; 

else 

4j cquantize->pub.color_quantize = color_quantize; 
^ ij break; 

;?case JDITHER_ORDERED : 

^11 if (cinf o->out_color_components == 3) _ 

cquantize->pub, color_quantize = quant ize3_ord_dit her; 

else 

TiJ cquantize->pub. color_quantize = quantize_ord_dither ; 

cquantize->row_index = 0; /* initialize state for ordered dither */ 

/* If user changed to ordered dither from another mode, 
H= * must recreate the color index table with padding. 
O * This will cost extra space, but probably isn't very likely. 
^\ */ 

if (! cquanti2e->is_padded) 
create„col or index {cinf o) ; 

/★ Create ordered-dither tables if we didn't already. */ 
'z.l if (cquantize->odither [0] == HULL) 
%J create_odither_tables (cinf o) ; 

break; 
case JDITHER_FS: 

cquantize->pub.color_quantize = quantize_f s_dither; 

cquantize->on_odd_row = FALSE; /* initialize state for F-S dither */ 
/* Allocate Floyd- Steinberg workspace if didn't already. */ 
if (cquantize->f serrors [0] NULL) 

alloc_f s_.workspace (cinfo) ; 
/* Initialize the propagated errors to zero. */ 

arraysize = (size_t) ( (cinfo->output_width + 2} * SIZEOF (FSERROR) ) ; 
for (i = 0; i < cinf o->out_color„components ; i++) 

jzero_far ( (void *) cquantize->f serrors [i] , arraysize); 
break; 
default : 

ERREXIT (cinfo , JERR_NOT_COMPILED) ; 
break; 

} 

} 



* Finish up at the end of the pass. 
*/ 

METHODDEF(void) 

f inish_pass_l_quant ( j_decompress_ptr cinfo) 
{ 

/* no work in 1-pass case */ 
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} 



/* 

* Switch to a new external colormap between output passes. 

* Shouldn't get to this module I 
*/ 

METHODDEF (void) 

new_color_map_l_quant ( j_decompress_ptr cinfo) 
{ 

ERREXIT (cinfo , JERR_MODE_CHANGE ) ; 

} 



* Module initialization routine for 1-pass color quantization. 
*/ 

GLOBAL (void) 

jinit_lpass_quantizer { :,„decompress_ptr cinfo) 
{ 

my_c quant ize^tr cquantize; 

cquantize = {my_cquantize_ptr) 

(*cinfo->mem->alloc„small) ( ( j_commonjtr) cinfo, JPOOL_IMAGE, 
SI2E0F {ny_cquantizer) ) ; 
cinf o->cquantize = (struct jpeg_color_quantizer *) cquantize; 
cquantize->pub.start_pass = start_pass_l_quant ; 
cquantize->pub.finish„pass = f inish_pass_l_quant; 
cquantize->pub.new_color_map = new_color_map_l_quant; 
.=.cquantize->fserrors [C] = NULL; /* Flag FS workspace not allocated */ 
^-■cquantize->odither [0] = NULL; /* Also flag odither arrays not allocated 

f?i:/* Make sure my internal arrays won't overflow */ 
''■^'if (cinfo->out_color_components > MAX_Q_COMPS) 
J3 ERREXITl (cinfo, JERR_QUANT_COMPONENTS , MAX_Q„COMPS) ; 
- ,7* Make sure colormap indexes can be represented by JSAMPLEs */ 
„^'if (cinf o->desired_nuraber_of__colors > (MAXJSAMPLE+1) ) 

ERREXITl (cinfo, JERR_QUANT_MANY_COLORS , MAXJSAMPLE+1 } ; 

JV* Create the colormap and color index table. */ 

^-'create_colormap {cinf o ) ; 
s: create_colorindex (cinf o) ; 

:!'!/* Allocate Floyd-Steinberg workspace now if requested. 
CS * We do this now since it is FAR storage and may affect the memory 
pil * manager's space calculations. If the user changes to FS dither 
* mode in a later pass, we will allocate the space then, and will 
"•■| * possibly overrun the max_memory„to_use setting. 

^;;if (cinfo->dither_mode JDITHER_FS) 
alloc_f s_workspace (cinfo) ; 

} 

#endif QUANT_1PASS__SUPP0RTED */ 
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/* 

* jquant2.c 
* 

* Copyright (C) 1991-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains 2-pass color quantization (color mapping) routines. 

* These routines provide selection of a custom color map for an image, 

* followed by mapping of the image to that color map, with optional 

* Floyd-Steinberg dithering. 

* It is also possible to use just the second pass to map to an arbitrary 

* externally-given color map. 
* 

* Note: ordered dithering is not supported, since there isn't any fast 

* way to compute intercolor distances; it's unclear that ordered dither's 

* fundamental assumptions even hold with an irregularly spaced color map. 
*/ 

#define JPEG_INTERNALS 
#include "j include. h" 
#include "jpeglib.h" 

#ifdef QUANT_2PASS_SUPP0RTED 



* This module implements the well-known Heckbert paradigm for color 

* quantization. Most of the ideas used here can be traced back to 

* Heckbert 's seminal paper . -, ., 

* Heckbert, Paul. "Color Image Quantization for Frame Buffer Display , 
Proc. SIGGRAPH '82, Computer Graphics v. 16 #3 (July 1982), pp 297-304. 

tfi In the first pass over the image, we accumulate a histogram showing the 
^ usage count of each possible color. To keep the histogram to a reasonable 
size, we reduce the precision of the input; typical practice is to retain 
5 or 6 bits per color, so that 8 or 4 different input values are counted 
'"^4 in the same histogram cell. 

Next the color-selection step begins with a box representing the whole 
color space, and repeatedly splits the "largest" remaining box until we 
m have as many boxes as desired colors. Then the mean color m each 
remaining box becomes one of the possible output colors. 

s * 

The second pass over the image maps each input pixel to the closest output 
color (optionally after applying a Floyd-Steinberg dithering correction) . 
' ' This mapping is logically trivial, but making it go fast enough requires 



PI considerable care. 
1 '* 

y Heckbert-style quantizers vary a good deal in their policies for choosing 
ti the "largest" box and deciding where to cut it. The particular policies 
ri used here have proved out well in experimental comparisons, but better ones 

~^ may yet be found. 
* 

* In earlier versions of the IJG code, this module quantized in YCbCr color 

* space, processing the raw upsampled data without a color conversion step. 

* This allowed the color conversion math to be done only once per colormap 

* entry, not once per pixel. However, that optimization precluded other 

* useful optimizations (such as merging color conversion with upsamplmg) 

* and it also interfered with desired capabilities such as quantizing to an 

* externally-supplied colormap. We have therefore abandoned that approach. 

* The present code works in the post-conversion color space, typically RGB. 
* 

* To improve the visual quality of the results, we actually work in scaled 

* RGB space, giving G distances more weight than R, and R in turn more than 

* B. To do everything in integer math, we must use integer scale factors. 

* The 2/3/1 scale factors used here correspond loosely to the relative 

* weights of the colors in the NTSC grayscale equation. 

* If you want to use this code to quantize a non-RGB color space, you'll 

* probably need to change these scale factors. 
*/ 

#define R_SCALE 2 /* scale R distances by this much */ 

#define G_SCALE 3 /* scale G distances by this much */ 

#define B_SCALE 1 /* and B by this much */ 

/* Relabel R/G/B as co-Donents 0/1/2, respecting the RGB ordering defined 

* in jmorecfg.h. As me code stands, it will do the right thing for R,G,B 

* and B,G,R orders. 1l you define some other weird order in jmorecfg.h, 

* you'll get compile errors until you extend this logic. In that case 
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* you'll probably wane to tweak the histogram sizes too. 
*/ 

#if RGB_RED == 0 
#define CO_SCALE R_SC; :.E 
#endif 

#if RGB__BLUE == 0 
#define CO_SCALE B_SCALE 
#endif 

#if RGB_GREEN == 1 
tdefine Cl_SCALE G^SCA^.E 
iendif 

#if RGB_RED == 2 
#define C2_SCALE R_SCAI-3 
#endif 

#if RGB_BIiUE ==2 
#define C2_SCALE B_SCALE 
#endif 



* First we have the histogram data structure and routines for creating it. 
* 

* The number of bits of precision can be adjusted by changing these syinbols. 

* We recommend keeping 6 bits for G and 5 each for R and B, . . 

* If you have plenty of memory and cycles, 6 bits all around gives marginally 

* better results; if you are short of memory, 5 bits all around will save 

* some space but degrade the results. 

* To maintain a fullv accurate histogram, we'd need to allocate a "long 
(preferably unsignea long) for each cell. In practice this is overkill; 

^^we can get by with 16 bits per cell. Few of the cell counts will overflow, 
M and clamping those that do overflow to the maximum value will give close- 
m enough results. This reduces the recommended histogram size from 256Kb 
m to 12 8Kb, which is a useful savings on PC-class machines. _ 
fl (In the second pass the histogram space is re-used for pixel mapping data; 

in that capacity, each cell must be able to store zero to the number of 
£ desired colors. 16 bits/cell is plenty for that too.) 

^ Since the JPEG code is intended to run in small memory model on 80x86 
m machines, we can't ^ust allocate the histogram in one chunk. Instead 
S of a true 3-D array, we use a row of pointers to 2-D arrays. Each 
=^ pointer corresponds to a CO value (typically 2^5 = 32 pointers) and 
Si* each 2-D array has 2^^6*2"5 = 2048 or 2"6*2"6 = 4096 entries. Note that 

on 80x86 machines, the pointer row is in near memory but the actual 
'!* arrays are in far memory (same arrangement as we use for image arrays) . 

O/ 

llefine MAXNUMCOLORS (MAXJSAMPLE+1) /* maximum size of colormap */ 

p These will do the r:qht thing for either R,G,B or B,G,R color order, 
3 but you may not li^^e the results for other color orders. 
/ 

#define HIST_CO_BITS ^ /* bits of precision in R/B histogram */ 

tdefine HIST_C1_BITS >> /* bits of precision in G histogram */ 

tdefine HIST„C2_BITS S /* bits of precision in B/R histogram */ 

/* Number of elements along histogram axes. */ 
tdefine HIST_CO„ELEMS ( 1«HIST_C0_BITS) 
tdefine HIST_C1_ELEMS ( 1«HIST_C1_BITS) 
tdefine HIST_C2_ELEMS (1«HIST_C2_BITS) 

/* These are the amounts to shift an input value to get a histogram index. */ 
tdefine CO_SHIFT {B1T3_IN„JSAMPLE-HIST_C0_BITS) 
tdefine C1_SHIFT (BITS_IN_JSAMPLE-HIST„C1_BITS) 
tdefine C2_SHIFT ( BIT-. _IN„JSAMPLE-HIST_C2_BITS) 



typedef UINT16 histcel : ; /* histogram cell; prefer an unsigned type */ 

typedef histcell * hisptr; /* for pointers to histogram cells */ 

typedef histcell hist 1 i [HIST_C2_ELEMS] ; /* typedefs for the array */ 
typedef histld * hist2o; /* type for the 2nd-level pointers */ 
typedef hist2d * hist3ri, /* type for top-level pointer */ 



/* Declarations for Flnyd-Steinberg dithering. 

* Errors are accumulated into the array fserrors[], at a resolution of 

* l/16th of a pixel count. The error at a given pixel is propagated 

* to its not-yet-proressed neighbors using the standard F-S fractions, 



2 



* ... (here) 7/ . 5 

* 3/16 5/16 1/16 

* We work left-to-right on even rows, right- to-left on odd rows. 

* 

* We can get away with a single array (holding one row's worth of errors) 

* by using it to stoie the current row's errors at pixel coliiims not yet 

* processed, but the rext row's errors at columns already processed. We 

* need only a few exr::a variables to hold the errors immediately around the 

* current column. (T we are lucky, those variables are in registers, but 

* even if not, they're probably cheaper to access than array elements are.) 
* 

* The fserrors [] arra^/ has (#columns + 2) entries; the extra entry at 

* each end saves us f:"ora special-casing the first and last pixels. 

* Each entry is three values long, one value for each color component. 
* 

* Note: on a wide imace, we might not have enough room in a PC's near data 

* segment to hold the error array; so it is allocated with alloc_large. 
*/ 

#if BITS_IN„JSAMPLE 8 
typedef IKT16 FSERROR; 
typedef int LOCFSERROR, 
#else 

typedef INT32 FSERROR; 
typedef INT32 LOCFSERFCR; 
iendif 

typedef FSERROR *FSERRPTR; 



/JH Private subobject 

^^^edet struct { 
y^truct jpeg_color„quantizer pub; /* public fields */ 

IJ^I/* Space for the eventually created colormap is stashed here */ 
"''^b SAMP ARRAY sv_colormap; /* colormap allocated at init time */ 
Clint desired; /* desired # of colors = size of colormap */ 

^S/* Variables for accumulating image statistics */ 
nJhistSd histogram; pointer to the histogram */ 

f boolean needs_zeroed , /* TRUE if next pass must zero histogram */ 

r"V* Variables for Flo /d-steinberg dithering */ 
^■FSERRPTR fserrors; /* accumulated errors */ 

^^^boolean on_odd^row; /* flag to remember which row we are on */ 

'-Jint * error_limiter; /* table for clamping the applied error */ 

]r^mY__c quan t i z e r ; 

Qpedef my_cquantizer ^ my__cquantize_ptr ; 



/* 

* Prescan some rows ot pixels. ^ 

* In this module the nrescan simply updates the histogram, which has been 

* initialized to zeroes by start jass. 

* An output_buf parameter is required by the method signature, but no data 

* is actually output ( in fact the buffer controller is probably passing a 

* NULL pointer) . 
*/ 

METHODDEF{void) . 
prescan_quantize ( j_derompress_^tr cinfo, JSAMPARRAY input_but, 
JSAMPARRAY c-.tput_buf , int num_rows) 

^ my_cquantize_ptr cquantize = (my„cquanti2e_ptr ) cinf o->cquantize; 
register JSAMPROW ptr , 
register histptr hisp; 

register hist3d histogram = cquantize->histogram; 
int row; 
JDIMENSION col; 

JDIMENSION width = c . nf o->output_width; 

for {row = 0; row < :>um_rows; row++) { 
ptr = input_buf [ ro' ^ ] ; 
for (col = width; col > 0; col — ) { 

/* get pixel val le and index into the histogram */ 
histp = & histogvam[GETJSAMPLE(ptr [0] ) » CO_SHIFT] 
[GETJSAMP: '-5 (ptr [1] ) » C1_SHIFT] 



/* 16 bits should be enough */ 

/* use 'int' for calculation temps */ 

/* may need more than 16 bits */ 

/* be sure calculation temps are big enough */ 



/* pointer to error array (in FAR storage!) */ 
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[GETJSAMP .E{ptr[2] ) » C2_SHIFT] ; 
/* increment, ch-ck for overflow and imdo increment if so, */ 
if {+■(- (*histp) <= 0) 
(^histp)--; 
ptr += 3; 

} 

} 

} 



/* 

* Next we have the re-.lly interesting routines: selection of a colormap 

* given the completed histogram. ^ 

* These routines work with a list of "boxes", each representing a rectangulc 

* subset of the input color space (to histogram precision) . 
*/ 

typedef struct { , , . • ^ */ 

/* The bounds of the box (inclusive); expressed as histogram indexes ^/ 

int cOmin, cOmax; 
int clmin, clmax; 
int c2min, c2max; 

/* The volume (actually 2-norm) of the box */ 
INT32 volume; . . , . 

/* The nimiber of nonrero histogram cells within this box / 
long colorcount; 
} box; 

typedef box * boxptr; 



]3cfcAL(boxptr) 

i|lid__biggest_color_pop ; boxptr boxlist, int numboxes) 

Find the splittable oox with the largest ^ color population */ 
Returns NULL if no r- olittable boxes remain */ 

m 

%,|register boxptr boxp . 
...^register int i; 
^:=^tegister long maxc = 3; 
yjboxptr which = NULL; 

^^^■for (i = 0, boxp = b^xlist; i < numboxes; i++, boxp+ + ) { 
■■s. if (boxp->colorcou-^.t > maxc && boxp->volume > 0) { 
Lj.. which = boxp; 

maxc = boxp->colcr count; 

U } 
0J> 

'■'■return which; 

Jr 

IrOCAL (boxptr) 

find_biggest_volume (roxptr boxlist, int numboxes) 

/* Find the splittable box with the largest (scaled) volume */ 

/* Returns NULL if no splittable boxes remain */ 

{ 

register boxptr boxp, 
register int i; 
register INT32 maxv = 0; 
boxptr which = NULL; 

for (i = 0, boxp = boxlist; i < numboxes; i++, boxp++) { 
if (boxp->volume > naxv) { 
which = boxp; 
maxv = boxp->vol':]Tie; 

} 

} 

return which; 

} 



LOCAL (void) 

update_box ( j_decompre-r-s_ptr cinfo, boxptr boxp) 

/* Shrink the min/max hounds of a box to enclose only nonzero elements, */ 
/* and recompute its v.Zume and population */ 

my„cquantize_ptr cqu^.ntize = (my_cquantize jtr ) cinf o->cquantize ; 

histBd histogram = cquantize->histogram; 
histptr histp; 
int c0,cl,c2; 
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int cOmin, cOmax, clmi^i, clmax, c2min, c2max; 
INT32 dist0,distl,di-t2; 
long ccount; 

cOmin = boxp->cOinin; cOmax = boxp->cOmax; 
cliuin = boxp->clmin; clmax = boxp->clmax; 
c2inin = boxp->c2min; c2max = boxp->c2max; 

if {cOmax > cOmin) 

for (cO = cOmin; c2 <= cOmax; c04-+) 

for (cl = clmin; cl <= clmax; cl++} { 
histp = & histogra:T^ [ cO] [cl] [c2inin] ; 
for (c2 = c2inin; c7 <= c2itiax; c2++) 
if (*histp++ !- 0) { 

boxp->cOinin = c Omin = cO; 
goto have_cOrair. , 

} 
} 

have_cOmin: 
if (cOmax > cOmin) 

for (cO = cOmax; >= cOmin; cO--) 

for (cl = clmin; cl <= clmax; cl++) { 
histp = & histograrr [cO] [cl] [c2niin] ; 
for (c2 = c2min; c2 <~ c2max; c2++) 
if {*histp++ 1= ') [ 

boxp->cOmax = cOmax = cO; 
go to have_c Oma " ; 

} 
} 

liave^c Omax : 
,^,^t (clmax > clmin) 

for (cl = clmin; ci <- clmax; cl++) 
Jl for (cO = cOmin, cO <= cOmax; cO++) { 

histp = & histograrr [cO] [cl] [c2min] ; 

for {c2 = c2min; c2 <= c2max; c2++) 
4} if (*histp++ 1= 0) { 

boxp->clmin = cirain = cl; 
I. goto have_clmin; 

iave_clmin: 

n^if {clmax > clmin) 

s for {cl = clinax; cl >= clmin; cl--) 

for (cO = cOmin, cO <= cOmax; cO++) { 
f'^ histp = St histogra'^^ ;cO] [cl] [c2inin] ; 
y':. for {c2 = c2min; c. <= c2max; c2++) 
f;-; if (*histp++ != 2) { 
I' 'I boxp->clmax = ::lmax = cl; 

~u goto have_clmax, 

=-have_c Imax : 

if (c2max > c2min) 

for (c2 - c2min; cl <= c2max; c2++) 

for (cO = cOruin, cO <= cOmax; cO++) { 
histp = & histogra^^. [cO] [clmin] [c2] ; 

for (cl = clmin; c ^ <= clmax; cl++, histp += HIST_C2_ELEMS ) 
if {*histp 1= 0) { 

boxp->c2min = c2min = c2 ; 
goto have_c2mT r ; 

) 
} 

have_c2min: 
if (c2max > c2min) 

for (c2 = c2max; c. >= c2min; c2--) 

for (cO = cOmin, cO <= cOmax; cO++) { 
histp = Sc histogra lCO] [clmin] [c2 ] ; 

for (cl = clmin; cl <- clmax; cl++, histp += HIST__C2_ELEMS) 
if (*histp 1= 0) [ 

boxp->c2max = :2max = c2 ; 
goto have_c2ma.:; 

} 
} 

have_c2max: 

/* Update box volume 

* We use 2 -norm rat er than real volxame here; this biases the method 

* against maJcing Ic narrow boxes, and it has the side benefit that 

* a box is splittab^e iff norm > 0, 

* since the differences are expressed in histogram-cell units ^ 
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* we have to shift i^^r.ck to JSAMPLE units to get consistent distances; 

* after which, we scale according to the selected distance scale factors. 
*/ 

distO = ((cOmax - cC^-in) « CO_SHIFT) * CO_SCALE; 
distl = ((clmax - Ci .:n} « C1„SHIFT) * Cl_SCALE; 
dist2 ^ {{c2max - c2-.in) « C2_SHIFT) * C2_SCALE; 
boxp"> volume = distC^distO + distl*distl + dist2*dist2; 

/* Now scan remainir- volume of box and compute population */ 

ccount = 0; 

for {cO = cOmin; cO <= cOmax; cO++) 
for {cl = clmin; c' <= clmax; cl++) { 

histp = & histog^ am[cO] [cl] [c2min] ; 

for (c2 = c2min, c2 <= c2max; c2++, histp++) 
if {^histp != 0) { 

ccount++; 

} 
} 

boxp'-> colore ount = ccount; 



LOCAL (int) 

median_cut ( j__decompre3s_ptr cinfo, boxptr boxlist, int numboxes, 
int desired_cc . ors) 

/* Repeatedly select and split the largest box until we have enough boxes */ 
{ 

int n, lb; 

int cO , cl, c2, cmax; 
register boxptr bl,b2; 



f=:while (numboxes < de 
/* Select box to s 
^1 * Current algorit 



ired__colors) { 

p 1 i t . 

hm: by population for first half, then by volume. 



desired_colors) { 
c_color_pop (boxlist, numboxes); 



if {numboxes* 2 <= 

bl - find_bigges 
} else { 

bl = find„biggest„volume (boxlist, numboxes); 

} 



if (bl NULL) 

break; 
b2 - icboxlist [numb 
/* Copy the color 
b2->cbmax = bl->cC 
b2->c0min = bl->cO 
/* Choose which ax 

* Current algorit 

* See notes in up 

* / 

cO = ( (bl->cOmax - 
cl ~ ( {bl->clmax - 
c2 = ( (bl->c2max - 
/* We want to brea-- 
^ This code does . 



/* no splittable boxes left! */ 

oxes] ; /* where new box will go */ 
bounds to the new box. */ 

nax; b2->clmax = bl->clmax; b2->c2max = bl->c2max; 
nin; b2->clmin - bl->clmin; b2->c2min = bl->c2min; 
:s to split the box on. 
:^Tt: longest scaled axis. 
ia"e_box about scaling distances. 

bl->cOmin) « CO„SHIFT) * CO_SCALE; 
bl->Glmin) « C1_SHIFT) * C1„SCALE; 
bl->c2min) « C2_SHIFT) * C2_SCALE; 
: any ties in favor of green, then red, blue last, 
ne right thing for R,G,B or B,G,R color orders only. 



#if RGB_RED == 0 

cmax - cl; n = 1; 

if (cO > cmax) { cr 

if {c2 > cmax) { n 
#else 

cmax = cl; n = 1; 

if (c2 > cmax) { cr 

cO > cmax) { p. 



if 
#endif 



lax = c 0 ; n = 0 ; } 
= 2; } 



lax = c2; n = 2; } 
- 0; } 



Choose split po 

* Current algorit 

* (Since the box 

* any split will 

* Note that lb va 

sv;itch (n) { 

case 0: 

lb = (bl->cOj:nax 
bl->cOmax = lb; 
b2->c0min = lb+1 
break; 

case 1: 

lb = (bl->clmax 
bl->clraax - lb; 



mz along selected axis, and update box bounds, 
im: split at halfway point. 

as been shrunk to minimum volume, 
produce two nonempty subboxes . ) 

ae is max for lower box, so must be < old max. 



bl->cOmin) / 2; 



bl->clmin) / 2; 



b2->clmin = lb+1 
breaks- 
case 2 : 

lb = Cbl->c2max - bl->c2min) / 2; 
bl->c2max = lb; 
b2->c2min = lb+1 ; 
break; 

} 

Update stats fcr boxes */ 
update_box(cinf o, rl); 
update_box (cinf o , b2 ) ; 
nuiTiboxes++; 

} 

return niimboxes; 

} 



LOCAL (void) 

coinpute„color { j„decornDress_ptr cinfo, boxptr boxp, int icolor) 

/* Compute representative color for a box, put it in colormap [icolor] */ 

{ 

/* Current algorithm, mean weighted by pixels (not colors) */ 
/* Note it is import ^.nt to get the rounding correct 1 */ 
K^y_cquantize_ptr cqu "incize = (niy_cquantize_ptr ) cinfo->cquantize; 
hist3d histogram = c7jantize->histogram; 
histptr histp; 
int c0,cl,c2; 

int cOmin, cOmax, clmin , clxnax, c2min, c2max; 

long count; 

long total = 0; 

long cO total = 0; 
f^JLong cltotal = 0; 
""■ilong c2 total = 0; 

plcOmin = fooxp->cOmin; cOmax = boxp->cOmax; 
'j^plmin ~ boxp->clmin; clmax - boxp->clmax; 
'^-■;c2min = boxp->c2inin; c2max = boxp->c2max; 

,^^;for (cO ~ cOmin; cO <^ cOmax; cO+ + ) 

for (cl = clmin; cl <= clmax; cl++) { 
histp = & histoc cam[cO] [cl] [c2min] ; 
fll for (c2 = c2min; c2 <= c2max; c2++) { 

if ({count = *histr, + + ) != 0) { 
^- total += count; 

hk cOtotal += ((cO < CO_SHIFT) + { (1«C0_SHIFT) »1) ) * count; 

Cltotal += {(cl << Cl_SHIFT) + { ( 1«C1_SHIFT) »1) ) * count; 
c2total += ((c2 '~^< C2_SHIFT} + ( {1«C2_SHIFT) »1) ) * count; 

ry } 

cinfo->colormap[0] [icolor] = (JSAMPLE) ( (cOtotal + (total»l) ) / total) 
' cinf o->colontiap [1] [icolor] = (JSAMPLE) ({cltotal + (total»l) ) / total) 
cinfo->colormap[2] [ic-olor] = (JSAMPLE) ( (c2total + (total»l)) / total) 

} 



LOCAL (void) 

select_colors ( j_deconrress_ptr cinfo, int desired__colors ) 

/* Master routine for ^ olor selection */ 

{ 

boxptr boxlist; 
int numboxes; 
int i ; 

/* Allocate workspace for box list */ 
boxlist = (boxptr) ( ^ cinf o->mem->alloc„small ) 

{ ( j_cornmon_ptr) cmfo, JPOOL_IMAGE, desired_colors * SIZEOF (box) ) ; 
/* Initialize one box containing whole space */ 
numboxes = 1; 
boxlist [0] .cOmin = 0. 

boxlist [0] .cOmax = mXJSAMPLE » CO_SHIFT; 
boxlist [ 0] . clmin = C, 

boxlist [0] .clmax = KAXJSAMPLE » Cl_SHIFT; 
boxlist [0] . c2min = C. 

boxlist [0] .c2max - M^""-XJSAMPLE » C2_SHIFT; 

/* Shrink it to actu^. Lly-used volume and set its statistics */ 
update_box (cinf o , & "oxlist[0]); 

/* Perform median-cut to produce final box list */ 

numboxes = median_cu^ ( cinf o , boxlist, numboxes, desired__colors) ; 
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/* Compute the repre f^ntative color for each box, fill colormap */ 
for {i = 0; i < numhoxes; 

ccmpute_color (cinf'. & boxlist[i], i); 
cinfo->actual_number of_colors = numboxes; 
TRACEMS 1(0 info, 1, J : RC_QUANT„SELECTED, numboxes) ; 



These routines are 

colors to the neare'^. 

We re-use the historr 
cache for the result 
histogram cell will 
closest to the cell' 
the actual input co. 
indicates we haven't 
is cleared to zeroes 
nearest color for c. 
cache for future us--- 
when they need to 

Our method of effici 
sorted search" idea 

■ calculation describe 

■ Gems II (James Arvo , 

■ the distances from 

■ be computed quickly 

■ distances to adjacer 

■ fairly fast implemer 
^ distance from every 
f it needs a work arr--"^ 
i cell (because the 
% The work array elemc 
I 256Kb at our recomr; - 

To get around these 
nearest colors for : 
The v7ork array need 
problem is solved, 
referenced in passz , 
fair amount of wor- 
approach is that we 
eliminate colormap - 
three- fourths of tr ; 
and V7e need not cor^ 
The speed of this ei 
small means too muc . 
can't eliminate as 
size seems to be arr 

c 

^ Thomas' article als 
^ faster than the bru 
^ cannot efficiently 

useful for program.^ 
^ with plenty of memc 

refined method migh 
^ it might not be any 



■oncerned with the time-critical task of mapping input 
,t color in the selected colormap. 

ram space as an "inverse color map", essentially a 
3 of nearest-color searches. All colors within a 
be mapped to the same colormap entry, namely the one 
s center. This may not be quite the closest entry to 
or, but it's almost as good. A zero in the cache 
found the nearest color for that cell yet; the array 
before starting the mapping pass. When we find the 
cell, its colormap index plus one is recorded in the 

The pass2 scanning routines call f ill_inverse_cmap 
e an unfilled entry in the cache. 

ently finding nearest colors is based on the "locally 
described by Heckbert and on the incremental distance 
by Spencer W. Thomas in chapter III.l of Graphics 
ed. Academic Press, 1991), Thomas points out that 
i given colormap entry to each cell of the histogram can 
.ising an incremental method: the differences between 
It cells themselves differ by a constant. This allows a 
itation of the "brute force" approach of computing the 
colormap entry to every histogram cell. Unfortunately, 
;y to hold the best-distance-so-far for each histogram 
.rer loop has to be over cells, not colormap entries), 
^nts have to be INT32s, so the work array would need 
-ided precision. This is not feasible in DOS machines. 

problems, we apply Thomas' method to compute the 
^uly the cells within a small subbox of the histogram, 
be only as big as the subbox, so the memory usage 
Furthermore, we need not fill subboxes that are never 
many images use only part of the color gamut, so a 
is saved. An additional advantage of this 
can apply Heckbert 's locality criterion to quickly 
-tries that are far away from the subbox; typically 
e colormap entries are rejected by Heckbert 's criterion, 
ute their distances to individual cells in the s\ibbox. 
,oroach is heavily influenced by the subbox size: too 
\. overhead, too big loses because Heckbert 's criterion 
-any colormap entries. Empirically the best subbox 
.;t l/512th of the histogram (l/8th in each direction). 

describes a refined method which is asymptotically 
e-force method, but it is also far more complex and 

applied to small subboxes. It is therefore not^ 
intended to be portable to DOS machines. On machines 
/, filling the whole histogram in one shot with Thomas' 

/be faster than the present code but then again, 

faster, and it's certainly more complicated. 



/* log2 (histogram cei: s in update box) for each axis; this can be adjusted */ 
#define BOX„C0_LOG (li : ST_C0_BITS-3 ) 
#define B0X_C1_L0G (H . ST_Cl_BXTS-3 ) 
#define B0X_C2„L0G (I 3T__C2_BITS-3 ) 



#define 30X_CO_ELEMS 
#define B0X_C1_ELEMS 
#define B0X_C2_ELEMS 

#define BOX_C0_SHIFT 
#define B0X_C1_SHIFT 
#define B0X_C2„SHIFT 



' i«BOX_C0_LOG) 
, 1«B0X_C1_L0G) 
1«B0X_C2_L0G) 



/* # of hist cells in update box */ 



CO_SHIFT + BOX_C0_LOG) 
CLSHIFT + B0X_C1_L0G) 
.C2_SHIFT + B0X„C2_L0G) 



* The next three routines implement inverse colormap filling. They could 

* all be folded into -ne big routine, but splitting them up this way saves 

* some stack space (t'^e mindist[] and bestdist[] arrays need not coexist) 
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* and may allow some ompilers to produce better code by registerizing more 

* inner- loop variable . 
*/ 



LOCAL (int) 

f ind_.nearby_colors (j„ 
JSAMPLE c- 
/* Locate the colormar 

* for the nearest en; 

* is specified by thf 

* candidate colormap 

* placed in colorlis' 

* This routine uses n 

* the colors that nee 



•ecompress^tr cinfo, int mincO, int mincl, int rainc2, 

:orlistEl) 

entries close enough to an update box to be candidates 
>y to some cell(s) in the update box. The update box 
center coordinates of its first cell. The number of 
ntries is returned, and their colormap indexes are 

^ ] 

-ckbert's "locally sorted search" criterion to select 
; further consideration. 



{ 



int numcolors = cinf 
int maxcO, maxcl, ma 
int centercO, center 
int i, X, ncolors; 
INT3 2 minmaxdist, mi 
INT32 mindist [MAXNUt" 

/* Compute true C002 

* Actually we comp^; 

* histogram cell, v 

* Note that since " 

* min than to max; 
*/ 

maxcC " mincO + ( ( 1 
centercO = (mincO + 
,:^jtiaxcl = mincl + {(1 
-i^^centercl ~ (mincl + 
flmaxc2 = minc2 + ((1 
-■^centerc2 = (mine 2 + 



T - > ac tual_number_o f _c ol or s ; 

-c2; 

:1, centerc2; 
n_dist, max_dist, tdist; 

COLORS]; /* min distance to colormap entry i */ 

linates of update box's upper corner and center, 
-e the coordinates of the center of the upper-corner 
-ich are the upper bounds of the volume we care about. 

rounds down, the "center" values may be closer to 
>3nce comparisons to them must be "<=", not "<". 



BOX_C0_SHIFT) 

axcO) » 1; 
< B0X__C1_SHIFT) 
axel) » 1; 
c< B0X_C2_SHIFT) 

iaxc2) » 1; 



(1 « CO„SHIFT) ) 
(1 « C1_SHIFT) ) 
(1 « C2„SHIFT) ) 



For each color ir colormap, find: 
^} * 1. its minimum squared-distance to any point in the update box 

* (zero if colcr is within update box) ; 

JS * 2. its maximum squared-distance to any point in the update box. 

.pj * Both of these ca: be found by considering only the corners of the box. 

2; * VJe save the minir..a distance for each color in mindist[3; 

* only the smalles* maximum distance is of interest. 
~ */ 

■:^,minmaxdist = OxVFFFl - F?L; 

Dlfor (i ^ 0; i < num^ ' lors; i++) { 

/-^ We compute the quared-cO-distance term, then add in the other two. */ 

X - GET JSAMPLE (ci: ;o->colormap [ 0 ] [ i ] ) ; 
"^•1 if (x < mincO) { 

n; tdist = (x - mi--cO) * CO_SCALE; 

i;: min_dist = tdisL' tdist; 

tdist = (x - may-0) * CO_SCALE; 

max_dist - tdis: "tdist; 
} else if (x > max :0) { 

tdist = (X - ma- -0) * CO„SCALE; 

min_dist = tdis: ^ tdist; 

tdist = (X - mi- 0) * CO_SCALE; 

max_dist = tdis' ' tdist; 
} else { 

/* within cell 1 ^nge so no contribution to min_dist */ 

min_dist - 0; 

if (x <- center^ r ) { 
tdisc = (x - maxc ^ * CO„SCALE; 
max_dist = tdist*: ^ist; 

} else { 

tdist = (x - mincC ) * CO„SCALE; 
max dist = tdist*' [1st; 



} 

X = GETJSAMPLE(ci^ ''o->colormap[l} [i] ) ; 
if (x < mincl) { 



tdist = (x - mi^ 
min„dist += tdi ^ 
tdist = (x - ma-- 
max_dist += tdi*- 
} else if (x > ma. 
taist = (x - ma:- 
mi nudist += tdi. 



i) * C1_SCALE; 

- ^ tdist; 

i) * C1_SCALE; 

- tdist; 

i) { 

: ) * C1„SCALE; 
- ' tdist; 
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tdist = (x - mi: :1) * Cl_SCALE; 
max_dist += tdi^ tdist; 

} else { 

/"^' within cell : mge so no contribution to min_.dist */ 

if (x <= center'- ^ } { 
tdist = (X ~ maxc. * C1_SCALE; 
max_dist += tdist* tdist; 

} else { 

tdist = (X - mine:) * C1_SCALE; 
max_dist += tdist' tdist; 

} 

X = GETJSAMPLE{ci^ f o->colorinap [ 2 ] [ i ] ) ; 
if (x < minc2) { 

tdist = {X - mirc2) * C2„SCALE; 

min_dist += tdi-^ t* tdist ; 

tdist = (X - ma^-^c2) * C2_SCALE; 

max^dist += tdi^ t*tdist; 
} else if (x > ma^ c2) { 

tdist = (x - mayc2) * C2_SCALE; 

rain_dist += tdi: t^ tdist; 

tdist = (x - mi:c2) * C2„SCALE; 

max^dist += tdi^ t* tdist; 
} else { 

/* within cell range so no contribution to min__dist */ 

if (x center^ 2 ) { 
tdist = (x - maxc: ) * C2_SCALE; 
max_dist tdist' tdist; 

} else { 

tdist = (x - mine 2) * C2_SCALE; 
max_dist tdist ^ tdist; 

} 



mindist[i] = min_cisc; /* save away the results */ 

%ij if {ma2<_dist < mi^^naaxdist) 
: minmaxdist = ma"_dist; 

^::> 

-.'--/* Novj vie know that no cell in the update box is more than minmaxdist 
I' * away from some c )lormap entry. Therefore, only colors that are 
Pr * vvitnin minmaxdist of some part of the box need be considered. 

- */ 

r. .. ncolors = 0 ; 

^""'for {i ^ 0; i < num(.olors; i++) { 
fj if (mindist[i] minmaxdist) 

colorlist [ncolo2-s + + ] = (JSAMPLE) i; 

■^^■i re turn ncolors; 
LOCAL (void) 

f ind_best_.colors ( j_decompress_ptr cinfo, int mincO, int mincl, mt minc2, 

int numcolors, JSAMPLE colorlist [ ] , JSAMPLE bestcolor[]> 
/* Find -he closest colormap entry for each cell in the update box, 

* given the list of candidate colors prepared by f ind_nearby_colors . 

* Return the indexes of the closest entries in the bestcolor[] array. 

* This routine uses Thomas' incremental distance calculation method to 

* find the distance from a colormap entry to successive cells in the box. 
*/ 

{ 

int icO, icl, ic2 ; 
int i, i color; 

register INT3 2 * bptr; /* pointer into bestdist[] array */ 
JSAMPL3 ^ cptr; pointer into bestcolor[] array */ 

INT32 distO, distl; /* initial distance values */ 

register INT32 dist2; /* current distance in inner loop */ 

INT32 xxO, xxl; /* distance increments */ 

register INT32 xx2 ; 

INT32 incO, incl, inc2 ; /* initial values for increments */ 

/* ?his array holds the distance to the nearest-so-far color for each cell 

INT32 bestdist [BOX_C0„ELEMS * B0X_C1_ELEMS * B0X„C2_ELEMS] ; 

/* Initialize best-distance for each cell of the update box */ 
bptr ~ bestdist; 

for (1 = BOX_CO„ELE:'IS*BOX„C1_ELEMS*BOX_C2_ELEMS-1; i >= 0; i— ) 

^bp-r+- = 0x7FFFFFFFL; 
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/* For each color selected by f ind_nearby_colors , 

* r-oirp-te its distance to the center of each cell in the box. 

* If chat's less than best-so-far, update best distance and color niomber. 

*/ 

/* Ncniral steps between cell centers ("x" in Thomas article) */ 
#define STSP_CO ((1 << CO_SHIFT) * CO_SCALE) 
#define STSP„C1 ((1 « C1_SHIFT) * Cl_SCALE) 
#define STEP_C2 ((1 « C2_SHIFT) * C2_SCALE) 

for (i ^- 0; i < numcolors; i + +) { 
icolor = GETJSA14PLE (colorlist [i] ) ; 

/ - Corapute (square of) distance from minc0/cl/c2 to this color */ 
incC (mincO - GETJSAMPLE (cinfo->colormap [0] [icolor] ) ) * CO_SCALE; 

distO = incO*incO; 

incl - (mincl - GETJSAMPLE (cinf o->colormap [1] [icolor] ) ) * C1_SCALE; 

distO ^= incl*incl; 

inc2 - (minc2 - GETJSAMPLE (cinf o->colormap [2 ] [icolor ]) ) * C2_SCALE; 
distO inc2*inc2; 

For-TL the initial difference increments */ 
incO = incO * (2 STEP_CO) + STEP„CO * STEP_CO; 
incl - incl * (2 - STEP_C1) + STEP„C1 * STEP_C1; 
inc2 = inc2 * (2 ^ STEP_C2) + STEP_C2 * STEP_C2 ; 

/* Nov; loop over all cells in box, updating distance per Thomas method */ 

bptr = bestdist; 
cptr = bestcolor; 
xxO = incO; 

for (icO = BOX_CO__ELEMS-1; icO >= 0; icO--) { 
dis::l distO; 
XX 1 = incl; 

for del = B0X_C1_ELEMS-1; icl >= 0; icl — ) { 
dist2 ^ distl; 
xx2 ~ inc2; 

Ji for (ic2 = B0X_C2^ELEMS-1; ic2 >- 0; ic2--) { 

m if (cist2 < *bpt.r) { 
^1' -bptr = dist::2 , 

^^cptr = (JSAMFLE) icolor; 

dist2 -f= xx2; 
II xx2 += 2 * STE?„C2 * STEP_C2; 

yil bp::r'h+; 

cptr + -^; 

' } 

disol xxl; 
Lv, xxl 2 ^ STEP„C: ^ STEP_C1; 

C ) 

kl di:-;tO +^ xxO; 

ffji xxO ^= 2 * STEP_CC * STEP_CO ; 



LOCAL (void) , . 

fill_inverye„cmap ( j„decompress_ptr cinfo, int cO, mt cl, int c2) 

/* Fill rJie inverse- CO lormap entries in the update box that contains */ 

/* histogram cell c0/cl/c2. (Only that one cell MUST be filled, but */ 

/* we can fill as many others as we wish.) */ 

{ 

my_cquancize_ptr cqv.antize = { my_c quant ize__ptr) cinf o->cquantize ; 

hist3d histogram = cqaantize->histogram; 

int jxincO, mincl, minc2; /* lower left corner of update box */ 
int icO, icl, ic2; . „ 

regisoer JSAMPLE * cptr; /* pointer into bestcolor[3 array */ 
register histptr cacnsp; /* pointer into main cache array */ 
/* This array lists the candidate colormap indexes. */ 
JSAMPLE colorlist[ MAXNUMCOLORS ] ; 

int numcclors; /* number of candidate colors */ 

/* This array holds the actually closest colormap index for each cell. */ 
JSAMPLE bestcolor [BCX„CO_ELEMS * B0X_.C1_ELEMS * BOX_C2_ELEMS3 ; 

/* Convert cell coordinates to update box ID */ 

cO >>- 3CX_C0_LOG; 
Cl >>- B0X_C1_L0G; 
c2 >>- B0X_C2_L0G; 

/* comnute true coordinates of update box's origin corner. 

* Actually we comp ;te the coordinates of the center of the corner 

* histooram cell, ^hlch are the lower bounds of the volume we care about. 

*/ 
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mincO = (cO « BOX_C0_SHIFT) + { (1 « CO_SHIFT) » 1) ; 
mincl - (cl « B0X_C1_SHIFT) + ((1 « C1_SHIFT) » 1) ; 
minc2 = ic2 « B0X_C2„SHIFT) + ( (1 « C2„SHIFT) » 1); 

/* Determine which colormap entries are close enough to be candidates 
* for the nearest entry to some cell in the update box. 

*/ 

numcolors = f ind„nearby_colors (cinf o, mincO, mincl, minc2, colorlist) ; 

/* Determine the actually nearest colors. */ 

findjDest_colors {cinf o, mincO , mincl, minc2 , numcolors, colorlist, 

bestcolor) ; 

/* save^ the best color numbers (plus 1) in the main cache array */ 
cO «= P30X_CO_LOG; /* convert ID back to base cell indexes */ 

cl <<= 30X_C1_L0G; 
c2 <<- B0X_C2_L0G; 
cptr = bestcolor; 

for (icO ^ 0; icO < BOX_C0„ELEMS ; icO++} { 
for (ic^ = 0; icl < B0X„C1_ELEMS ; icl++) { 
cacheo - & histogram[cO+icO] [cl+icl] [c23 ; 
to- [xc2 ^ 0; ic2 < B0X_C2_ELEMS ; ic2++) { 
*cachep + ^ = (histcell) ( GET JSAMPLE (* cptr ++ ) + 1) ; 
} 

} 

} 

} 



Map some rov/s of pixels to the output colormapped representation. 

W 

I^JHODDED (void) 

^ss2 J1C _dither { j_decompress_ptr cinfo, 

^■j ' o SAMPARRAY input^buf , JSAMPARRAY output_buf, int num_rows) 

/£ This version perform.s no dithering */ 

^1 

JJmy_cquantizej)tr cquantize = (iny_cquantize_ptr) cinf o->cquantize; 

n'iihistBd histogram = cquantize->histogram; 

-'■^'^'^register JSAMPROW inptr, outptr; 
B register nistptr cachep; 
E-.;„regis ter mt cO, cl, c2; 
L..,int row; 
i:;JJDIMEN3I0N col; 

ri§JDIMEN5^ICK width = c inf o->output_width; 

'^'4 for {rc'M = 0; row < nurn__rows; row++) { 
inptr input_buf [row] ; 
ou t p t r = o u tpu t_bu f [row] ; 
for (coL = width; col > 0; col--) { 

/ ■ o;oo pixel value and index into the cache */ 
cO GETJSAMPLE(^inptr++) » CO„SHIFT; 
ct - GETJSAMPLE(*inptr++) » Cl_SHIFT; 
c2 - GETJSAMPLE{*inptr++) » C2_SHIFT; 
cacneo = & histogram [cO ] [cl ] [c2 ] ; 

It we have not seen this color before, find nearest colormap entry */ 
/■■■ and update the cache */ 
i ~ { "' cachep == 0 ) 
f ill_.inverse_cmap (cmf o, c0,cl,c2); 

Now emit the colormap index for this cell */ 
ou l:.p tr + + = ( JSAMPLE ) ( * cachep - 1) ; 

} 

} 



METHODDE? (^^oid) 

pass2 _-vo dither ( j„decorrpress_ptr cinfo, 

JSAMPARRAY input„buf, JSAMPARRAY (putput_buf , int num_rows) 
/* This version performs Floyd- Steinberg dithering */ 

^ my_cquantize_ptr cquantize = (my_cquantize_ptr ) cinf o->cquantize; 

hist:id oistogram cquantize- >histogram; 

register LOCFSERROR curO , curl, cur2 ; /* current error or pixel value */ 
LOCFSSRRO? belowerrO, belowerrl, belowerr2; /* error for pixel below cur */ 
LOCFSERROR bpreverrO , bpreverrl , bpreverr2 ; /* error for below/prev col */ 
real St er FSERRPTR errorptr; /* => fserrors[] at column before current */ 
JSAKPRO'R mptr; /* => current input pixel */ 

JSA.MPROR' ortptr; /* => current output pixel */ 
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histptr cachep; 

int dir; /* +1 or -1 depending on direction */ 

int dir'^; /* 3*dir, for advancing inptr & errorptr */ 

int rovv; 
JDIKENSION col; 

JDIMEKSION width = cinf o->output_width; 
JSAM?LE range_liiuit = cinf o->sample_range_limit ; 
int "error_iimit = cquantize->error_limiter ; 
JSAMPROW c c 1 ormap 0 = cinfo- >colormap [ 0 ] ; 
JSAMPROV; colormapl = cinf o->colormap [1 ] ; 
J S A'i-:?RO'''I c o 1 o r map 2 - cinfo->col ormap [ 2 ] ; 
SHIRT__TEM?S 

for (ro\v = 0; row < num_rows; row++) { 

i np I: r = i np u t_bu f [ r o w ] ; 

0 u t p t: r = ou t pu t_bu f [ r ow ] ; 

1 f ( craan t i z e - > on_o dd__r ow ) { 

/ ' '■ork right to left in this row */ 

inp-.:r (width-1) * 3; /* so point to rightmost pixel */ 

outptr width-1; 

I^^^orptr ^ cquantize->fserrors + (width+l)*3; /* => entry after last column */ 
cquantize->on_odd_row = FALSE; /* flip for next time */ 

/^^ vjork left to right in this row */ 

di.r ^ - , 

errorptr' = cquanti ze->f serrors ; /* => entry before first real column */ 
GC:;Mantize->on_odd_row = TRUE; /* flip for next time */ 



/ Preser error values: no error propagated to first pixel from left */ 

curO -- curl = cur2 = 0; 

/ ^ ?r.d !io error propagated to row below yet */ 
belcw-vrrC - belowerrl = belowerr2 = 0; 
bprev-rrO ~ bpreverrl - bpreverr2 = 0; 

for (col width; col > 0; col — ) { 

- curN holds the error propagated from the previous pixel on the 
• c\;rrent line. Add the error propagated from the previous line 
^ CO form the complete error correction term for this pixel, and 

- round the error term (which is expressed * 16) to an integer. 

' RIGHT__SHIFT rounds towards minus infinity, so adding 8 is correct 

zor either sign of the error value. 
^ :iote: errorptr points to *previous* column's array entry. 

cr.:rO = RIGHT_SHIFT {curO + errorptr [dir3 + 0 ] +8, 4), 
cirl = RIGHT_SHIrT (curl + errorptr [dir3+l ] +8, 4), 
cur:; = RIGHT_SHIFT (cur2 + errorptr [dir3+2 ] + 8, 4), 
/ • ■ irrr the error using transfer function set by init_error_limit . 
^e- comments v/ith init_error_limit for rationale. 

curO ^ error_limit [curO] ; 
rur = error„limit [curl] ; 
r. ;;: 2 = e r r o r_l imi t [ cur 2 ] ; 

Form pixel value + error, and range-limit to 0 . .MAXJSAMPLE . 

- T^e maximum error is +- MAXJSAMPLE (or less with error limiting); 
' rr.is sets the required size of the range_limit array. 

euro GSTJSAMPL-. (inptr [0] ) ; 

err. += GETJSAKPLE ( inptr [ 1] ) ; 

cur-; GETJSAMPLEdnptr [2] ) ; 

c. rr:'^ GSTJSAl^PLE ( range_limit [curO ] ) ; 

cvr-: i. - GETJSAl-lPLE ( range_limi t [curl ] ) ; 

cr;r2 - GETJSAIIPLE {range„limit[cur2] ) ; 

/ ■ Tr^'iex into the cache with adjusted pixel value */ 

cacheo - & histogram[curO»CO_SHIFT] [curl»Cl_SHIFT] [cur2»C2_SHIFT] ; 
/ ;t we have not seen this color before, find nearest colormap */ 

- entry and update the cache */ 
i f cachep - = 0) 

f eJ. 1 ^rnverse„cmap(cinfo, curO»CO_SHIFT , curl»Cl_SHIFT, cur2»C2_SHIFT) ; 
Mov; emit the colormap index for this cell */ 

( r;^Oi.ster int p"^xcode = * cachep - 1; 
*outntr = (JSAMPLS) pixcode; 

/' 'cmrute representation error for this pixel */ 
crrO GETJSAMPLE (colormapO [pixcode] ) ; 
cur:; GETJSA14PLE (colormapl [pixcode] ) ; 
cur2 GETJSAMPLE ;colormap2 [pixcode] ) ; 

ompute error fractions to be propagated to adjacent pixels. 
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' Acid these into i:he running sums, and simultaneously shift the 

^ next- line error sums left by 1 column. 

;:-.::gi3oer LOCFSE^ROR bnexterr, delta; 

bnext-rr ^ curO ; /* Process component 0 */ 

del:" a - curO * 2; 

cTirO aelta; form error * 3 */ 

error-,tr:0] = (FSEPROR) (bpreverrO + curO) ; 
c\n:0 delta; /* form error * 5 */ 

bpre-^^-^rrO ~ belowerrO + curO; 

be 1 :..)v.7^-^-j r r 0 = bnex t e r r ; 

euro delta; /* form error * 7 */ 

bnext -rr = curl; /* Process component 1 */ 

de : u:a -= curl * 2; 

cxrl '-^ delta; /* form error * 3 */ 

errorntr[l] ^ (FSEFPOR) (bpreverrl + curl) ; 
carl delta; /* form error * 5 */ 

}^p,_^..,^.-.rrl = belowerrl + curl; 
be rrl = bnexterr ; 

curl dslta; /"^ form error * 7 */ 

buext :rr = cur2 ; /* Process component 2 */ 

delta - eur2 * 2; 

cur2 delta; /* form error * 3 */ 

err< .rotr ^2 ] = (FSERPOR) (bpreverr2 + cur2 ) ; 
cxr-^ delta; /* form error * 5 */ 

bprr-.-:xrr2 = belowerr2 + cur2 ; 
bel':xerr2 = bnexterr; 

= delta; /* form error * 7 */ 



c 



5^} 



At rhis point curN contains the 7/16 error value to be propagated 
■ -o tne next pixel on the current line, and all the errors for the 
' next line have been shifted over. We are therefore ready to move on. 

._rr^-r dir3; /* Advance pixel pointers to next column */ 

:-r : ■ y ^= dlr; 

. ,rptr dir3; /* advance errorptr to current column */ 

r t-loop cleanu-:): we must unload the final error values into the 
Aria- fG~errors[] entry. Note we need not unload belowerrN because 
- ;■ ' is for the du^.niy column before or after the actual array. 

errr.rptrl3] - (FSERROR) bpreverrO; /* unload prev errs into array */ 

erre,r;:>rr ^1] = (FSERROR) bpreverrl; 
e r r o rv) t r ; 2 ] = ( FSERROR ) bpr everr2 ; 



* 
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iv- nhe error -limiting transfer function (lookup table) . 
- p-s error computation can potentially compute error values of up to 
^SAM^LE. But vje want the maximum correction applied to a pixel to be 

otherwise obviously wrong pixels will be created. (Typical 
^ ^ iclude weird fringes at color-area boundaries, isolated bright 

ir a dark area, etc.) The standard advice for avoiding this problem 
-nsure that the "corners" of the color cube are allocated as output 
: rhen repeated errors in the same direction cannot cause cascading 
-.uT idup. However, that only prevents the error from getting 
.eiy out of hand; Aaron Giles reports that error limiting improves 
-uZt3 even with corner colors allocated. 

e clamping of the error values to about +- MAXJSAMPLE/8 works pretty 

;ut rhe smoother transfer function used below is even better. Thanks 
en Giles for this idea. 



itiee^ptr cquantize = (my„cquantizejptr ) cinf o->cquantize; 



LOCAL (vee.'i) 

init_ er;;e ._1 enit ( j_decoinpress_ptr cinfo) 
/* AlloreA:e and fill in the error_limiter table */ 
{ 

my_c ! 

inc ' tebl 
int :i,r , out, 

tabi- - (3nr ^) (*cinf o->mem->alloc_small) 

{ e; , mr.enjtr) cinfo, JPOOL_IMAGE, (MAXJSAMPLE*2 + 1 ) * SIZEOF ( int ) ) ; 
table" ' KAaJSAMPLE; /* SO can index -MAXJSAMPLE ., +MAXJSAMPLE */ 

cqi: a:e ;. i :;: e - e r r o r_l i mi er - t abl e ; 

idefixe ::rEPSTZE { {MAXJSAMPLE+1 ) / 16 ) 
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/* :>aa;:) errors 1:1 up to +- MAXJSAMPLE/16 */ 

out ^ 0 ; 

for = 0, in < STEPSIZE; in++, out-n-) { 

tai:).: -[in^ = out; table [-in] = -out; 

} 

/* Mc:D errors 1:2 up to +- 3 *MAX JSAMPLE / 1 6 */ 
for ( ; in <. STEPSIZE*3; in++, out += (in&l) ? 0 : 1) { 
table [in] ^ out; table [-in] = -out; 

/* ClaiTp the rest to final out value (which is (MAXJSAMPLE+1) /8 ) */ 

for [• in <= MAXJSAMPLE; in++) { 

tao:e[in] = out; table[-in] = -out; 

} 

#undef STEPSIZE 
} 



* Finish up at the end of each pass. 
*/ 

METHCDDRr (void) 

finish ;)agsl { j_dGcompress_ptr cinfo) 
{ 

my_cqaantize_ptr cquantize = (ray_cquantize_j)tr) cmf o->cquantize ; 

/* S;:-; : ct uhe representative colors and fill in cinf o->colormap */ 

cinfo- --colormap = cquantize->sv_colormap; 

selec: colors (cinfo, cquantize->desired) ; 

/* Force nexc pass to zero the color index table */ 

cquarh-ize->needs_zeroed = TRUE; 

jgiTHC'hlhr (vo:d) 

flfii s :_ :■ o .3 s 2 { j _de c omp ress_ptr cinfo) 
^^■^ ao aork V 

m 

Iraiolaliza for each processing pass. 

5k:;;:; 

MBTHC:;:D:-h (vcj d) 

4^krt aa, s_2 ^quant ( j„decompress_ptr cinfo, boolean is_j)re_scan) 

fiJ 

fny_aqaoiitize_ptr cquantize = (rtvy^cquantize_^tr ) cmf o->cquantize; 

J'%isu3o; aistogram - cquantize->histogram; 
CJint : ; 

Co a F-G dithering or no dithering is supported. */ 
/* If aser asks for ordered dither, give him F-S. */ 
if (clafo->dither_inode != JDITHERJTOKE ) 
c :L v: o - > d i. o h e r _mo de = JDI THER_F S ; 

if hiaq pr e „.scan) { 

/ ^- :"a-.:c ua method pointers */ 

ccpaar:tiz'a~>pub . color__quantize = prescan_quantize; 
c a ■ : a ■ ; t i 2 a - > pub .finis h_p as s = f i ni sh_p as s 1 ; 

c ao- tizc->needs_zeroed = TRUE; /* Always zero histogram */ 

} elo... { 

/ ■■" lo i method pointers */ 

10 :oinf o->dither_mode == JDITHER„FS) 

oa.:ant ize->pub. color_quantize = pass2__f s_dither ; 

e 1 

arroant" ze->pub. color„quantize = pass2_no_dither ; 
c;:;a:ao:tize->pub, finish _pass = f inish_jpass2 ; 

/ - :;ake sore color count is acceptable */ 
: --^ rinf a->actual_nurriber„of_colors ; 

i o ' < . ) 

E^IhEXII^l (cinfo, JERR„QUANT„FEW_COLORS, 1); 
io.; a-: > "LAXNUMCOLORS) 

a :?EXI-l(cinfo, JERR_QUANT_MANY„COLORS , MAXNUMCOLORS) ; 

i : a inf o ^>dither_iT-ode == JDITHER„FS) { 

o oe_r arraysize = Csize„t) ( (cinfo ->output_width + 2) * 
(3 * SIZEOF(FSERROR) ) ) ; 
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All(^cate Floyd-Steinberg workspace if we didn't already. 

(ccj ^ntize->fs errors == NULL) 

ci2 --->;serrors = (FSERRPTR) ( *cinf o->meni->alloc_large) 
_cornion_ptr) cinfo, JPOOL_IMAGE, arraysize) ; 
Ini.ialize the propagated errors to zero. */ 
:co_ - ar ( (void *) cquantize->f serrors , arraysize) ; 
llak- the error-limit table if we didn't already. */ 
(cc; antize~>error_limiter == NULL) 
.error^limit (cinf o) ; 
:ant^ze->on_odd_row = FALSE; 



) 

/* 
if 



o thf- histogram or inverse color map, if necessary */ 
v,antize->needs_zeroed) { 
tor (i = 0; i < HIST_CO„ELEMS ; i++) { 
- ro_^ar ( (void histogram [i ] . 

^'IST.Cl_ELEMS*HIST_C2_ELEMS * SIZEOF (histcell) ) ; 

equal :.ciz'^~>needs__zeroed = FALSE; 



/ 



* Sv;ir to a new external colormap between output passes. 
*/ 



METHC::)D:l- (vcid) 

new_coi ):'_ma-o 2_quant ( j_decompress j>tr cinfo) 
{ 



=fny_„ -^t^ T,3_ptr cquantize = (my_cquantize jtr ) cinf o->cquantize; 



Ra;/- 1 t:^e inverse color map */ 
Si^qu;^ ze- needs_zeroed = TRUE; 



:ialization routine for 2-pass color quantization. 



Jiniii. 

L,„my„^: 
Oint 



'^cqur 
cqur 

cquu 



if 



cqi: ■ 
for 



} 

cqi: 



dd) 

■ss_(.uantizer ( j_decompress_ptr cinfo) 

■•,ntize_ptr cquantize; 



: ze ^= (my_cquantize_ptr) 

fo- 'nem->alloc„small) ( ( j_common__ptr ) cinfo, JPOOL_IMAGE, 
SIZEOF (my_cquantizer) ) ; 

cqu..:v-ize = (struct jpeg_color„quantizer *) cquantize; 

ze- pub. start__pass = start_pass_2_quant ; 
; z e - > pub . n ew_c o 1 o r_map = new_c o 1 or_map_2_quant ; 

i ze- fs errors = NULL; /* flag optional arrays not allocated */ 

:'.ze- 3rror_limiter = NULL; 

sure jdmaster didn't give me a case I can't handle */ 

fo- c Jt_color_components 1= 3) 
■;IT (cinfo, JERR^NOTIMPL) ; 

cat? che histogram/ inverse colormap storage */ 
-7e- histogram ^ (hist3d) { *cinf o->mem->alloc_small ) 
r omirc>njtr) cinfo, JPOOL_IMAGE, HIST_CO_ELEMS * SIZEOF (hist2d) ) ; 

^0, i < HIST_CO_ELEMS; i++) { 
ctiz ->histogran[i] = {hist2d) { *cinf o->mera->alloc_large) 
^^co-JTon„ptr) cinfo, JPOOL_IMAGE, 

ST„ULEMS*HIST_C2_ELEMS * SIZEOF (histcell) ) ; 



;. ze ■ 



needs„zeroed = TRUE; /* histogram is garbage now */ 



cai: storage for the completed colormap, if required, 
o rc^s now since it is FAR storage and may affect 

me^'.-ry manage 



space calculations. 



if 



fo- cnable„2pass_quant) { 
;<e ..nre color count is acceptable 



:esired = cinf o - >desired_number_of _colors ; 
wer oound on ^ of colors ... somewhat arbitrary as long as > 0 */ 

•es.-ed < 8) 



16 



E: i 3XT ' I (cinfo, JERR_QUANT_FEW_COLORS , 8) ; 
1^ :;:;ce " ire colorrrap indexes can be represented by JSAMPLEs */ 
if :-s': id > MAXNUMCOLORS) 

Er:7 i3X: "V (cinfo, JERR_QUAWT_MANY_COLORS , MAXNUMCOLORS); 
cau - ~iz-->sv_coloriT.ap = {*cinfo->mem->alloc__s array) 

( 'i _cor.-non„ptr) cmf o , JPOOL_IMAGE, (JDIMENSION) desired, (JDIMENSION) 
cquant:iz J ->desired = desired; 
} els- 

cqu:;i:tize->sv__colorinap = NULL; 

/* Or: ' F-r dithering or no dithering is supported. */ 

/* If ser asks for ordered dither, give him F-S. */ 
if (ca; f o- dither_Trode 1= JDITHER_NONE) 
cin;a :->a .aher_mode = JDITHER_FS; 

/* Al aa. - Eloyd-Steinberg workspace if necessary. 

* Th:. iaa't really needed until pass 2, but again it is FAR storage. 

* Al^ ::oiarr. V7G wlll cope with a later change in dither_mode, 

* we n )c promise to honor max_memory„to_use if dither_mode changes. 
*/ 

if (c ; r fo-^ dLther_mode JDITHER_FS) { 

cqua ;:ia:->fserrors = (FSERRPTR) ( *cinf o->meni->alloc_large) 
( cc;n:aon__ptr) cinfo, JPOOL„IMAGE, 

: [zc c) ( (cinfo->output^idth + 2) * (3 * SIZEOF (FSERROR) ) ) ) ; 
/* r^ight as well create the error -limiting table too. */ 
ini^ arrar^limit { cinf o) ; 

} 

} 

#endif ' QE VCE_2PASS„SUPP0RTED */ 



17 



* 

* Copyr aht (C) 1991-1996, Thomas G. Lane. 

* This 'le is oart of the Independent JPEG Group's software. 

* For c iidi -ions of distribution and use, see the accompanying README file. 
* 

* This rile contains tables and miscellaneous utility routines needed 

* for b -'ompression and decompression. 

* Note 3 p. ef ix all global names with "j" to minimize conflicts with 

* a sur: >uiv.ting application. 
*/ 

#define / -EG_INTERNALS 
#includG ■■ j i Include .h" 
#include ■jpogiib.h" 



* jpeg_ gz-.a^order [i] is the zigzag-order position of the i ' th element 

* of a : T Dlock read in natural order (left to right, top to bottom). 
*/ 

#if 0 



cons 
0 
2 
3 
9 
10 

ri20 

m 



t in 

1 . 
4 . 
8 . 
11 , 
19 . 
22 , 
34 . 
36 . 



/* This table is not actually needed in v6a */ 

g_zigzag_order[DCTSIZE2] = { 



6, 14, 15, 27, 28, 

1, L3, 16. 26, 29, 42, 

12, 17, 25, 30, 41, 43, 

18, 24, 31, 40, 44, 53, 

23, 32, 39, 45, 52, 54, 

33 38, 46, 51, 55, 60, 

37. 47. 50, 56, 59, 61, 

4?, 49, 57, 58, 62, 63 



#^Tidif 



jpeg^;^ 
y| of zi;* 

When 
to re;: 

LI zero 
wild 

%^ "63"s 
to be 
The v; 

y fake - 

d/ 

^Snst in- 
0, 1, 
17, 24, 
12, 19, 
27, 20, 
35, 42, 
29, 22, 
58, 59, 
53, 60, 
63, 63, 
63, 63, 

}; 



ati.\al_order [i] is the natural-order position of the i'th element 

zac. order. 

a-!::ig corrupted data, the Huffman decoders could attempt 
ere .ce an entry beyond the end of this array (if the decoded 
.m length reaches past the end of the block) , To prevent 

.03 -s without adding an inner-loop test, we put some extra^ 
if tar the real entries. This will cause the extra coefficient 
:;to-3d in location 63 of the block, not somewhere random. 
■Ft case would be a run-length of 15, which means we need 16 



TP 



■eg_n. 
25 



33 , 



23 , 



63 , 



atural_order[DCTSIZE2+16] = { 

9, 2, 3, 10, 
18, 11, 4, 5, 

40, 48, 41, 34, 

7, 14, 21, 28, 

57, 50, 43, 36, 

30, 37, 44, 51, 

38, 31, 39, 46, 

47, 55, 62, 63, 

63, 63, 63, 63, / 

63, 63, 63, 63 



* extra entries for safety in decoder */ 



* Ar i th-:\ ci utilities 
*/ 

GLOBAL (l;ag) 

jdiv_roui;a_^r; (long a, long b) _ 

/* Compu- a ^-,1) rounded up to next integer, le, ceil(a/JD) / 

/* Assum? s r 0, b > 0 */ 

{ 

return ;a - n - IL) / b; 

} 



GLOBAL (lag) 



1 



jround„u; 
/* Compu: 
/* Assiarr- 
{ 

a += b 
return 

} 



a, long b) 

rounded up to next multiple of b, ie, ceil(a/b)*b */ 

0, b > 0 */ 



; a 



b) ; 



/* On nc : 

* and c 

* are F'/- 

* DOS c 

* in th.^ 

* Otherv. 

* is nc 
*/ 

#ifndef : 
#define ■ 
#define i 
#else 
#ifdef U: 
#define : 
#define ; 
#endif 
#endif 



Tiachines we can apply MEMCOPYO and MEMZERO ( ) to sample arrays 
cient-block arrays. This won't work on 80x86 because the arrays 
-I we're assuming a small-pointer memory model. However, some 
- ers provide far-pointer versions of memcpyO and memsetO even 
■lii -model libraries. These will be used if USE_FMEM is defined, 
the routines below do it the hard way. (The performance cost 
-hat great, because these routines aren't very heavily used.) 



':,sr: FAR_P0INTERS /* normal case, same as regular macros */ 
;'EX: O^^^Y (dest, src, size) MEMCOPY {dest , src , size) 
; ;ET'^r.?.RO { target , size) MEMZERO (target , size) 

/* 80x86 case, define if we can */ 

^■^iv:(y^Y{dest,src,size) _fmemcpy{ (void *) (dest) , (const void *) (src) , (size„t) (size) ) 
MHMZERO( target, size) _fmemset ( (void *) (target), 0, (size„t) (size) ) 



GLOBAL ( V 
jcopy_sa: 



iS Copy :^ 
num_r ' ' 
to ou : 

& The £' 

^^■regis t : 
i|fdef F;: 
H^l^iregist ^ 
f=^lse 
s regist:: 
I end if 
"ir^sgist c 

nj j;input__:^ 
''■"^^ output. 

pjfor (r- 
Zl inpt:: 
outp ^ 
frifdef F: 

#else 

for : 

*c 

#endif 
} 

} 



O-o -:cv7s (JSAMPARRAY input_array, int source_row, 

.'F7\]IPARRAY output_array , int dest_row, 

.1^ o num_rows, JDIMENSION num_cols) 
.ifc rovjs of samples from one place to another. 

zovjs are copied from input_array [source_row++3 
■}\r irray [dest_row+ + ] ; these areas may overlap for duplication. 
:rc- and destination arrays must be at least as wide as num_cols , 

■ 'VIPROW inptr, outptr; 

; '^J_z-_t count = (size_t) (num_cols * SIZEOF ( JSAMPLE) ) ; 

• .^'T MENS I ON count; 

:.- -.t row; 

: r 1 ^ source„row; 
ir^ +^ dest„row; 

V - -iurr_rows; row > 0; row — ) { 
' \ nput_array++ ; 
' output_array++; 

(o.itptr, inptr, count); 

= num_cols; count > 0; count — ) 
= *inptr++; /* needn't bother with GETJSAMPLEO here */ 



I 
I 



GLOBAL ( v 
jcopy„bl; 

/* Copy : 
{ 

#ifdef f: 

FMEMCG ^ 
#else 
regist 
regist ; 

inptr 
outptr 
for (c 

*out 

} 

#endif 



ro;/ (J3L0CKR0W input_row, JBLOCKROW output_row, 
3ISI0N num_blocks) 
\ - of coefficient blocks from one place to another. */ 

y ^^;.;t„row, input_row, num_blocks * (DCTSIZE2 * SIZEOF (JCOEF) )) ; 

Lt JEFPTR inptr, outptr; 

1 -.nq count; 

F'^'FOEFPTR) input_row; 

tCOEFPTR) OUtput_row; 

:i -- (long) num_blocks * DCTSIZE2; count > 0; count — ) { 

= *inptr++; 



} 



GLOBAL (v- :.ci ; 

jzero_fa:. i\ 

/* Zero 

/* This r-. ah 

{ 

#ifdef p.: '^m: 
FMEMZE--:")(i 

#else 

regis t^:;: 
regist ; 

for {c v::' 
*ptr ■ = 

} 

#endif 
) 



-[ " target, size_t bytestozero) 
-J hunk of FAR memory. */ 

be sample-array data, block-array data, or alloc_large data. */ 



■cqet, bytestozero) ; 



:ar ^ ptr = (char *) target; 
ze_z count; 



bytestozero; count > 0; count--) { 



/* 

*@authc ■ ::-*-_-\z Hossain 
* 

*@vers: .m ^- 0 

#include s i-.ci:io.n> 
#includf:- -a: ^Gc.h> 
#include ^' ^ror .h" 
# include ■so^::rtp.h> 
#include ip^.r__class .h" 



// stati 




// Error 




const ii 




const ir: 




const ir- 


J . j(t * 


const ir? 




const ir : 




// Codin 




const in; 




const ir.: 




const ir 




const ir: 





SUCCESS=0; 

MEM0RY_ALL0C_ERR0R=1 ; 
r ILE_READ_ERR0R=2 ; 
FILE_WRITE_ERR0R=3 ; 
JPEGLIB_STRUCT_INIT_ERR0R=4 ; 



: DEFAULT_CODING=0 ; 

:BASELINE=0; 

• PR0GRESSIVE=1; 

■L0SSLESS=2; 



// Resol 
q^mst ir 
cksFhst ir: 
c?||ast ir 
cSsiSt i:::. 
efjkst ir 

Color 
cdnst ir 
©cSnst ii 
esStnst ir 



^'G • : DEFAULT_RES=:1 ; 

.0NE„BYTE=1; 
--::-} :TW0_BYTE=2; 
rC4 :THREE„BYTE=3; 
' F0UR_BYTE=4; 



: DEFAULT_BPP=3 ; 

:Gray=l; 

:RGB=3; 



if Imagr rvr^ , ry 

gonst i::': G' ..G GEF_QUALITY=60 ; 

f:| ComprroS^ .n Ratio 

Sjonst t\-:^\z G?EG: :DEF_RATIO=0.50; 

Time ... .r^^^ r the compression 
const 1; : :^ 'G.7_TIME=5; // 5 seconds . 



[^rcode(BYTE * jpeg_get_Buf f er , int *length.int *ret_quality, int n_Height. int n_Width, i 
- n^Quality, int n_Res, int n_Coding) 

r G g_c ompr e s s_s true t c_s t rue t ; 
;^^^q_error_mgr jerr; 
' ptr_to_buf fer [1] ; 
er_length, counter=0 , i ; 
rerurnbuf f er; 

BYTI" ,.^^(L_RGB_Buf f er; 
int 

int r= 



BYTE * G. 
nt n_Bpr 
{ 

s trr ■ 
strr ■ " 

JSAG-" 

int ;r.G 
JOC?-":t 



bpp-r... ir 
res : .. ' . . 

jper g: g 3 ;f fer=RGSolution_Convertor(jpeg_get_Buffer,Scbpp,&res,n_Height,&n_Width) ; 

n_B:r;-'^! ,), 



n__Ii:'^r;- . ^ "fhr :=n_Height ; 
n_Ir;crT icMh=n_Width; 

n_I:-r-.;-i , o;:-n__Bpp; 



1 



//#: .. y, ^ 1 no assert BPP=1 or 3, and Width and Height >0 

n_I:-; \- -^^olucion=n_Res ; 
n_I:- i-^'.:' ^ingType==n_Coding; 
n_I : . . ■ - : - ^« 1 i t Y=n_Q\ial i ty ; 

buf : : ^:v7th:=n„ImageWidth*n_ImageBpp; 

ptr ; . -ier [0] = ( JSAMPLE * ) malloc (buf f er_length*sizeof { JSAMPLE) ) ; 

if {r: : _ _Lx.f f er [0 ] ==NULL) 

^ {scderr, "Memory Allocation error! ! !\n") ; 

} 

// Firs: r Initializing JPEG compression object 

// ; -g' h : error handling code 

c_s :- :]c- ^ir = jpeg_std^error (Scjerr) ; 

jpec ::: ^:^e_compress (Scc_struct) ; // object initialization 

c_s , r ■ ■ .:dex=0 ; 

// Next s : We will not be using a File. So skipping source definition. 

// Intitializing Height, Width and Bpp properties. 

L J c_£ : : ; ■ ■ c ' 1 g e_wi d t h = n_ImageWi d th ; 
y!i c_s::: K ^nage_height = n_ImageHeight ; 

ff^ if ; - - a TeBpp==3 ) 



;ct input_coinponents = 3; // # of color components /Bytes per pixel, 

"'3-' .jt in_color„space = JCS_RGB; // colorspace for input image. 

} 

els'- 

I c input_components = 1; // # of color components /Bytes per pixel. 

;ct in_color„space = JCS_GRAYSCALE ; // colorspace for input image. 

.-_dest {&c_struct) ; // ### new modification. Instead of jpeg„stdio_src. 

( : Setting defaults and any special parameters like Quality, Coding, etc., 
..3 faults (&c_struct) ; 

ja Lity (S:c_struct, n„ImageQuality , TRUE ); 
'4; Initializing compressor 
c^compress (&c_struct, TRUE) ; 

. Compressing one scanline at a time, 
s^^ruct .next_scanline < c_struct . image_height) 
- : , -.<buf f er_length; i++) 

.„buffer[0] [i] = { JSAMPLE) jpeg_RGB_Buffer [counter] ; 

'^"i"e_scanlines (&c_struct, ptr_to_buf f er , 1) ; 

( n ] Clean up 
^compress {5cC_struct) ; 

-obstruct .dest->outbuf f er; 
: ^ ->outbuf fer=NULL; 
/_:^rr\press (ScC_struct) ; 

r.iifer [0] ) ; 



^ } 

Si! jp^'' 

Yi Next 

// Next 

// Next: 

wh: . ■ 
{ 



} 

// Last 
jpeg_: 

retur; 
C_Str: 

jpeg_ 

free ( ■ 
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*lena . ■ c_s true t . index; 

*retl ' " ; : nt ) n_ImageQuality; 

fre / ' r-- ' :G3_Buf f er) ; 
return ' f returnbuf f er) ; 

} // en: "hod : compute ( ) 

// 

// n; ^ '^^r^R 

// 

BYTE * V : .--ode (BYTE *CompressedBuf f er , int length) { 

int i , c . . ^ 0 , 

JSAMPLE -itfer; 

JSAMPLE ^r'fexil]} /* temporary buffer to read in the scanlines. */ 

int buf : ., tn; 

/* Firs: ;^ r assigning structure variables */ 

sisruct - ,rompress_struct d_struct; /* decompression structure */ 

^Eruct - - :-cr„mgr jerr; /* error handling stuff */ 

<Cstruc- - ^g__std_error (Scjerr) ; 

^* ### . -1 ^:!dler ( Will check later) */ 

fMNext Lni*:ialize decompression structure variable */ 

^peg_c r > ; ■ " : ^ ' o -up r e s s ( &d_s true t ) ; 

y ### : r: , 3 pointer in the structure to the Compressed Input Data */ 

^ Nex: :~ore file pointer in decompression structure. */ 

gj jpeg. . ■ _ ->rc ( Scd_s truct , in„f p) ; 

jpeg_bir;-: ■ '^d_s truct) ; 

d_struc nouf f er= (JS AMPLE * ) CompressedBuf f er ; 

d_struc >..ii t f er_length=length; 

/* Next - ^^-ed the info, from the header to decompress the data */ 

jpeg„re u - ; lei ; &d_s truct , TRUE) ; /* ### Need to figure out what the "TRUE" does. */ 

n_Image" . : s::ruct . image„width; 
n_Image; . i ^ = d__s truct. image_height; 
n_Image _ ^ rue t . nuin__components ; 

buffer . ' -.__::-aageWidth*n_ImageBpp; /* width of buffer to take care of RGB values in successi 

/* buff ^ o-mg allocated */ 

/* Here .; ■ ^ V 

temp„tau : : " ^ { JSAMPLE *)malloc (buf f er„length*sizeof ( JSAMPLE) ) ; 

if (ternr^.. i: ^ : n ] ==NULL) 

^ - : (stderr, "Out of memory for temporary buffer \n"); 
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} 



rav; 

if 

{ 



} 



/* Next 
jpeg_sr 

/* Che:; 

if ( ! ( 

mageBprv 

{ 

f pr : 

} 



/* Next 
while ( 
{ 

?! for 



S;* enc-: 

; H -i 

free (te.: 

Fino 

g|eg_f: 

Jfeg_de: 

gf intf ( 

7/ ### 
return 

}/* enc 



/* Meth 



BYTE 
{ 

int rev: 
int i , 
int ht, 

BYTE ^ 



ht=*hel 
wd=*wic 



r ow_s t - 
row_en; 



diffr=: 



(MSAMPLE *)malloc(n_ImageHeight*buffer_length*sizeof (JSAMPLE )); 

^ ."::-r = =NULL) 

;stderr, "Out of memory for raw buffer \n"); 

rjiqnal start decompression */ 
. - - r p r e s s ( &d_s true t ) ; 

. ens ions * / 

-:: :eight== ( int) d__struct . output_height) && {n_ImageWidth== ( int) d_struct . output„width) && {n_I 
t ; _s truct . out_color_components ) ) ) 

-rr , "Image dimensions / bpp do not matchXn"); 

the actual reading. . . */ 
' . c^-uc t . output_scanline<n_ImageHeight ) 

;c^inlines(&d_struct, temp_buffer,l) ; 
' \iLf er_length; i++) 
, I f-r [counter] =temp_buffer[03 [i] ; 

-lile loop.*/ 
^r,0] ) ; 

IL finally works!!! 
..-n^press (Std_s truct) ; 
; -c '^npress (&d_struct) ; 
, rounter = %d\n" , counter ) ; 

free temp_buf f er 

, ' ■ -aw_buf f er ; 

:"iidow get a central window with l/7th the original sides. */ 

: :o Window (BYTE * whole_stream, int * height, int * width, int bpp) 

' , r';w_end, col„start, col_end; 
_^ =„,'v_k=l, diffr, diffcdiffcb; 

^c^, c_start , c_end; 



_start+l; 



I 
I 
I 



I 
I 
I 



*heighl:. 

c_start 
c_end= ■; 

diffc=c 

col_sra 
col__enc 

diffcb- 

*width- 

smali_b 

if (sraa. 
{ 



wdb=v7d ■ 

for (i^^ 
{ 

fo:i. 
{ 



7 , 



:rt + l; 



-art-1) *bpp+l; 
' J3pp ; 

II multiply after the calculation, :) 



^)malloc{diffr*diffcb*sizeof (BYTE) } ; 
io, r, "Memory Alloc error \n"); 



lb; 

--ow_start) Sc& (i<=row_end) ) 

( : j>=col„start)5c&{j<=col_end) ) 

.i-nail_buf f [s_k-l]=w]iole_streamtw_k-l] ; 



I 



I 



E 
I 

I 
I 

I 
I 
I 



return 



/* Ov 



BYTE 

int ri 

{ 

BYTE 
BYTE - 

int ler; 
int n„ - 
int n_r 
float 
float 
int qu: 
int qu. 
int fir 
long nir 



time__t 
double 

BYTE ' 

int bp^ 
int re: 



-i_ode function to take care of compression ratio */ 

icode(BYTE *jpeg_get_Buffer.int *length, int * ret_quality, int n_Height, int n_Width, 
a- n_Ratio, long n_Time, int n_Res, int n_Coding) 

IRawBuffer; // for the small test window we're working with , 

;3af f er; 

_vidth, small„img„size; 
q it,n_store_width; 

r?. ,io, hi_comp_ratio , mid_comp_ratio; 
_L-it=10, quality_hi_lmt=90, quality; 

_^mt; 

ions=0; 

s ^3 c_e lapsed ; 

-^-5, end_time; 



._3uf f er; 



f er=Resolution_Convertor ( jpeg_get_Buf f er , Scbpp, &res,n_Height , &n_Width) ; 



.t=n_Height; 

o assert BPP=1 or 3, and Width and Height >0 

.ution=n„Res; 
gType=n„Coding ; 

-1 Ratio; // specifying compression ratio instead of the Quality factor. 
Time; // Maximiim # of seconds that will be tolerated for the determination of the 
factor. 



't I'm taking, say, an n by m window, where n= (1/7 ) *ImageHeight 
/ 7 ) *I]:nageWidth*Image_Bpp . 

lnit= (quality„hi_lmt+quality_lo„lmt ) /2 ; 

mageHeight; 
ageWidth; 

a vBuf f er=ChopWindow{ jpeg_RGB_Buf f er, &:n_height, &n_width, (int) nJmageBpp) ; 

^ ze=n„height*n_width*n_ImageBpp ; 

o.it=n_ImageHeight ; 
i h=n_ImageWi dth ; 

r,-=n__height; 
! =n_width; 



' uffer=test .Encode {jpeg_RawBuffer,&len) ; 

the upper and lower boun ratios corresponding to the upper and lower 
: the quality factor i.e. 9 0 and 10 respt. 

ower bound on the cguality factor i.e. 10. 

1 f er=Encode ( jpeg_SmallRawBuf f er , &len, ret_quality , ( int ) n_ImageHeight , ( int ) n_ImageWidt 
■t:p, (int) 10) ; 

^ o= (float) len/ (float) small_img_size; 

-VitaBuff er) ; 

-.Dper bound on the quality factor i.e. 90. _ 

. fer=Encode(jpeg_SmallRawBuf fer,&len,ret_quality, (int)n_ImageHeight, (int) n_ImageWiclth 
rr, (int) 90) ; 

: o= (float) len/ (float) sinall_img_size; 
:ataBuffer) ; 

- iddle bound on the quality factor i.e. (90-10) /2. _ 
' fer=Encode{jpeg_SmallRawBuffer,6clen,ret_quality, ( int ) n__ImageHeight , (mt) n_ImageWidth 
;r, (int)quality_mid_lmt) ; 
.Lio= (float) len/ (float) small_img_size; 
ctaBuffer) ; 



determination of quality factor. 



i o>=hi_c omp_rati o ) 
qual i ty_l o_lmt ; 



i: :^ . io<=lo„coinp_ratio) 

( 

' qua 1 i ty_hi_lnit ; 

} 

i:;: — itio<mid_comp_ratio) && {comp_ratio>lo_coinp_ratio) ) 

{ 

' hi_lmt=quality_mid_lmt; 
r ratio=mid„comp_„ratio; 

- '_mid_lmt= (quality„hi_lmt+quality_lo_lnit) /2 ; 

r; I :aBuf fer=Encode ( jpeg_SmallRawBuf f er, &len, ret_quality, (int)n_IinageHeight, { int) n^ImageW 
idth, ; : i.^-reBpp, (int) quality_mid_lmt) ; 

nTo_ratio= (float) len/ (f loat) small_i^ng_size; 
; -g_DataBuf f er) ; 

if ; . - atio>=mid_comp_ratio) && (comp_ratio<hi_coinp_ratio) ) 

/ _1 o_lint = qua 1 i ty_mi d_lnit ; 
: ' n _ratio=mid_comp_ratio; 

- /_mid_lmt= {quality_hi_li^t+quali ty„lo_lmt ) / 2 ; 

-aBuffer=Encode{jpeg„SmallRawBuffer,&len,ret_quality, {int)n_ImageHeight, ( int ) n_ImgeW 
n cj eBpp , ( in t ) qual i ty_mid__lmt ) ; 
.. o_ratio= (float) len/ (float) small_img_size; 
" -og_DataBuf f er) ; 



idth, 



/_lo_lmt==quality_mid_lmt) | | (quality_hi_lint==quality_mid_lint) ) 
^ ^quality„niid_lmt ; 



„;:;//■;: - issue 

HI ti.:- ■ '. ' ^me) ; 

ti: :;r^- I if f time (end^time, start_time) ; 

CJ se: i - (long) time„span; 

"^J i:: iosed>max__time) 

qual i ty_mid_lmt ; 

) 

} // t while loop. 

n_ ; V . ^ 1 1 =n__s t or e_he i ght ; 

n ; : \ " 'i=n__store_jwidth; 

jp ^ "fer=Encode(jpeg„RGB_Buffer, length; ret_quality, (int) n_IniageHeight , ( int ) n_ImageWidth , ( 

int)n , ; int) quality) ; 

/' ibout the "length".., and NOT "len" here. 

i-^.i ■ : ! -.io=:f loat (len) /sinall_img_size; 

fr lallRawBuf fer) ; 

: > /^quality; 

fr^ ; ^B_Buf f er) ; 

r- - ' r DataBuf f er ; 

} // o: ^ ^ overloaded Encode. 

/* Re: onvertor */ 
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jolution_Convertor(BYTE * jpeg_get_Buf f er , int *bpp, int *res, int Height, int *Width) 



oe either 1 or 3 . 



J th . 1 eng th2 , 1 eng th4 ,i,diff_len,diff, max , mi n ; 



11, val2; 
. :,n_Width; 
; _di f f _1 en , s tar t_i ; 

al; 

RGB_Buf f er; 

.pp; 
: es ; 

ight; 
ith; 

s<l) 



es; 

■ ;want_res-l, 4) ; 
^^i_val .rem+1 ; 
^ "_res ) 



ONE_BYTE) : { 
- e_bpp==3 ) 

' Tth=n_Height*n_Width; 
J th=n_Height*n_Width*have_bpp ; 

3_Buf fer= (BYTE *) malloc ( sizeof (BYTE) *length) ; 
j_RGB__Buf fer==NULL) { 

mtf (stderr, "Memory alloc errorXn"); 
t(l); 

e_bpp==3) 



L {i=0;i<length;i++) 
val=0; 

val+=jpeg_get_Buf fer [3*i] ; 
val+=jpeg_get_Buf fer [ (3*i)+l] ; 
val+=jpeg__get_Buffer[ (3*i)+2] ; 

Dpeg_RGB_Buf fer [i]= (BYTE) (val/3) ; 



, i<length; i++) 
^ j_RGB„Buf fer [i]=jpeg_get_Buffer [i] ; 



. a_Width; 



} 
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•TWO_BYTE) : { 



n_He i gh t * n_Wi d th * have_„bpp ; 
-^length/ 2; 

7th2 + (length- { 2 *length2 ) ) ; 

. 3_Buf fer= (BYTE *) malloc ( sizeof (BYTE) *len) ; 
7_RGB_Buf fer==NULL) { 
:.nte (stderr, "Memory alloc errorXn"); 
t(l) ; 



"^256; 

3 ; i<length2 ; 

L= (int) jpeg„get_Buffer [i*2 3 ; 
2=(int) jpeg„get_Buffer[ {i*2)+l] ; 

=(vall*256)+val2; 
{val>=max) 

max=val ; 
(val<=min) 

min=val ; 



the last guy 
.7th!=(2*length2) ) 

-t) jpeg_get_Buffer [2*length2] ; 

> =max ) 
^' ~val ; 
<=min) 
^val ; 



ix-min; 

;i<length2;i++) 

L= (int) jpeg_get_Buf far [i*2] ; 
_2=(int) jpeg_get_Buffer[ (i*2)+l] ; 

-(vall*256)+val2; 

a_RGB„Buf fer[i]=(BYTE) ( (val-min) *255/dif f ) ; 



gthl=(2*length2) ) 

t) jpeg_get„Buffer [2*length2] ; 

■3_Buf fer [length2]= (BYTE) ( (val-min) *255/dif f ) 



} 



THREE_BYTE) : { 
a_He i gh t * n__Wi d th* have_bpp ; 

-qth; 

^ / (n_Height*3) ; 
d*3*n_Height) !=len) 
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f_len= (wid*3*n_Height) -len; 
: hwid„dif f_len? 

3_Buf fer={BYTE *) malloc { sizeof (BYTE) * (len) ) ; 

q_RGB_Buf f er==NULL) { 

intf (stderr, "Memory alloc error\n"); 

td) ; 

, i<length; 

g_RGB„Buf f er [ i ] = jpeg_get_Buf f er [ i ] ; 

ength; i<len; 
g_RGB„Bu f f e r [ i ] = 0 ; 



} 



•FOUR„BYTE) : { 

n_Height*n_Width*have_bpp ; 

^length/4 ; 

ength 4 ; 
-.'7th[ = {4*length4} ) 
^ =l€n+3 ; 

/ (n_Height*3) ; 

d*3*n_Height) !=len) 



f_len= (wid*3*n_Height) -len; 
^wid_dif f_len; 
3_Buf fer= (BYTE *) malloc (sizeof (BYTE) *len) ; 
g_RGB„Buf f er==NULL) { 
intf (stderr, "Memory alloc errorXn"); 
::(1) ; 



3 ; i<length4 ; 

a_RGB_Bu f f er [ i * 3 ] = j peg_ge t_Buf f er [ 4 * i ] ; 
^ T_RGB_Buf fer[ ( 1*3 ) +1] =jpeg_get_Buf f er [ (4*i ) +1] ; 
^ g_RGB_Buffer[ (1*3 ) +2 ] =jpeg_get_Buf f er [ (4*i) +2 ] ; 



n= length- {4*length4) ; 
J ; i<dif f_len; 

g_RGB_Buf fer[ (length4*3 ) +1] =jpeg_get_Buf f er [ {length4*4) +i] 



-(3*1 eng th4 ) +di f f _1 en ; 

start_i ; i<len; 
7_RGB_Bu f f er [ i ] = 0 ; 



.^id; 
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j the switch statement, 

returr. _Buffer; 
} // r .hod Resolution_Convertor . 
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* This DT 

* Davis U 

* with th 

* deviati 

* fixes , 

* Technic- 
* 

*********** ' 

y^********** ' 

* PDU Serv 

* A-ASSOC:: 



object library was developed based on University of California, 
' DICOM Network Transport Libraries, in full compliance 
pyright note below. This version however contains conceptual 
from the UCDMC library, as well as important bug and performance 
cannot be used/copied/distributed without our permission 

ontact: oleg@bit.csc.lsu.edu 

^^^^^********************* ************************************/ 
. ************** ***************************** 

Classes : 
,-RQ Class. 



Base Cle 
Applica 
Abstrac 
Transf e: 
Present 
Maximurr; 
Imp 1 erne 
Imp 1 erne 
Userinf 



Context 

tax 
tax 

nC on text 
,ength 
ionClass 
ionVersion 
tion 



********** 



^^********************* ********************************/ 



! define 
#a4fine 



ARQ_HPP INCLUDED_) 

?P INCLUDED. 



q|=^ss App 
private 

byt: 

..: BYT 
UIK 

]J% public: 

S!! uir 



tionContext 



ItemType; // 0x10 
Reservedl; // 0x00 
Length; 

ApplicationContextName ; 



App tionContext {) ; 

App : t i onCont ext { UID & ) ; 

App -tionContext (BYTE *); 

-Ap ationContext ( ) ; 

voi Set (UID &) ; 

voi Set (BYTE *) ; 

BOO^ Write (Buffer 8c); 

BOO Read (Buffer &) ; 

BOC ReadDynamic (Buf f er &) , 

UIK SizeO; 



}; 



class Abs' 
{ 

private 
BY1 
BYT 
UI^" 

public : 

uir 



: Syntax 



ItemType; // 0x30 
Reservedl; // 0x00 
Length ; 

Abs tract SyntaxName ; 



Abs cSyntaxO; 

Abs .Syntax (BYTE * ) ; 

Abs ^ tSyntax{UID &) ; 

-Ab ctSyntaxO; 

voi Set (UID &) ; 

voi Set (BYTE *) ; 

BOG. Write (Buffer &) ; 

BOO Read (Buffer &) ; 

BOO ReadDynamic (Buf fer &) 

UIN SizeO; 



}; 



class Tra 
{ 

private 
BY1 



: Syntax 

ItemType; // 0x40 



1 



BYT 
UIN 
public : 
UIK 
UIE 



vol 
voi 
voi 
BOC 
BOC 
BOC 
UIIv": 



}; 



Imp ■ 



class 
{ 

private 

byt: 

BYT- 

public : 

UID 

Imp 
Imp 
Imp 

LJ -Irr- 
^1 voi: 
iii; voi 
BOC 

y;! BOC 
^.J BOC 

.: UIK 



Reservedl ; 
Length; 



// 0x00 



EndianType; // not really used so far 
Trans ferSyntaxName ; 

TransferSyntaxO ; 
Transf erSyntax{BYTE *); 
TransferSyntax(UID &) ; 
-TransferSyntaxO ; 
Set (UID &) ; 
Set (BYTE *) ; 

SetType(UINT T) { EndianType = T; } 
Write (Buffer &) ; 
Read (Buffer &) ; 
ReadDynamic (Buffer &) ; 
Size 0 ; 



ntationClass 



ItemType; 

Reservedl; 

Length; 



// 0x52 
// 0x00 



Imp lament at ionName ; 

ntationClass ( ) ; 
.ntationClass (BYTE *); 
.ntationClass (UID &) ; 
\entationClass ( ) ; 

Set (UID &} ; 

Set (BYTE *) ; 

Write (Buffer &) ; 

Read (Buffer &) ; 

ReadDynamic (Buffer 

Size ( ) ; 



Imp 



diass 

private 

h^' BYT 
£5 BYT 

m 

public: 

"^4 uic 

Imp 

voi 
vo: 
BOC 
BOC 
BOC 
UI^ 

}; 



^ntationVersion 



ItemType; // 0x55 
Reservedl; // 0x00 
Length; 

Version; 

-ntationVersion ( ) ; 
-ntationVersion(BYTE *); 
ntationVersion(UID &) ; 
-entationVersion( ) ; 

Set (UID &) ; 

Set (BYTE *) ; 

Write (Buffer &) ; 

Read (Buffer &} ; 

ReadDynamic (Buff er &) ; 

SizeO ; 



class SCr ^^oleSelect 
{ 



private 




// 0x54 


BYT^ 


ItemType; 


BYI ' 


Reservedl ; 


// 0x00 


UIN 


Length ; 




public : 






by: 


SCURole; 




BY': 


SCPRole; 




ui: 


SOPuid; 




SC] 


'^oleSelect ( ) ; 




-sc 


:RoleSelect ( ) ; 




BOC 


Write (Buffer &) ; 


BOC 


Read(Buf f er 


&) ; 


BOC 


ReadDynamic (Buffer 


UII^ ' 


SizeO; 
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}; 



class Prt 
{ 

private : 

by: 

BYT 
BY': 
BYT ■ 

uii;:; 
piiblic : 

byt; 

Ari-- 

Pre. 
Pre. 

voi 

boc: 

BOC 

BOr 

}; 

class Ma>: 

private 

BYT 

fu BYT 

mi: 

Si public : 



'■^ UIN 

S BOO 

Lk BOC 

L=. BCC^ 

H 

ciWs s Ex ' 

el 

r'l- privatf 

BYT 
BYT 
BY7 

ui: 
public ; 

Uli 

Ex: 

~E>; 
BOC 
B0( 
B0( 

UI: 

}; 

class Usf 
{ 

private 

BY^ 
BY'- 
UI: 
public 

uir 

Ma: 
Im] 
Imi 

SC: 

Ex' 



ationContext 



jtSyntax 

: r ans f er Synt ax> 



ItemType; 
Reservedl ; 
Reserved2 ; 
ReservedS ; 
Reserved4 ; 
Length; 



// 0x20 

// 0x00 

// 0x00 

// 0x00 

// 0x00 



PresentationContextID; 
AbsSyntax; 
TrnSyntax ; 



ationContext ( ) ; 

ationContext (AbstractSyntax &, Transfer Syntax &) 
itationContext ( ) ; 

SetAbstractSyntax (AbstractSyntax &) ; 

AddTransferSyntax(TransferSyntax &) ; 

Write {Buffer &) ; 

Read (Buffer &) ; 

ReadDynamic (Buffer &) ; 

Size ( ) ; 



iSubLength 



ItemType; // 0x51 
Reservedl; // 0x00 
Length; // 0x04 

MaximumLength ; 

MaximumSubLength { ) ; 
MaximumSubLength (UINT3 2 ) ; 
-MaximumSubLength ( ) ; 
Set(UINT32) ; 
Get ( ) ; 

Write (Buffer &) ; 
Read (Buffer &) ; 
ReadDynamic (Buff er &) ; 
Size {) ; 



^dNegotiation 



ItemType; // 0x56 
Reservedl; // 0x00 
RelationalDB; 
Length ; 

SOPuid; 

;dNegotiation( } ; 
ledNegotiation ( ) ; 

Write (Buffer &) ; 

Read (Buffer &) ; 

ReadDynamic (Buff er &) ; 

Size ( ) ; 



: ormation 



: rSubLength 
"-ntationClass 
-ntationVersion 
ToleSelect 
. ^dNegotiation 



ItemType; // 0x50 

Reservedl; 

Length; 

Userinf oBaggage ; 
MaxSubLength ; 
Impel ass; 
ImpVersion; 
SCPSCURole; 
ExtNegotiation ; 
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-u. 

vc 
UI; 

BO'" 
BOC 

BC; 
ui: 

}; 

class AA: 
{ 

private 

by; 
BY-: 
uii: 
UI?: 
ui:: 
public : 
BY-: 
BY': 
by; 

Api 
Ar: 
Usr 

public : 

AA: 

AAr 
vi: 
VO : 
VO ; 
VO:: 

Jj VO : 

.^1^ VO 

VO-; 

J J vc:: 
^ ,\ BO^ 
1 BO 

J^: UIl 

ftendif 



ormation { ) ; 
-f ormation{ ) ; 

SetMax{MaximumSubLength St); 

GetMax ( ) ; 

Write (Buffer &) ; 

Read (Buffer &) ; 

ReadDynamic (Buffer &) ; 

Size 0 ; 



ateRQ 



ItemType; // 0x01 

Reservedl ; 

Length; 

ProtocolVersion; // 0x01 
Reserved2 ; 

CalledApTitle[17] ; // 16 bytes transfered 
CallingApTitle[17] ; // 16 bytes transfered 
Reserved3 [3 2] ; 



-.tionContext AppContext ; 

^resentationContext> PresContexts ; 
: ormation User Info; 



. ateRQ ( ) ; 

.ateRQ (BYTE *, BYTE *); 
L -AAssociateRQ ( ) ; 

SetCalledApTi tie (BYTE *) ; 

SetCallingApTi tie (BYTE *) ; 

SetApplicationContext (ApplicationContext &) ; 
SetApplicationContext (UID &) ; 

AddPresentationContext (PresentationContext &) 

ClearPresentationContexts 0 ; 

SetUserInf ormation (Userlnf ormation &) ; 

Write (Buffer &) ; 

Read (Buffer &) ; 

ReadDynamic (Buff er &) ; 

Size ( ) ; 
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*********************************** 



* Copyri: 
* 

* This d:; 

* Davis I 

* with t: 

* deviat,; 

* fixes , 
* 

* Techni 
* 

********** 
template 
class Da 
{ 

public: 

DATATYI 
DataLir 



{G) 2000, Louisiana State University, School of Medicine 

I object library was developed based on University of California, 
:g DICOM Network Transport Libraries, in full compliance 
opyright note below. This version however contains conceptual 
. from the UCDMC library, as well as important bug and performance 
cannot be used/copied/distributed without our permission 

Contact: oleg@bit.csc.lsu.edu 

,^^*^***********************************************************/ 

:lass DATATYPE> 

Ilk 



Data; 

^:atatyPE> *prev, *next; 



DataLi: 



{ prev = NULL; next = NULL; }; 



}; 



template 
class Ar: 
{ 

private : 

unsign? 

unsign; 
Uj DataLi: 
n1 DataLi: 

DataLi: 

p"ublic: 
uint 



Lass DATATYPE> 



mt 
int 

^ATATYPE> 
■ATATYPE> 
;ATATYPE> 



aarType; 



Las t Ac c e s sNumbe r ; 
Array Size; 
*first; 
*last; 

*LastAccess; 



void 



void 



void 
void 
void 
bool 
BOOL 
BOOL 



inline 
inline 



^ noveAl 1 { ) 

if{ClearType == 1) { while (ArraySize) 
"lOveLast { ) 

if (ArraySize<l) return; 
RemoveAt (ArraySize- 1) ; 

;?tSize(int new„size) ; 

ap(UINT indexl, UINT index2) ; 

elude (Array<DATATYPE>& a); 

Empty () { return (ArraySize<=0) ; }; 
^ noveAt {unsigned int) ; 

ear Array ( ) 

first = last = LastAccess = NULL; 
LastAccessNumber = 0; 
ArraySize = 0; 
return ( TRUE ) ; 

■signed int 

-zSizeO { return ArraySize ; }; 
tUpperBound { ) 

if (ArraySize<=0) return -1; 

else return ArraySize-1; 



RemoveAt { 0 ) ; 



DATATY; 
DATATYI 
DATATY 
inline 



<d (DATATYPE &) ; 
; 

t: (unsigned int); 
^TATYPE & 

oerator [] (unsigned int 



Index) 



return (Get (Index) ) ; 
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virtua 



-Array ( ) 
RemoveAll ( ) ; 



void 



Brator 



(Array<DATATYPE> Scar ray) 



Remo veAl 1 ( ) ; 

first = array. first; last = array. last ; 
ArraySize = array .Arrays ize; Clear Type - 



FALSE ; 



// Con. 
Array 



Array 



Array 



,ctors 

ArraySize = 0; first = NULL; last = NULL; 
LastAccess = NULL; LastAccessNumber = 0; 
ClearType = 1; 

T CT) 

ArraySize = 0; first = NULL; last = NULL; 
LastAccess = NULL; LastAccessNximber = 0; 
ClearType = CT; 

\z^TYPE & d} 

ArraySize = 0; first = NULL; last = NULL; 
LastAccess = NULL; LastAccessNiimber = 0; 
ClearType = 1; 
Add(d) ; 



Iitltvate : 
z: void 

i|l void 
inline 



// end < 

^^:)k ******* 

* Elemen : 

ifede* ******* - 

Qnplate 
isStatype 

%| // rec( 
DataLi: 

O // cha: 
last = 
last->l. 

// set 
// end 
last->: 

// set 
i£(dl) 
else 
{ 

// 
II 

fi: 

} 



ve(DataLink<DATATYPE> *dmove, DataLink<DATATYPE> *dloc, 

bool insert_bef ore„dloc) ; 
ap(DataLink<DATATYPE> *dl, DataLink<DATATYPE> *d2); 
. - aLink<DATATYPE>* 
Da taL ink (unsigned int Index); 

■lass prototype 

**************************************************** 
\nipulation 

t **************************************** **********/ 

lass DATATYPE> 

Array<DATATYPE> :: Add (DATATYPE ScValue) 

current end- of -chain element 
ATATYPE> *dl = last; 

n new element at tail of chain 
^ DataLink<DATATYPE> ; 
. = Value; 

element's backward pointer to point to former 
':hain element 
^ = dl; 

T.er end-of -chain' s next pointer to point to new element 
->next = last; 

re was previously no "last" element so the one just 
ocated must be the first 
^ last; 



++Arra\ 
return 

} 

template 
DATATYPE 
{ 

// rec 
DataLi: 

// cha: 
last - 



ilue ) ; 

•lass DATATYPE> 

Array<DATATYPE> : : Add ( ) 

current end- of -chain element 
CaTATYPE> *dl = last; 

-CL new element at tail of chain 
: DataLink<DATATYPE> ; 
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} 



// set 
// end 
last->i 

// set 
if (dl) 
else 
{ 

II 
II 
fi: 

} 

++Arra; 
return 



template 
DATATYPE 
{ 

return 

} 



element's backward pointer to point to former 
::hain element 

= din- 
ner end-of-chain's next pointer to point to new element 
->next = last; 



re was previously no "last" element so the one just 
ocated must be the first 
^ last; 



it->Data) ; 

',ass DATATYPE> 
Array<DATATYPE> :: Get (unsigned int Index) 

-tDataLink (Index) ->Data ); // will throw exception on NULL link 



template 

DataLink<D; 

{ 

if ( Ir 

if ( L. 

Tl ini. 

if' 

} 

elr 



} 

el:. 

{ 



^ass DATATYPE > 

"PE> * Array<DATATYPE> :: GetDataLink (unsigned int Index) 

: >= ArraySize ) return NULL; 

■ccess ) // Sort of access cache 

^ (int) Las tAccessNumber- Index; 
-0) // same as before 

■,urn LastAccess; 

f(d == -1) // next after the most recently accessed 

jtAccess = LastAccess->next ; 
Las tAccessNumber; 
^:.urn LastAccess; 



.i(d == 1) 



// previous before the most recently accessed 



-tAccess = LastAccess->prev; 
Tj as tAccessNumber; 
:urn LastAccess; 



// loca 
O // dec: 
DataLii 
unsign^ 

if (Ind' 
{ 

// 
dl 

+-!-": 

wh :: 

} 

else 
{ 

// 
dl 
Inc 
wh: 

} 

Last Ac 
Last Ac 
return 

} 

template 
BOOL Ar; 
{ 

DataLi; 



requested element by following pointer chain 

'/hich is faster — scan from head or scan from tail 

ATATYPE> *dl; 

int rindex = Index; 

ArraySize / 2) 

lested element closer to head — scan forward 
' rst; 

--Index > 0) dl = dl->next; 



scan backwards 



nested element closer to tail 

as t ; 

- (ArraySize - Index) ; 
^-Index > 0) dl = dl->prev; 

= dl; 
. .'umber = rindex; 



ass DATATYPE> 

)ATATYPE> :: RemoveAt (unsigned int Index) 
\TATYPE> *dl = GetDataLink ( Index) ; 
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if { [dl 



-urn FALSE; 



// Rel 
if (dl- 

else 

if {dl-: 
else 

delete 
--Arra; 
LastAc : ■ 
Last Ac- 
re turn 

} 

* Incluc 

* Note: : 

******** * * 

template 
void An 
{ 

if (!C1 
if (a. A:: 

if (Arrr: 
{ 

la:: 
la.- 

} 

else 

Q i 

.1^ fi: 

If > 

y ii Arrays ; 

J% LastAcc 
LastAc 

'"^•a a.Clsa: 

i,fli a.Clea: 

yft|t|it ****** ^ ■ 

*^ ii 

* ' Move c 

nrJ^ic ******* 

tye|nplate 

WXd Ar: 



if ( !dn- 

// Do V 
if (ins- 
{ 

if 

} 

else 
{ 

if 

} 

// Rem 
if {dmov 
else 

if (dmov 
else 

// Ins^ 
if ( ins . 
{ 

dnv. 
dn 
if 
el; 
dl^ 

} 

else 
{ 



hain around element to be deleted 
j] dl->prev->next - dl->next; 
first = dl->next; 

:) dl->next->prev = dl->prev; 
last = dl->prev; 



= NULL; 
\' umber = 0; 

'^X^E ); 

-Tir ********************************** ***************** 

elements from Array "a" into this array. 
/ "a" becomes empty after inclusion ! 

r ***************************************************/ 
^ass DATATYPE> 

^ATATYPE> :: Include (Array< DATATYPE >& a) 

/pe I I la.ClearType) return; // Cannot include linked arrays 
'3i2e<=0} return; // Nothing to include 

-e>0) 



:ext=a. first ; 
a . last; 



a. f irst->prev = last; 



^ a. first; last = a. last; 

a. Arrays ize; 
= NULL; 

>]umber = 0 ; 
- = 0; 

^y(); 

^it*************************************************** 

^nked element before or after the other 

^ A^************************************************** / 

.ass DATATYPE> 

}ATATYPE> :: Move (DataLink<DATATYPE> *dmove, 
-aLink<DATATYPE> *dloc, bool insert_bef ore_dloc) 



Idloc 



dmove==dloc) return; 



-jed to move anything at all? 
,-^ef ore_dloc) 

^e->next==dloc) return; // already there 
insert after dloc 
'/e->prev==dloc) return; // already there 



.move from its present location 
.rev) dmove->prev->next = dmove->next; 
first = dmove->next; 

-ext) dmove->next->prev = dmove->prev; 
last = dmove->prev; 

inove into its new location 
ef ore_dloc ) 

prev = dloc->prev; 
next - dloc ; 

->prev) dloc->prev->next = dmove; 
first = dmove; 

-rev = dmove; 

Tiove after dloc 
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d:T: 

i 1 
el : 
dl 

} 

LastAc 
Las t Ac 

} 

^ ******** -A 
* 

* Swappi-: 
* 

********* ^- 

template 
void Ar 



next = dloc->next; 
prev = dloc; 

->next) dloc->next->prev = dmove; 

last = dmove; 
lext = dmove; 

uiTiber = 0; 
- NULL; 

**************************************************** 

elements 

***************************************************/ 

ass DATATYPE> 

)ATATYPE> :: Swap (Da taL in k< DATATYPE > *dl, 
DataLink<DATATYPE> *d2) 



if { !dl 
DataLi: 
if (dt) 
{ 

ii" 
{ 



} 

else 
{ 



dt 
if- 
{ 



d2 I I dl = -d2) return; 
^TATYPE> *dt = dl->next; 



d2) // neighbors 

d2->next) Move(dl, d2->next, true); 

e if(dl->prev) Move(d2, dl->prev, false); 
e // array contains only dl and d2 

f irst=d2 ; last=dl ; 

d2->next = dl; d2->prev = NULL; 

dl->prev ^ d2; dl->next = NULL; 

// not neighbors 

(dl,d2, true) ; Move (d2 , dt, true) ; 



->next; if(!dt) return; // impossible 

11) / / neighbors 

dl->next) Move(d2, dl->next, true) ; 

e if{d2->prev) Move(dl, d2->prev, false); 
.e // array contains only dl and d2 

f irst=dl; last=:d2; 

dl->next = d2; dl->prev = NULL; 

d2->prev dl; d2->next = NULL; 



} 

el. 
{ 

} 



// not neighbors 
- {d2.dl, true) ; Move {dl , dt, true) ; 



} 



LastAc 
LastAc: 



iiuber = 0 ; 

- NULL; 



template 
void Ar; 
{ 

Swap {G- 

} 



--1SS DATATYPE> 

^\TATYPE> :: Swap (UINT indexl, UINT index2) 
aLink { indexl ) , GetDataLink ( index2 ) ) ; 



/ 



******** ^ 



*************************************************** 



* Settir: 
* 

********** ' 

template 
void Ar: 
{ 

if (nev; 
if (nev;.. 
int n; 
int d ■ 
if (d>0 



-1 certain size 

A************************************************** / 

ass DATATYPE> 

.ATATYPE> :: SetSize(int new^size) 

^0) return; 

==0) { RemoveAllO; return; }; 

"-lySize - new_size; 
'\eraove last elements 
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{ 

fc , n<d; n++) RemoveLast ( ) ; 

re: 

} 

if (d<0: Add new default elements 
{ 

fc: , n<-d; n++) Add{); 

} 

return, irraySize == new_size 
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// basicty^ 
II 

III H I i 1 1 1 

#if ! define 
#define _E' 

# include 
# include <■ 

// 2 -Dime n; 
class Poin 
{ 

public: 

double 

Point 2: 
Point 2,: 
Point2r 

bool 
{ 

re ■ 

} 

}; 

// CallBac/ 
class Ca.; 
{ 

private : 
void* 
int 

E^^lic: 

static 
static 
static 
~2 static 
ylJ static 
^ static 
^i': static 
?y static 



f"'' bool 

St ^ 

re- 
el int 
{ 

if 
( 



} 

el:. 

}; 

// con: 
CallBac 
Call Bar 

{ 

}; 

CallBa' ■ 
{ 

m_;- 

}; 

}; 

// UID 
class Uir 



: interface for the basic DICOM type classes. 

1 1 1 n 1 1 ! 11 f 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 f f n 1 1 1 u u 1 1 1 f 1 1 n I n 1 1 1 n II 

AS I CTYPES_H_INCLUDED_ ) 
YPES_H_INCLUDED_ 

hpp" 

li> 

'1 point 



{ x=0.0; y=0.0; } 
.tale a, double b) { x=a; y=b; } 
nt2DS: p) { x=p,x; y=p.y; } 

izePoint2D(FILE* fp, bool is_loading) 

( : :SerializeDouble(fp,x,is_loading) && 
: rSerializeDouble (fp,y, is_loading) ) ; 



ect 

'kObject 



J Cr Argument; 

-_ptrFunction) (void* arg, UINT paraml=0, UINT param2=0) ; 



BYTE in_CBConnectingToAE ; 

BYTE m_CBConnectionFailed; 

BYTE m_CBSendingRequest ; 

BYTE m_CBGettingResponse; 

BYTE m_CBResponseReceived; 

BYTE iri„CBCancelSent; 

BYTE m_CBIsCancelled; 

BYTE m_CBDQRTaskSchedule; 



• CallBack(int (*func) (void* a, UINT paraml=0. UINT param2=0) , 
void* arg=NULL) 

notion = func; 
J amen t = arg; 
(m_ptrFunction != NULL) ; 

okeCallBack(UINT paraml=0, UINT parani2=0) 

Function) 



return m_^trFunction(m_ptrArgument, paraml, parain2); 
ch ( - . - ) { return 0 ; } 

turn 0; 
,tors 

ectO { m_ptrArgument=KULL; iii_ptrFunction-NULL; }; 
ect(int (*func) (void* a, UINT paraml=0, UINT param2=0) , 
void* arg=NULL) 

3ack ( func , arg) ; 

ect (CallBackObject& cbo) 

gument = cbo .m_pt r Argument ; 
.nction = cbo .m_ptrFunction; 
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{ 

private : 
BYTE 
UINT 

public : 
void 
void 
{ 



if {!: 
2erc' 
strc 
Lena 



}; 

void 
void 
void 
{ 



Leng 
whil 



}; 

BOOL 
{ 



if (! 



retu 



}; 

BOOL 
BOOL 
{ 

Byte 
SetL 
retu 

}; 

BYTE 
UINT 

UIDO 

UID(BYTE 

UID(char 



i:65] ; 
xjzh; 

arUIDO { ZeroMem(uid, 64); Length = 0; }; 

^ (3YTE *s) 

return; 
-(uid, 64); 
(char *) uid, (char *) s) ; 
^ strlen ( (char*) uid) ; 

(UID Scu) { {*this) = u; }; 
:(char *s) { this ->Set ( {BYTE *) s) ; }; 
.-.Length (UINT L) 



= L; 

L < 65) uid[L++] 



-rator 



'\0'; 
(UID Scud) 



-cnip( (char*) GetBufferO, (char*) ud.GetBuf f er ( ) ) ) 

urn (TRUE) ; 
FALSE) ; 

rator != (UID &ud) { return ( ! ( ( *this) ==ud) ) ; }; 
rator = (UID &ud) 

.>/(uid, ud.GetBuf fer{) , 64); 
rrth{ud.GetSize() ) ; 
(TRUE) ; 

etBufferO { return (&uid [0] ) ; }; 
tSizeO { return ( Length ); }; 



{ ClearUIDO; } 
c) { Set(s); } 
s) { Set ( (BYTE*) s) ; } 



Ms DateTime 
class DateTi 

pTiblic: 

void Setr 

double G. 
= void Set. 

int GetN:. 
p?; Static cc 
r;!^ static cc 
L3 static c: 

static c 



^^ericTime (double t) ; 

j.mericTime ( ) ; 
lericDate ( int dt) ; 
-ricDate ( ) ; 

BYTE DateFormat; 

BYTE TimeFormat; 
^it BYTE DateTimeFormat; 

BYTE UnknownFormat ; 



void SetCurrentDateTime () ; 

void SetCurrentTime ( ) ; 

void SetCurrentDate ( ) ; 

inline ^ id ClearDate{) { m_Year=-l; m_Month=0; m__Day=0; } 

inline ' id ClearTime() { in_Hour=-l; m_Minute=0; m_Second=0 . 0 ; } 

inline ^ id ClearDateTiine ( ) { ClearDateO; ClearTime ( ) ; }; 

inline . U EmptyDate ( ) { return (m_Year<0 ) ; }; 

inline . ;1 EmptyTimeO { return (m_Hour<0) ; }; 

inline > ^1 EmptyDateTime ( ) { return EmptyDate () | | EmptyTime () ; } 

bool SerializeDateTime (FILE* fp, bool is_loading) ; 

bool SetTime (char* str) ; 

bool SetDate(char *str) ; 

bool SetDateTime (int y, int mo=0, int d=0, int h=0, 

int mi=0, double s=0) ; 

bool SetTime(int h, int m=0, double s=0); 

bool SetDate(int y, int m=0, int d=0) ; 

bool SetSecond (double s) ; 

bool SetMinute (int m) ; 

bool SetHour(int h) ; 

bool SetDay(int d) ; 

bool SetMonth(int m) ; 

bool SetYear(int y) ; 

bool FormatDateTime{char *str, int rnax_len, bool dicom_f ormat) ; 

bool FormatDate (char *str, int max_len, bool dicom„format) ; 

bool Format Time (char* str, int max_ien, bool dicom_forniat) ; 
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mt 
int 
int 
int 
int 
int 

double 
struct ti 
DateTime 
DateTime 

bool 
bool 
bool 
bool 
bool 
bool 

DateTime ' 
DateTime ' 
virtual - 
private: 
int 

double 



SetDateTime {char* str, BYTE format=UnknownFormat) . 



GetYear { ) 
GetMonth { ) 
GetDay ( ) 
GetHour ( ) 
GetMinute { ) 
GetSecond( ) 
GetTM( ) ; 
GetLower { ) ; 
GetUpper ( ) ; 

operator == 
operator != 
operator > 
operator >= 
operator < 
operator <= 



return m_Year; } 
return m„Month; } 
return m_Day; } 
return m_Hour; } 
return m_Minute; 
return m_Second; 



(DateTimeSc d) 
(DateTimeSc d) 
(DateTime& d) 
(DateTimeSc d) 
(DateTimeSc d) 
(DateTimeSc d) 



}; 
}; 



bool 



.teTimeSc d) ; 
iteTime ( ) ; 

:Ti_Year, rn_Month, m„Day, m__Hour, m_Minute; 

"n_Second; 

Format (char *dest, int max_len, const char *format) , 



}; 



// DateTimeSe 
ci^ss DateTir 

E>aiic: 

^ void r; 

void i 
^11 void 
%j inline 

inline 
y^l inline 

inline 



bool 
bool 
bool 
bool 
bool 
bool 
bool 
bool 



.lent 
Segment 



r; "MamericTime (double t) ; 
i ::NumericDate (int d) ; 
I"" malize { ) ; 

A id SetStart (DateTime& d) 
Set End (DateTimeSc d) 



static cl- 

p 
I 

DateTime 
DateTime 
DateTimer 

DateTime& 
DateTime& 
virtual - 



m„Start=d; 
m_End=:d; 



}; 
}; 



ici SetDateTimeSegment (DateTimeSc start, DateTimeSc end) 

{ m_Start=start; m_End=end; }; 
; cl Cl earDateTimeSegment ( } 

{ m_Start .ClearDateTirae ( ) ; m_End.ClearDateTime ( ) ; } ; 
U a teTime Segment (char* str, BYTE forma t=DateTime :: UnknownFormat) 
^ersects {DateTimeSegment& d) ; 
: tains Date Time (DateTimeSc dt) ; 

_-ializeDateTimeSegment (FILE *fp, bool is_loading) ; 
'MtDateTime (char *str, int max_len, bool dicom_format) ; 
rmatTime (char *str, int max_len, bool dicom_format) ; 
■'i^atDate {char *str, int max_len, bool dicom_f ormat) ; 

'.^tyDateTimeSegment ( ) 

re-urn (m_„Start . EmptyDateTime ( ) ScSc m_End. Empty DateTime (}) ; }; 

TatStaticDateTimeString (char* strdest, int max_dest_len, 
dest_f ormat, char* strsource, BYTE source_f ormat ) ; 
GetStartO { return m_Start; } 

GetEndO { return m_End; } 

.nrant Expand ( ) ; 

-rrent ( ) ; 

'.rent { DateTime Segment Sc dts) ; 
ceTime Segment ( ) ; 



private : 

DateTime 

}; 



iT\„S t ar t , m_End ; 



// Applicatic /city 
class Applies .onEntity 
{ 

publ i c : 



bool 




erved; 


bool 




J ) 3 eMo ve As Ge t ; 


char 


c 


Title [20] , ae_partnerTitle[20] ; 


char 


c. 


Location [32] ; 


char 


c 


.Comments [64] ; 


int 


c 


__:^ort, ae_PortServer; 


int 


a 


Timeout ; 


BYTE 


3 


_ lPI, ae_IP2, ae_IP3, ae_IP4; 
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bool 
bool 
bool 
bool 
bool 



bool 
bool 



Applicati 
Applicati 
Applicati 



virtual - 

char* C 
char* & 
char* C 



Jomments (char* s) ; 
^ocation (char* s) ; 
~artnerTitle (char* s) ; 
Title (char* s) ; 

ADplicationEntity (char* title, 

BYTE ipl=127, BYTE ip2=0, BYTE ip3=0, BYTE ip4=l, 
int port=104, int port_ser=:104, int timeout=300, 
char* location="Unspecif ied location", 
char* comments="No comments", 
bool useMoveAsGet=f alse) ; 

lalizeAE (FILE* fp, bool is_loading) ; 

rator == (ApplicationEntity& a) 
return ( strcmp {ae_Title, a . ae_Title) ==0 ) ; }; 

.rntity { ) ; 

^Kntity (ApplicationEntitySc a) ; 

.E:itity{ char* title, 

BYTE ipl=127, BYTE ip2=0, BYTE ip3=0, BYTE ip4=l, 
int port=104, int port_ser=104 , int timeout=300, 
char* location= "Unspecified location", 
char* coimnents="No comments", 
bool us eMoveAsGet= false) ; 

^1 --licationEntity 0 ; 

?ort String ( ) ; 
' PortServerString ( ) ; 
7PString ( ) ; 



private : 

char o 

}; 

Mj Applicatic 
qjf.ss Applicc 

EMi>lic: 
d% void 
j'^:! bool 
'H bool 

bool 

bool 
fit bool 
' "■ int 
" UINT 

UINT 
fl; Applicati 

HI Applicati 



:?_str[20] , ae_Port_str [8] , ae„PortServer_str [8] ; 



ityLis t 
:-^nEntityList 



public Array <ApplicationEntity> 



SetServedStatus (int port, bool status); 
GetAELocation (UINT aeindex, char* loc) ; 
3etLocalAE(BYTE ipl, BYTE ip2 , BYTE ip3 , BYTE ip4, 

char* title=NULL) ; 
identifyAE {char* title, ApplicationEntity& aeFound) ; 
SerializeAEList (bool is_loading, char* f ilename=NULL) ; 
oetCurrentlndex (int n) ; 
:dentifyAEIndex(char* title); 

GetCurrentIndex( ) { return m_Current Index; }; 

return m_Local Index; } ; 



GetLocal Index ( ) 
/ititySc 
GetLocalAE ( ) 
::ititySc 

GetCurrentAE ( ) 



{ 



{ return Get (in_Local Index) 



}; 



Get (m_Cur rent Index) . SetPartnerTitle (GetLocalAE ( ) . ae_Title) ; 
return Get (m„Cur rent Index ) ; 



Applicati iitityLxst () ; 

virtual - ^ nlicationEntityList ( ) ; 



private : 
char 
UINT 

const UIN 

void 
bool 
bool 

}; 



u_SerFile [MAX_.PATH] ; 

^n_Cur rent Index , • 

/i_Local Index; // always 0 

TjoadDef aults ( ) ; 
GetLocalAE (UINT n) ; 

GreateLocalAE(BYTE ipl, BYTE ip2 , BYTE ip3 , BYTE ip4 , 
char* title=NULL) ; 



#endif // Ide 



-d {„BASICTYPES_H_INCLUDED_) 
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* 
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* with the ^ 
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class Buffe: 

{ 

public : 
BOOL 
BYTE 
INT 
UINT 

Buffer 
Buffe^ 
-Buff^ 



}; 



Buffe^ 



class 

{ 

protectee 
UINT 
UINT 
O UINT 
INT 

Jf INT 
y ^- Array 
.|] Array 

^4 BOOL 



public : 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
inlin^ 
inlin^ 
inline 



isTemp; 

*Data; 

Buf f erSize; 

Index; 



-.ce{UINT) 
5ace ( ) ; 
?pace() ; 



'i "if erSpace*> 
f erSpace*> 



Breaks ize ; 

InEndian; 

OutEndian; 

InSize; 

Outsize; 

Incoming; 

Outgoing; 

ReadBlock{ ) ; 



UINT 
^JINT 



SetBreakSize(UINT) ; 
SetlncomingEndian (UINT) ; 
SetOutgoingEndian{UINT) ; 
Flush ( ) ; 

Flush {UINT Bytes) ; 
Kill (UINT) ; 
Read (BYTE *, UINT) ; 
Write (BYTE *, UINT); 
Fill (UINT) ; 
GetlncomingEndian ( ) 
GetOutgoingEndian ( ) 
GetSizeO { return 



Buffe- 


operator 


>> 




BYTE 


&); 


Buffer 


V. operator 


» 




UINT16 


&) ; 


Buffer 


f_ operator 


» 




UINT32 


Sc); 


inlin 


buffer 


& operator 


» 




char 


&x) 


{ 


iturn ( 


(*this)»(BYTE &) 


X) 


r 


}; 




inlin. 


Buffer 


& operator 


» 




[INT16 


&x) 


{ 


^ :urn ( 


(*this)»(UINT16 


&) 


x! 


; }; 




inlin 


buffer 


Sc operator 


» 




[INT32 


&x) 


{ 


-; :urn { 


(*this)»(UINT32 




x) 


; }; 




Buffe- 


operator 


« 




(BYTE 


&); 


Buffe- 


operator 


« 




(UINT16 


&) ; 


Buffe: 


operator 


« 




:UINT32 


&) ; 


inlin 


Buffer 


& operator 


« 




[char 


&x) 


( 


r urn ( 


(*this)«(BYTE &) 


X) 




}; 




inline. 


3uf f er 


& operator 


« 




(INT16 


&x) 


{ 


~ " urn { 


(*this)«(UINT16 




X 


»; }? 




inlin 


'suffer 


Sc operator 


« 




(INT32 


&x) 


{ 


: :urn ( 


(*this)«{UINT32 




X 


1? }; 





return ( InEndian ); }; 
return ( OutEndian ) ; } , 
InSize ) ; } ; 



virtu, 
virtu - 

Buffe: 
virtu 



:nt ReadBinary(BYTE *, UINT) 

^,00L SendBinary(BYTE *, UINT) 



~Buf f er ( ) ; 



0; 
0; 
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DICOM Network Transport Libraries, in full compliance 
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#if ! defined 
idefine _CCTy: 

/* CC Types */ 

#ifdef solar: 
# define S^- 
#endif 



#ifndef 

typedef 

#endif 

typedef 

typedef 

#ifndef 

typedef 

#endif 

typedef 

4f|i]fndef 

typedef 

#l|idif 

typedef 

t^edef 

#lfndef 

tyfiedef 

#J|idi f 

#lfndef 

t^edaf 

iihdif 



WIN32 
unsig: 

unsig: 
unsig: 
„base: 
unsigr 

unsigr 
WIN3 2 
unsig: 

signer, 
signec 
_BASE 
signec 

WIN3 2 

signev' 



C ■ TYPE S_H_INCLUDED„ ) 
:S H INCLUDED. 



int BOOL; 

int UINT; 
short UINT16; 
_H_ // MSVC 6.0 define: typedef unsigned int UINT32 [gz] 
long UINT32; 



char 
char 



UINT8 ; 
BYTE; 



char INT8; 

short INT16; 

:;_H_ // MSVC 6.0 define: typedef int INT32 [gz] 

long INT32; 



mt 



INT; 



ftfndef TRUE 
i^fine TRUE 
iendif 

txfndef FALSE 
#^fine FALSE 

#endif 



(UINT) 1) 



(UINT) 0) 



ilfdef LITTL* _,i;ndian 

#undef LITTL -.MDIAN 
#endif 

#ifdef big_e: :aN 

#undef BIG__EI : '\n 
#endif 



# define L: 

# define 
#ifndef NATIV: 

# define N 
#endif 



.E„ENDIAN 

_^-^;ndian 
;:mdian 

^VE ENDIAN 



1 

2 

LITTLE ENDIAN 



#endif 
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I n f 1 1 i n m I 

II database -h 
II 

1 1 1 1 1 1 1 1 1 1 1 1 1 

#if ! defined ( 
#define „DICO: 

#include "die; 
#include "cct; 

class DICOMRe 
{ 

public: 

const sta' 
const sta, 
const sta 
const sta^ 
const sta 

void S 
void S 



void S 



2: void S 

yl void C 

^ void C 

void P 

"■'I void L. 

ifli void W: 

Jjj bool K 

bool 

nj bool W 

bool C 

f bool A 

H= bool R 
fi^ bool 

bool Fc 

bool F^ 

bool F^ 

bool S 

^=^^ bool S 

p bool S 

bool S 

bool S 

bool K 



bool 

BYTE F 

BYTE G 

char* C 

char* C 

char* C 

char* C 

char* C 

char* C 

char* G 

char* C 

char* G 

char* G 

char* G 

char* G 

char* G 

char* G- 

int C 
UINT 

C'ateTimeS 



1 1 1 1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

iter face for the DICOMRecord class. 

f 1 1 1 1 II H 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 H 1 1 1 1 1 1 1 1 1 1 1 1 

■ VOM_DATABASE_H_INCLUDED_) 
\TABASE_H_INCLUDED_ 

' ipp " 

--3.h" // Added by ClassView 



- BYTE Levellnvalid; 
BYTE LevelPatient ; 
BYTE L eve 1 Study ; 

- BYTE LevelSeries; 
' BYTE L eve 1 Image ; 



.-Root (BYTE root, DICOMRecord* pDR=NULL) ; 

^-jcordlchar *pID, char *pName, int pBDate, 

double pBTime, char* stIUnstID, 

char* stID, char* aNum, char* stImNum, 

int stDate, double stTime, 

char* serlnstUID, char* mod, char* serNum, 
char* SOPUID, char* imNum, char* fName) ; 
,e cord (char *pID, char *pName, DateTimeSegment* pBDate, 
DateTimeSegment* pBTime, char* stIUnstID, 
char* stID, char* aNiom, char* stImNum, 
DateTimeSegment* stDate, DateTimeSegment* stTime, 
char* serlnstUID, char* mod, char* serNum, 
char* SOPUID, char* imNum, char* fName) ; 

" -trieveAEs (char* aelist) ; 
.rAtCurrentLevel ( ) ; 

^_^DICOMRecord (bool remove_f ile=f alse) ; 

: -eOTModality { ) ; 
\ idDateTime ( ) ; 

^ -IntoDICOMObject (DICOMObjectS: dob, DICOMObject* dob„mask=NULL) 

; iquePrimaryKeys ( ) ; 

r-IntoDIC0MQR{DICOM0bject& dob, bool cf ind) ; 
--^IntoTextFile (char* filename); 

jeLevel (bool step_down, BYTE qr_root} ; 
" 5trieveAE ( char* aetitle) ; 
':veRetrieveAE (char* aetitle); 

^atStudyTime (char *str, int max_len, bool dicom_f ormat) ; 
-vitStudyDate (char *str, int max_len, bool dicom_f ormat) ; 
r itPatientBirthTime (char *str, int max_len, bool dicom_f ormat) ; 
vitPatientBirthDate (char* str, int max_len, bool dicom_f ormat) ; 

alizeDlCOMRecord(FILE* fp, bool is_loading) ; 
'^^cordOnLevel (DICOMObjectfic dob) ; 

-cord(DICOMObject& DOB, char* filename); 

^'Cord(DICOMRecord& d) ; 

^cord(char* filename) ; 

tlDI C QMS t ring (char* exact, char* mask, 
bool case_sensitive, 
bool f irst„level=f alse) ; 



^'itor== (DICOMRecordSc dr) ; 



M,2Level ( ) ; 
' ' jGvel ( ) 
' ^ ^ 1 eName ( ) 

trieveAEs ( ) 
'--itientlDO 

It lent Name ( ) 
. -udylnstUIDO 
- .jdyID( } 

- •';cessionNumber ( ) 
:udyImagesNum{ ) 
:riesInstUID() 

^.dality 0 

^^riesNum ( ) 
'OPInstUIDO 
r-nageNura 



return m_QLevel; 
re turn m_Fi 1 ename ; 

m_Re tr i eveAEs ; 
m_PatientID; 
m_PatientName ; 
ra_StudyInstUID; 
m_StudyID; 
m__Acces s i onNiamber 
return m_S tudy Image sNum; 
return m_SeriesInstUID; 
mJModality; 
m_SeriesNum; 
m^SOPInstUID; 
m_ImageNum; 



return 
return 
return 
return 
return 
return 



return 
return 
return 
return 



}; 



-trieveAE (char* aetitle, UINT aetitle_len, UINT n=l) ; 
areAtLevel {DICOMRecord& dr, BYTE lev=LevelImage) ; 

etrieveAEsCount ( ) ; 

^nt GetPBirthTime ( ) { return m_PBirthTime; }; 



1 



DateTimeS 
DateTimeS 
DateTimeS 



DICOMRecc 


DICOMRecc 


virtual - 


/ate : 




const 


Stc 


const 


St? 


const 


ste: 


BYTE 


r 


char 




char 




char 


IT 


char 


rr 


char 


r 


char 


rr 


char 


r 


char 


r 


char 




char 


r 


char 


r: 


char 


r 


char 




DateTime?- 

n 


void 




bool 





mi I II 1 1 1 1 1 ' 

/.i^ DICOMData: 

mi 1 1 1 II iih 

cFass DICOMDc 

p^lic : 

flj const sta 

const str' 

" const stc. 

const str 

p^: const str 

5;'!! const st^, 

f'y; const stc"; 
\l Applicat: 



void 
void 
void* 

void* 
virtual 
virtual ^ 

bool 
bool 

bool 

bool 

bool 

virtual 1 
virtual 
virtual . 
virtual 
virtual : 

virtual h 
virtual \ 

cnar* 

int 



^ ^nt GetPBirthDate ( ) { return m__PBirthDate; }; 
jnt GetStudyTime ( ) { return in_StudyTime; }; 
ant Ge t Study Date { ) { return in_StudyDate ; }; 

; ) ; 

DICOMRecordSc d) ; 
' OMRecord { ) ; 

. BYTE InsertUnique; 

BYTE InsertNonEmpty; 
^ BYTE I ns art Any; 

,vel ; 

,ename [I4AX_PATH-t-l] ; 

-rieveAEs [65] ; 

:ientID[65] ; 
. :ientName [65] ; 
' idyInstUID[65] ; 

idyID[17] ; 

.^essionNumber [17 ] ; 
' idyImagesNum[13 ] ; 
^riesInstUID[65] ; 

dality[3] ; 
^ 'iesNum[13] ; 

^InstUID [65] ; 

■igeNum [ 13 ] ; 
• :nt 

-LrthTime, m_PBirtliDate, m_StudyTime, m_StudyDate; 
otStringForQLevel (DICOMObjectSt dob) ; 

:tString{DICOMObject& dob, UINT16 group, UINT16 element, 
char *str, BOOL alloc, BYTE how=InsertAny) ; 



' 1 1 1 1 1 1 1 1 1 1 II I II 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 H 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

\ class. 

' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

-Lse 



- BYTE RetrieveRelational; 

BYTE RetrieveHierarchical; 

BYTE MatchRelational; 

BYTE MatchHierarchical? 

BYTE RecordFound; 

BYTE FindMore; 

BYTE RecordsEnd; 
vitityList db_AElist; 



EnableDisplayNew(bool b) { db_DisplayRecordsFlag=b; }; 

DisplayRecords (bool froin_local) ; 

StartSearch (DICOMObjectSc dob, const BYTE how, 

char* f ilename=NULL) ; 
StartSearch (char* filename, const BYTE how) ; 
StopSearch(void* pDR) ; 

DisplayRecords (Array<DICOMRecord> &a, bool froin_local) ; 
DBAdd(char* filename, bool copy_into_db__directory=false) ; 
AttachDirectory (char *directory, 

bool include_subdirectories=true) ; 
importDirectory (char* directory, 

bool include_subdirec tori es= true) ; 
UnlrrportDirectory ( char *directory , 

bool include_subdirectories=true) ; 
UnAttachDirectory (char *directory, 

bool include_subdirec tori es= true) ; 
GetFromLocal (DICOMDataObject& ddo_.mas]c) ; 
SetRecordCount (int c) ; 
DBAdd(DICOMRecord& dr) ; 

DBAdd(DICOMObject* dob, PDU„Service* pdu) ; 
InitializeDataBase ( char* directory, 

void (*disp) {Array<DICOMRecord>&, bool)) 
RetrieveNext (void* pDR, DICOMObjectSc dob_f ound) ; 
MatchNext (void* pDR, DICOMObject &dob_found, 

DICOMObject* dob_inas3c=NULL) ; 
GetMostRecentFile ( ) 

{ return db_MostRecentRecord.GetFileNaine 0 ; }; 
DBRernove (char* filename, bool use_f ilename=false} ; 



2 



virtual 
virtual 



DBRemove {DICOMRecordic dr_inask) ; 

GetRecordCount ( ) ; 



DICOMDat', 
virtual - 

protected: 

char 

DICOMRecc 

virtual ' 
virtual ] 

virtual : 



")MDat abase ( ) ; 



db_Directory[MAX_PATH+l] ; 
db_Mos tRecentRecord ; 

StartSearch (DICOMRecordS: dr_mask, const BYTE how) ; 
DBAddDirectoryContents (char* directory, bool copy_files, 

bool include_subdirectories=true) ; 
DBReiTioveDirectoryContents (char* directory, 

bool use„f ilenames, bool include_subdirectories=true) ; 



private : 

void 

bool c 

char ( 

char t 

int t 

FILE* c 

bool f 

}; 

iendif // !d^ 



_DisplayRecords) {Array<DICOMRecord> &a, bool froin_local) , 

^ splayRecordsFlag; 
- cF i 1 e [ R2\X_PATH+ 1 3 ; 
-if File [MAX_PATH+1] ; 

Records ; 
~ RecFile ; 

ilizeDBHeader (bool is_loading) ; 



-d {_DICOM_DATABASE_H_INCLUDED_) 



3 



# include "di hpp" 
#include "dcr 



Q 

01 

H 

m 
m 
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H 
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//////////// 

// DICOMViev 
// 

//////////// 

#if 1 def ineo ■ 
#define _DIC'' 



1 1 1 1 1 If 1 1 1 n 1 1 1 n 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 { I n I u 1 1 1 1 n II n I 

interface for the DICOMView class, 
UIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIHIIIIIIIIIIIIIIIIII 

I C OMV I E W_H__I NCLUDED„ ) 
'lEW H INCLUDED^ 



#include "di ' 

//#if _MSC_V' 
//tpragma or 
//#endif // 

class DICOI-T^. ^ 
{ 

publ i c : 

v^irtual 
void 

virtual ' 

void 

void 

virtual . 
virtual . 
DICOMVie 
virtual 



1 hpp" 
> 1000 
-,Z VER > 1000 



Load (const char* pText)=0; 
Load(VR *vr) ; 
Load(DICOMObject& DO} ; 
ReportTime ( ) ; 
AttachRTC(RTC* rtc) ; 
LoadFile (char* filename); 
IgnoreVR(VR* vr) { return false; } 



:OMView( ) , 



protected : 

char 
int 
int 
O RTC* 



void 



m„SequenceMark; 
m_SequenceLevel ; 
m_.numE 1 emen t s ; 
m_AttachedRTC; 

MarkSequence (bool start); 



IMI ! 
/I! In 

m 

ql^as s 
gjrjbli 

= V 
"^l b 

f% ^ 

Elrite 

c 
F 



//III// 
terf ace 

///III/. 

c : 

old 
old 
ool 

rCOWie; 
irtual 
cted: 
har"^ 
ILE* 



1 1 //// 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 f 1 1 1 f 1 1 1 1 1 1 n n 1 1 1 1 1 

r the DICOMViewLog class. 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n I 

-hog : public DICOMView 



.d(const char* pText }; 

d (DICOMObjectSc DO) { DICOMView; : Load (DO) ; }; 
ateDVL(char* filename, RTC* rtc=NULL) ; 

g() ; 

.COMV'iewLog ( ) ; 

ilename ; 
-^File; 



bool 
bool 

}; 

#endif // 



ioreVR(VR* vr) ; 

reshText (char* tbuffer, long inax_length) ; 



. ned („DICOMVIEW_H_.INCLUDED_) 
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// dmodules. 
II 

1 1 1 1 i ! ! 1 1 1 1 i 

#if Idefinec" 
#define AFX^' 

#if _MSC_VEh 
#pragma onc« 
#endi= // _F. 

tincliide "d^ 

class DModu.i 
{ 

protected : 

virtual 
virtual 
virtual 
virtual . 



interface for the DModule class. 

! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

'^X„DMODULES_H_3F70C2E3„CF5D_11D3_9760_00105A21774F INCLUDED_) 

i DULES_H 3F70C2E3_CF5D_11D3„9760_00105A21774F INCLUDED. 

1000 

7SR > 1000 
"1 . hpp " 



, d ClearAllParameters {) =0; 

d HasData{)=0; 

d ReadDO(DICOMObject &dob, char* fname=NULL) =0; 

a WriteDO (DICOMObject &dob)=0; 



DModule ; 
virtual 
public : 

^^irtual 
virtual 

}; 



{} ; 
'odule ( J 



{}; 



1 WriteFile (char* filename, PDU_Service* pPDU=NULL) ; 
1 ReadFile (char* filename, bool preview=f alse, 
PDU_Service* pPDU=NULL) ; 



class DModu. 

jfiblic : 

Jr\ void 

bool 
ill bool 

""f bool 
pj&tected : 
char 
UINT16 
HJ U1MT16 

r Point2D 
DiCOMOb^ 
f% PDU_Ser\ 



mageSeries : DModule 



GetPixelSpacing (doubled dx, doubleS: dy) ; 
Re adDO (DICOMObject Scdob, char* fname=NULL) ; 
WriceDO (DICOMObject &dob) ; 

ReadFile (char* filename, bool preview=f alse , 

PDU_Service* pPDU=NULL) ; 
WriteFile (char* filename); 

m_Filename[MAX„PATH+l] ; 
m„SamplesPerPixel , m_Width; m_Height; 
m_Bits Allocated, m_BitsStored, m__HighBit; 

m_NuniberOf Frames ; 
m_„P ixel Spacing ; 
m_DOB; 
m„PDU; 



void CI earAll Parameters 0 ; 

virtual -1 ReadPixels (VR * vr, DICOMRecord& dr)=0; 

virtual .1 Wri tePixels (VR * vr)=0; 

DModule, .geSeries ( ) { ClearAllParameters () ; }; 

virtual ■ :odule_ImageSeries ( ) { } ; 



#endif // 



ned(AFX_DMODULES„H 3F70C2E3_CF5D_11D3_97 60_00105A2 1774F INCLUDED.) 
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// dqr.h: i: 
// 

1 1 1 1 n 1 1 1 1 h 

#incli:de "s( 
# include "cc 
#if ! define- 
#define DQR„ 

class DQRTar^ 
{ 

publ i ;J : 

B'/TE 
const sr 
UINT 
DICOMRe^ 
DateTirr^f. 



void 
void 
void 

void 
bool 
bool 
bool 
bool 
bool 

bool 

bool 

UINT 
DORTaski 
pi virtual 
pr-ivate : 

^■i UINT 
^ static 

'"M void 



diass DQR 

ife^blic : 

III void 
SJ void 
void 
LJ void 

void 

boo] 
bool 
bool 
bool 

bool 
bool 
bool 
bool 
b'.;ol 

b.)Ol 

bool 
bool 
bool 
bool 
bool 
bool 



lo:Ol 

c o a r 



face for the DICOM query/ retrieve class. 

1 1 1 1 1 { / 1 1 1 1 N H f n N f 1 1 n 1 1 1 1 1 1 1 1 1 1 m ( I n 1 1 1 1 1 1 1 1 1 1 n I 

\ ceclass . h" 

^es.h" // Added by ClassView 

;r_h_included_) 

^NCLUDED_ 



i^_Type ; 

\c BYTE Tasklnvalid, TaskGet, TaskMove; 

in_nAE , m_nAEde s t ; 
d m_DRdata; 
:r.ent m_ExecTimeSegment ; 



ScheduleTask(DateTime& start, DateTime& end); 
CountExecution ( ) ; 
GrantExecution ( ) 

{ if {m_nExe c< 1 ) m_nExec + + ; } ; 

SetExec(UINT e) { m_nExec = min(e,5); }; 
CanExecuteLater { ) ; 
CanExecuteNow { ) ; 
CanExecute ( ) ; 

SerializeTask{FILE *fp, bool is_loading) ; 
SetTask{ByTE type, UINT nAE, DICOMRecordS: drdata, 

UINT nAEdest=0, int nExec=l) ; 
SetTask(BYTE type, UINT nAE, DICOMDataObject& ddo, 

UINT nAEdest=0, int nExec=l) ; 
Format ScheduleString (char *str, int max_len) ; 
GetExecO { return m_nExec; }; 

GetlDO { return m„ID; }; 

,jRTask ( ) ; 

m._nExec ; 
m_ID; 

IT m_IDcount; 

SetUniqueID{ ) ; 



o.oveTaskID{UINT taskID) ; 
/iTask{DQRTask& t) ; 
icel ( ) { m_CancelEnafoled=true; }; 

^ar Found ( ) { ni_ADOB . Remove All ( ) ; } ; 
Priority (BYTE priority) ; 
oRoot (BYTE root) ; 

..LastMessageID{UINT16 id) { m_LastMessageID = id; 

in_CancelEnabled= false; }; 
AELocation (UINT aeindex, char* loc) ; 

jcuteNextTask ( ) ; 
:nRootLevel ( ) ; 
)nBootomLevel ( ) ; 
{ ) ; 

Id ( ) ; 

viRoot (DICOMRecordSc dr) ; 

dN ex t Level (UINT dob_index) ; 
^dPreviousLevel () ; 
-{UINT dob_index, bool queue); 

(UINT dob_index, char* ae_dest_title, bool queue); 
:cuteTask(DQRTask& t) ; 

Task (UINT tindex, DQRTaskSc t) ; 

iateQR (DICOMViewLog* pLog, DICOMDatabase* pDB) ; 
FoundRecord(DIC0MRecord5c d, UINT index); 
CurrentAEIndex (UINT ind) ; 
-DQRCallBack(int (*func) (void* a, UINT par aml=0, UINT par am2=0) , 
void* arg=NULL) 
return m_ControlCallback, SetCallBack (func , arg) ; }; 
ializeDQR(FILE* fp, bool is_loading) ; 
CurrentAETitle ( ) ; 

^ Priority 0 { return m_Pri or ity; }; 
bevel 0 { return ni_Rec or d. Get QLevel () ; }; 

' ^oundCount ( ) { return m_ADOB . GetSize () ; } ; 



1 



xCallbackFilter {UIWT stepn\im=0, UINT id=0); 
eteFromLocalDB (DICOMRecord& dr) ; 

LastMessageID( ) { return m_LastMessageID; }; 
CurrentAEIndexO { return m_CurrentAEIndex; }; 

TasksSize ( ) ; 

•ora{) { return m_Record; }; 

.EntityList* 
AEListPtr 0 ; 

-tTaskPtrFromID{UINT taskID) ; 

.'R ( ) ; 

m_C anc e 1 Enabl ed ; 
m_TaskCanUpdate ; 
m_Root, in„Priority; 
m„LastMessageID; 

m_Cur r en t AE I ndex , m_Cur r en tTas kl ndex ; 
I m_Record, m_RecordRoot; 

^ject m_DOB; 
:DataObject> m__ADOB; 
■3k> m„Tasks; 
;g* m_pLog; 
.se-^ m_pDBase; 
:Gct m_ControlCallback; 

LockTaskThread ( ) ; 
UnLockTaskThreadO ; 



ned ( DQR„H„INCLUDED__) 
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,xed, Fast-Access Array. 

tempi lie lass KEYTYPE, class DATATYPE> 

class Fix^ '^rray 



^ -k-k-k ^ 


■ Tk- -Jt- k -y 


it 




* c ■ 




* 




* T;- 


lis DI 




ivis U 




:,"h t[i 


* ^ ' 


L brary 


* a:^ 


5 wel]. 


* i:: 


J Gd/CG 


* 






-: chnic 


* 








/ * * * V 


>: 'k -k k k k 


* 




* So-: 


:-ted / 









uiir 




ArraySize; 






Top; 


KEY^ 




*KeyTable; 


DAT; ■ 




*DataTable; 


Fix; 


-Array (UINT, BOOL) ; 




Array ( ) ; 


BOC .: 




Sort 0 ; 






& Add{KEYTYPE &, DATATYPE &) ; 




^?E 


Sc Add (DATATYPE &) ; 






IndexOf (KEYTYPE &) ; 




. "?E 


& Get {INT Index) 




ret 


urn {DataTable [Index] ) ; } ; 


ft BOC: 




RemoveAt (INT) ; 


''Ni DAT. 


'PE 


Sc operator [] (INT Ind« 




, re:: 


urn {Get (Index) ) ; }; 






GetSizeO 




ret 


urn ( Top ) ; } ; 






GetAllocationSize ( ) 



retjrn ( ArraySize ); }; 



tgSfnpl A-e lass KEYTYPE, class DATATYPE> 

cfiL'&ss F::.x: - rravElement 



KTA =^E Key; 
DA"' 'PE Data; 

ui:; operator > (FixedArrayElement ScFAE) 

return ( Key > FAE.Key ); }; 
UIA operator < (FixedArrayElement ScFAE) 

return ( Key < FAE.Key ); }; 
Uirr operator =- (FixedArrayElement &FAE) 

return ( Key == FAE.Key ); }; 



template lass KEYTYPE, class DATATYPE> 

? i xedAr: ^ \^<KEYTYPE, DATATYPE> :: FixedArray ( 

ta;nt 1 Ize, 

l.-A)D ^eKeys) 

A::;ray5:L ~ aSize; 

i : ; Ac ys ) KeyTable = new KEYTYPE [ aSize ] ; 

c se KeyTable = NULL; 

I\:caTac = new' DATATYPE [ aSize ]; 



temp ] • t e lass KEYTYPE , class DATATYPE> 

FixedA.: ,-< KEYTYPE, DATATYPE> :: -FixedArray () 

i 

i"" { Ke.- ible ) 

de • KeyTable; 

:A ( Ac .Table ) 

Gc i c DataTable; 



temp : ; - e lass KEYTYPE , c 1 as s DATATYPE> 

BOOL Fix . ■rray<KEYTYPE, DATATYPE> :: Sort ( ) 

\ : ::<\T idex ; 

r xedA:_ -Elenent < KEYTYPE, DATATYPE > FAE; 

] ' ; leii - xf-dArrayElement<KEYTYPE, DATATYPE> > PQFAE; 

i-; ( : ■ Tab^e ) 

X i FALSE ) ; // Not a s or table array 

v/xile , dex < Top ) 

FA:- ^ KeyTable [ Index ] ; 

FA-; .na - DataTable [ Index ] ; 

prv-; Push (FAE) ; 

- 'A : ; 

;;x.dex ■- ' 

vx":ile >dex < Top ) 

FAr" PQFAE . Pop ( ) ; 

Key ^>le f Index ] = FAE. Key; 

D:v- .die [ Index ] = FAE. Data; 

1 x-.urx /RUE } ; 

tempi :ii:e lass KEYTYPE, class DATATyPE> 

DATATYPE FixedArray<KEYTYPE , DATATyPE> :: Add( 

Q F -AFTYP"' 5.:<ey, 

FATAT'd ■ ^^Fata) 

i!!' 

01 ii (Tox Arrays ize) 

i.: 'eyTable ) 

^"i .'yTaole [ Top ] = Key; 

.fn 11 FataTable } 

itaTdble [ Top ] = Data; 

: -d:urn MraTable [ Top-1 ] ) ; 

t?^pdAce dass KEYTYPE, class DATATYPE> 

ifeAF "Idl FixedArray<KEYTYPE, DATATYPE > :: Add{ 

lU r~ llATY;" SData) 

Pit : / ( 1 ArraySize ) 

: / ")ataTable ) 

ipa'^able [ Top ] = Data; 

r-tux:: ^aPa'^able [ Top-1 ] ); 

template 'Lass KEYTYPE, class DATATYPE> 

INT F A- .rray<KEYTYPE, DATATyPE> :: IndexOf ( 

F FIF:/!:- ^Fey) 

FFA dex = (Top / 2) ; 

: FT Lift - (Top / 2 - 1) ; 

1 :". { ! F^" : : bl e ) 

^ 1 -1 ) ; 



yl'ahle [ Index ] != Key ) 

evFaole [ Index ] > Key ) 
-^dex -== Shift; 

-k- Shift; 

ndcx >- (INT)Top ) 
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rn^;?x - Top - 1; break; }; 

-.d^ K <= 0 ) 

Izii.ex = 0; break; }; 

-zz == 0 } 

orec.k; } 

~- Shift / 2; 

:Dle [ Index ] == Key ) 

: ; Index ) ; 

able [ Index ] < Key ) 
V Index < (INT) Top ) 

( XeyTable [ Index ] == Key ) 

return { Index ) ; 
; XeyTable [ Index 3 > Key ) 

r-turn { -1 ) ; 

^ ( -1 ) ; 



( Index >~ 0 ) 

( KeyTable [ Index ] == Key ) 
return ( Index ) ; 
; KeyTable [ Index ] < Key ) 

-eturn ( -1 ) ; 
Trdex ; 



t^rhplK:- .n-G KEYTYPE, class DATATYPE> 

BoijL F:_y -.'Array<KEYTYPE, DATATYPE> :: RemoveAt ( 



^ Top ) 
7ALSE ; 



:T--iex +1} [= Top ) 
:-ncp/{ (void*} &DataTable [ Index ], 

(void*} ScDataTable [ Index + 1], 
sizeof { DATATYPE ) * Top - Index - 1 

.n:- ) 

'I:idex + 1) != Top ) 

-nK'ry( (void*) ScKeyTable [ Index ], 

(void* ) ScKeyTable [ Index + 1], 
sizeof { KEYTYPE ) * Top - Index - 1) 
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rree access licence and copyright note below. The DICOM object 
W3ver contains conceptual deviations from the UCDMC library, 
\s important bug and performance fixes, and CANNOT be 
cci; distributed/modified without our permission. 

Contact: oleg^bit . esc , Isu . edu 

- '^lass (binary tree - based) 
C~^^ Compatible / Templates Required 



"paueue . h" 

s s yp e > VarName ; 



^ u'^.'^d as the datatype must support the operators < > - 

' jdss DATATYPE> class PQueue : public Array<DATATYPE> 
dt; 

Y?E Sc Push (DATATYPE &) ; 
-'-^r & Pop{); 



cir, DATATYPE> class PQueueOfPtr : public Array<DATATYPE> 

dt; 

YPF & Push (DATATYPE &) ; 

YP:! 6c Pop { ) ; 

> > ' z^***^* **************************************** 

-Qu^-ue Class implementation 

^ -k k ^ 

^ l^-iCS DATATYPE> 

?Queue<DATATYPE> :: Push (DATATYPE ScValue) 

: nt Index; 
"led int Base; 

tvdt; 

-A.7v"iH> Add (Value); 

,rr iy<DATATYPE>: :GetSize() ; 

-ay ^DATATYPE>; :Get (Index) < Array<DATATyPE> : :Get{ (Index-l)»l) ) 
r!r ^ Array<DATATYPE> :: Get (Index); 

^r] av<DATATYPE> : :Get (Index) = Ar r ay < DATATYPE > : :Get { (Index-1) »1) ; 
rray<DATATYPE>: :Get{ (Index-l)»l) = tdt; 
:nd-x = (Index-1) >> 1; 
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v^^-ss DATATYPE > 

"'Queue<DATATYPE> :: Pop ( ) 

' dt; 
7?E tdt2; 
^:ecl int Index; 

^nt sorted; 

:.nt Pick; 

int Childl; 

mt Child2; 

int Hole; 

-'DATATYPE>: :GetSize() ) 
: dt ) ; // error 

y-- J,\TATYPE> : : Get ( 0 ) ; 

DAT\TYPE> :: GetSizeO == 1) 

AATYPE> : : RemoveAt ( 0 ) ; 

-I [ dt ) ; 

v/'.^}ATATYPE> :: Get C Array<DATATYPE> :: GetSizeO - 1); 
AT/?E> :: RemoveAt ( Array<DATATYPS> :: GetSize{) - 1); 

Ai - 2 * Hole + 1; 
[2 - 2 * Hole + 2; 

' . Ifi:, >= Array<DATATYPE> :: GetSizeO) 
^ ( Childl >= Array<DATATYPE> :: GetSizeO) 

\rray<DATATYPE> :: Get (Hole) = tdt; 

: eturn ( dt ) ; 

r AArray<DATATYPE> :: Get ( Childl ) < tdt) 

Array<DATATYPE> :: Get (Hole) = Array<DATATYPE> :: Get (Childl); 
Array<DATATYPE> :: Get (Childl) = tdt; 
return (dt) ; 

Mr''iv<DATATYPE> 
'-t..Tn ( dt ) ; 

ruldl; 
: - .iy<DATATYPE> 
ifA' = Child2; 
r " .y/ < D ATATY P E > 

- r/<DATATYPE> 
')A ^ Pick; 



\i r a\'<DATATYPE> 
^e:: { dt ) ; 



-1 -v-s DATATYPE> 

?QueueOfPtr<DATATYPE> :: Push (DATATYPE SeValue) 

rit Index; 
.'-i . int Base; 

..V. lA E> :: Add(Value}; 
^J:r.^..<DATATYPE>: :GetSizeO ; 



^ \L ay<DATATYPE> : : Get (Index) ) < ( * Array<DATATYPE> : :Get ( (Index-1) »1) ) ) 



: : Get (Hole) = tdt; 

:: Get ( Childl ) > Array<DATATYPE> :: Get(Child2)) 
: : Get ( Pick ) < tdt) 
:: Get ( Hole) = Array<DATATYPE> :: Get ( Pick ); 

: : Get (Hole) = tdt; 
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- Array<DATATYPE> :: Get (Index); 

/<DATATYPE>: :Get (Index) = Array<DATATYPE> : :Get ( (Index-1) »1) ; 
v <DATATYPE>: :Get ( {lndex-l)»l) ~ tdt; 
X = (Index-1) » 1; 



^.3 ) ; 



DATATYPE> 
'^QueueOf Ptr<DATATYPE> :: Pop (} 

•xit; 

tdt2 ; 

int Index; 
nt sorted; 
.nt Pick; 
int Childl; 
^. nc Child2; 
. nt Hole ; 

'.■ATYPE>: rCetSizeO ) 
dt ) ; // error 

ATATYPE> : : Get ( 0 ) ; 

vTYPE> :: GetSizeO == 1) 

"ATyPE> : : RemoveAt ( 0 ) ; 

dt ) ; 

■:atatYPE> :: Get ( Array<DATATYPE> :: GetSizeO - 1); 
P3> :: RemoveAt ( Array<DATATYPE> ;: GetSizeO - 1); 



2 * Hole + 1; 
2 - Hole + 2; 
>= Array<DATATYPE> :: GetSizeO) 

Childl >= Array<DATATYPE> :: GetSizeO) 

Array<DATATYPE> :: Get (Hole) = tdt; 
a turn ( dt ) ; 

Array<DATATyPE> :: Get ( Childl )) < (*tdt)) 

Array<DATATYPE> :: Get (Hole) = Array<DATATYPE> :: Get (Childl); 
.rray<DATATYPE> :: Get (Childl) = tdt; 

r eturn (dt ) ; 

} 

/cDATATYPE> :: Get (Hole) =: tdt; 

' n ( dt ) ; 

Idl; 

:ray<DATATYPE> :: Get { Childl )) > ( * Array<DATATYPE> Get (Child2 ) ) ) 

- Child2; 

^ r ay<DATATYPE> :: Get ( Pick )) < {*tdt) ) 

^/<DATATYPE> :: Get ( Hole) = Array<DATATYPE> :: Get ( Pick ); 

^ = Pick; 



/=:DATATYPE> :: Get(Hole) = tdt; 

rn ( dt ) ; 



// s- - / . \r>r. h. interface for the ServiceClass class, 
// 

////, // ; 1 1 1 1 1 1 n 1 1 1 1 n N 1 1 1 n 1 1 1 1 f 1 1 n n f 1 1 1 1 1 f 1 1 1 1 f I f ( ! 1 1 1 1 1 

#if : : ^ _;.^RVICE_CLASS_H_INCLUDED_) 

#def:: - - '^C^_CLASS_H_INCLUDED_ 

#inc:. ' : --ir-iew.h" 



clasr - ' ■ ' <\ss 
{ 

publi ' 

.-J' BYTE PatientRoot; 

cr:v:s- BYTE StudyRoot; 

( ; :r: , ; x'r BYTE PatientStudyRoot ; 

c' /:s- ■ BYTE NormalPriority ; 

( ■ : : - \z: c BYTE HighPriority ; 

(-::.;: . -\z\ BYTE LowPriority; 

crK]r:. . ■ itic UINT16 CEchoReq; 

r:;ns' CINTie CEchoRsp; 

( ■ : -:■: , ■: ^ UINTIS CFindReq; 

( ' -r, t: JINT16 CFindRsp; 

( :■::; :JINTl6 CGetReq; 

r : ^tiL UINT16 CGetRsp; 

c - .nj 'JIMT16 CMoveReq; 

c -r.s- -.t^ UINT16 CMoveRsp; 

(■.:■:•.:■■;- ^^^0 'JINT16 CStoreReq; 

c .■ 1-^. UINT16 CStoreRsp; 

r UINT16 CCancelReq; 

c :;: ; r 1 U I NT 16 CUnknownReq; 

c: - c urNTl6 DataPresent; 

O c: :.;\;- . ^t:c UINT16 DataAbsent; 



.ri, UINTie StatusSuccess; 

y;j c 'f;:-- : u UINT16 StatusPending; 
^.'^1 ; ^r:: UINTlS StatusPendingOptionalKeys ; 

"^^i r .t^c UINT16 S tatusCancelled; 

ibg (■ ; :■ r:, UINT16 StatusOutOf Resources ; 

; r ; - UINT16 StatusCannotMatch; 
( ; ; - UINT16 StatusCannotPerf ormSuboperation; 

lU ( ; 'JINT16 StatusDestinationUnknown; 

r :;: , .-1^ JIMT16 StatusDoesNotMatchSOP; 
^ : :; ] UINT16 S tatusFailedSubOperation; 

H= f : UINT16 StatusElementsDiscarded; 

r| c '^-1- UINT16 StatusDataDoesNotMatchSOP? 

ili (■ uINT16 StatusUnableToProcess ; 

S:J s ; - ar - fDlCOMViewLog& dvl , DICOMDatabase& dtb) 

vl) ,m_DBase(dtb) {} ; // parameters are passed by reference ! 
; v: , as - ( DlCOMViewLog& dvl, DICOMDatabase& dtb, CallBackObject& cbo) 
ij ■ ■ ' c vi } , m_DBase (dtb) , m_ServiceCallback(cbo) {} ; 

:v - ceClass ( ) { } ; 

prote':^ 

:^ : : ' ; '/'.r - iTL_Log; 

r... ■ : v -h;-;-^^ m_DBase; 

; - m_ServiceCallback; 

"; . - . i^re {PDU_Service &PDU, DICOMCommandObject *DCO, 

DICOMDataObject *DDO, const char* service) ; 

] , i ; ?DU_Service &PDU, DICOMCommandObject *DCO, 

DICOMDataObject *DDO, const char* service) ; 

] : ^ I - k ^ t a tus { DICOMCommandOb j ec t *DCO ) ; 

}; 



clas5: --r:lic ServiceClass 

{ 

publ :: ■ ■ : 

i ' ■: ■ . .: . ' o ( u i nt a e_i ndex ) ; 

1 - / [ ( UINT ae_index, DICOMDataObjectS: ddo_mask; 

Array <DICOMDataObj ect> Sc ddo_found, 
BYTE root, UINT16 Priori ty=NormalPriority ) ; 
J : '<--fi:iNT ae_index, DICOMDataObject^ ddo_mask, 

BYTE root, UINT16 Priority=NormalPriority) ; 
] M e(UINT ae„index, DICOMDataObject& ddo_mask, char* destAET, 

BYTE root, UINT16 Priority=NormalPriority) ; 
J ; re (PDU_Service &:PDU, DICOMDataObjectSc DDO, 
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: Priority=NormalPriority, char* originatorAETitle=NUIjL, 
" : originatorMessageID=OxOOOO) ; 
:MViewLog& dvl , DICOMDatabaseSc dtb) ; 
: .l'rv'iewLog& dvl , DICOMDatabase& dtb, CallBackObject& cbo) ; 

r s-r(); 



^ - LIfNeeded(PDU_Service& PDU, UINT16 mlD) ; 
. T (ApplicationEntity& ae, UINT ae_index) ; 
'.-.-si (PDU_Service& PDU, UINT16 mid); 
'.rno ( ApplicationEntitySc AE) ; 
e;c !yo (PDU„Service& PDU) ; 

: i (ApplicationEntity &AE, DICOMDataObject& ddo_mask, 
r;/ <DICOMDataObject> & ddo_found, 
r" root, UINT16 Priority=NormalPriority) ; 
^ I { PDU_Service &PDU, DICOMDataObjectSc DDO, 

' SOP, Array <DICOMDataObj ect> & found_list, 

L o Priority=WormalPriority) ; 

: ApplicationEntity &AE, DICOMDataObjectSc ddo_.mask; 
":YTE root, UINT16 Priori ty=Norraal Priority) ; 
; 'PDU_Service ScPDU, DICOMDataObjectSc DDO, 
, SOP, UINT16 Priority=NormalPriority) ; 
A e (ApplicationEntity ScAE, DICOMDataObjectSc ddo_mask, 

char* destAET, BYTE root, UINT16 Priori ty=Normal Priority) ; 
I' • 2 f PDU_Service &PDU, DICOMDataObjectSc DDO, 
-i- ' SOP, char* destAET, UINT16 Priori ty=NormalPriority) ; 

7CcmmandAndID(DIC0MCoinmand0bjectSc DCO, 
.■^'.^6 Command, UINT16 MessagelD) ; 

^ /eAndVerify {PDU_Service ScPDU, DICOMCommandObject Si:DCO, 
nOataObject &DDO, UINT16 Command, 
L') MessagelD, const char* service); 



public ServiceClass 



\':'^_Service& PDU, DICOMCommandObjectSe DCO); 

"^ '„Service &:PDU, DICOMCommandObject ScDCO, UINT16* cancelledID) ; 
^:_Service &PDU, DICOMCommandObject ScDCO, UINT16* cancelledID); 
o;_Service SiPDU, DICOMCommandObject ScDCO, UINT16* cancelledID); 
?DL'_Service ScPDU, DICOMCommandObject ScDCO); 

v^^ndProcess {PDU_Service ScPDU, DICOMCommandObjectSc DCO^ UINT16* cancelledID) 
.j':OMViev/Log& dvl , DICOMDatabaseSc dtb); 

^LS0MViewLog& dvl , DICOMDatabaseSc dtb, CallBackObjectS^ cbo); 

'1 '^vider ( ) ; 

rOata (DICOMCommandObjectSc DCO) ; 



SERVICE„CLASS_H_INCLUDED_) 
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* 

* r : ■ ' * 2 000, Louisiana State University, School of Medicine 
* 

* ' '^ hject library was developed from the University of California, 

* I : ■ :;iCOM Network Transport Libraries, in full compliance 

* - access licence and copyright note below. The DICOM object 

* J- ver contains conceptual deviations from the UCDMC library, 

* ; Toortant bug and performance fixes, and CANNOT be 

* V : : iy\ c! istributed/modif ied without our permission. 
* 

* ' : : ■ ' ( -ii^act: oleg©bit . CSC . Isu . edu 
* 

iifnc:- ■ : ' _:ncluded_ 

* (■'■:-.:■■. r. ^ _H_INCLUDED_ 



/* U; ; f / rcions * / 

UINT 'J ) , 

uint:: ... ^r.. ;y2 {) ; 

UINT.. ' .-.^ ( ) ; 

UINT^-^ ; - { ) ; 

uint; odd{) ; 

UINT..: ■ - ^r^6odd() ; 

inlir ZeroMem{BYTE* mem, UINT Count) { memset{(void *) mem, 0, Count); } 

inlir ' ZeroMem{char* mem, UINT Count) { memset((void *) mem, 0, Count); } 

void 1., 2DBufferY(BYTE* buf, UINT32 buf_size, 

UINT32 nrows) ; 

bool L -^.teAndSetCurrentDirectory{char *dir) ; 

hppl -'^eDICOMSubstring(char* str, char * sub ) ; 

Hefcl ; .LCOMSubstring (char* str, char * sub ) ; 

bgol ^ dlizeString{FILE* fp, char* str, bool is_loading) ; 

bS)! ^izebool {FILE* fp, boolSc x, bool is__loading) ; 

ll6bl i^izeBOOL(FILE* fp, BOOLSc X, bool is_loading) ; 

hppl - i^izeBYTE(FILE* fp, BYTE& X, bool is_loading) ; 

hppl . izelnteger (FILE* fp, int& x, bool is_loading) ; 

bof>l ^_izeUINT(FILE* fp, UINT& x, bool is_loading) ; 

bS>l - - ^: .izeDouble (FILE* fp, double& x, bool is__loading) ; 

i|f|Li: I sEmpty String (char* s) 



lU if(s==NULL) return true; 

^ if(s[0]==0) return true; 

return false; 

Ifrlir IsUniqueString (char* s) 

if (IsEmptyString(s) ) return false; 
Si if {strchrCs, '*' ) || strchr (s , ' ? ' ) || 

strchr (s, ' W ) ) return false; 
yff return true; 

inli: IsBlankString (char* s) 

{ 

if (IsEmptyString (s) ) return true; 
for(UINT 1=0; i<strlen{s) ; i++) 

( 

if(s[i]l=' ') return false; 

} 

return true; 

}; 

BOOL '-r' ucpy(BYTE *, BYTE *, UINT); 

char^ hortPileName (char* fullpathname) ; 

char - ""CGMSubstring (BYTE* str, UINT32 str_len, 

char* sub, UINT32 sub__len, int number =1) ; 
char^ " TCOMSubstring (char* str, char* sub, UINT32 sub_len, 

int number =1) ; 
int - ; iar(char* str, char c) ; 

int : iC narReverse (char* str, char c) ; 

UINT '/ ,-^trLength (BYTE *); 

long . -^^ength (char* filename); 



#enG 
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) 2 000, Louisiana State University, School of Medicine 

bject library was developed based on University of California, 
:^r' OICOM Network Transport Libraries, in full compliance 
: /right note below. This version however contains conceptual 
"jcm the UCDMC library, as well as important bug and performance 
, -^nnot be used/ copied/distributed without our permission 

intact: oleg©bit , esc . Isu. edu 

. ':_I:_INCLUDSD„ 
^ ^-^„H_INCLUDED_ 

j'^ed information 

- -.ains the version number/ Class that will be embedded not 
executable, but in the default PDU Service transfer Class. 

"1,2.10008.1968" 
"2 .0_DCM_WIN32" 

-2,0„DCM_UMIPS " 

" 2 . 0_DCM_SL5 " 



"2.0„DCM_MAC- 



"2.0_DCM_SUWOS" 
"2.0_DCM„OTHER" 



,''.f;4Entation_class_string 

" ',"MENTATION_VERSION_STRING 

' FMENTATION„VERSION_STRING 

" .FMENTATION_VERSION_STRING 

^ r,MENTATION_VERSION_STRING 

-^'-^ FMENTATION_VERSION_STRING 
"r '..EMENTATION.VERSION^STRING 
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^ -k i 



* * * 



m 



^ ^ ************** *********************************^ 

•) 2 000, Louisiana State University, School of Medicine 

object library was developed based on University of California, 
3IC0M Network Transport Libraries, in full compliance 
/right note below. This version however contains conceptual 
:^-om the UCDMC library, as well as important bug and performance 
.annot be used/copied/distributed without our permission 

ntact: oleg@bit.csc.lsu.edu 

vj^^* ************************************************** ********/ 

^ on . hpp " 



t, * * * * 



**************************************************** 



Context Class 



^ > +********************************************************/ 
AppI ^ -^-:t : : ApplicationContext { ) 

{ 

} 

Appl ' -oxz :: ApplicationContext (UID Scuid) 

{ 

■ xlO; 

O :'---v-.. ' ContextName = uid; 

o o. - r<t :: ApplicationContext (BYTE *name) 

r. PxlO; 

3; 



' ontextName . Set (name) ; 
A|4=.i '. xt: :: -ApplicationContext { ) 



o de-allocate specifically 



^|pd.r; xionContext :: Set (UID Scuid) 

1^4 , ContextName = uid; 

H 

^-lonContext :: Set(BYTE *name) 

G 

X. - ontextName . Set (name) ; 

} 

BOOT lonContext :: Write (Buffer &Link) 

{ 

SozeO ; 
^^rype ; 
-1 vedl ; 
■ ■ . ■ xth; 

^ > 'BYTE *) ApplicationContextName.GetBuf fer ( ) , Length); 

■■: ^ ' ' rl-E ) ; 

} 

boo: ^* : onContext :: Read (Buffer &Link) 

{ 

^■Type; 

xo->ReadDynamic (Link) ); 

' '"'^ ) ; 

} 

BOO; ' —onContext :: ReadDynamic (Buf f er ScLink) 

{ 

■ ' rvedl ; 

. : ■■: , ^ ^ h ; 

' —YTS *} ApplicationContextName.GetBuf fer () , Length); 
^ - . ^ ontextName .GetBuf fer 0 [Length! = '\0'; 
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■ntextName . SetLength (Length) ; 



UIKT ■ : - LonContext :: Size() 

{ 

; ^ licationContextName.GetSize ( ) ; 

--of (BYTE) + sizeof(BYTE) + sizeof {UINT16 ) + Length ); 



7ax Class 



Absi : AbstractSyntax { ) 

{ 

.-30; 

} 

Absi ■ AbstractSyntax (UID &uid) 

{ 

■ ' ■ : . \ f. a3 0; 

■ ^^.^raxName = uid; 

} 

Absi ^ : AbstractSyntax (BYTE *name) 

{ 

. :; : <30; 

, ^ 'ixName . Set (name) ; 
^- -AbstractSyntax 0 

"r"^, de-allocate specifically 

Vplr: : Syntax :: Set (UID &uid) 

nil ..-V , ' '^xName = uid; 

4^i.C . - ^ * Syntax : : Set (BYTE *name) 

" ^.xName . Set (name ) ; 

111 

e3ci ^ ' 'yntax :: Write (Buffer ScLink) 

, ' >- "-Type ; 
; . . -rvedl ; 

BYTE *) AbstractSyntaxName.GetBuf fer ( ) , Length); 

^ - ) 7 

} 

boo: : : :3yntax :: Read (Buffer S:Link) 

{ 

^ '^ype ; 

s->RGadDynamic (Link) ); 

} 

BOOT ,^3 /ntax :: ReadDynamic (Buf f er ScLink) 

{ 

. -rvedl ; 

V ' i'T3 AbstractSyntaxName.GetBuf fer ( ) , Length); 
,^xName.GetBuffer() [Length] = '\0'; 
;\ / axName . SetLength (Length) ; 

':e ) ; 

} 

UINV - ^ Syntax :: Size() 

{ 

' .rractSyntaxName .GetSizeO ; 
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^ -k -k ' 



Ei 



if (BYTE) + sizeof(BYTE) + sizeof (UINT16 ) + Length }; 

,^^^i,^^^i,i,^i,i,i,i,ici,*ic*ic*i(ic*ic*itic** ************************ 



Tra: ■ Transf er Syntax ( ) 

{ 

■ ■; . -.'AO; 

Trar. - Transf erSyntax {UID &uid) 

{ 



■ ■ : .■ — ' . ^ixName = uid; 

Trar, i ■ Transf erSyntax {BYTE *nanie) 

{ 

x40; 



xName , S e t { name ) ; 

Trar; : r ■ : --Transf erSyntax ( ) 
{ 

}..L 



de-allocate specifically 



yiic ^/ntax :: Set (UID Scuid) 

yii ■ . . ^ nxName = uid; 

m 

vMr Svntax :: Set (BYTE *name) 

m 

: '- -.xName , Set (name) ; 

^00' ' V/ntax :: Write{Buffer ScLink) 

f , 

1=^^ 3ize 0 r 

f =s . : :. ■ . ■ ^Type; 

■ 'rvedl; 

\J ' 3YTE *) TransferSyntaxNaiae.GetBuffer () , Length); 



BOOl .^/ntax :: Read {Buffer &Link) 

{ 

■. . ■ . Type; 

— >ReadDynamic (Link) ); 

} 

BOOT S/ntax :: ReadDynamic (Buf f er &Link) 

{ 

: . ■■■ . -th; 

ii' r'TE Trans f erSyntaxName. Ge tBuf f er 0 , Length); 
.-xName.GetBuf fer 0 [Length] = '\0'; 
^.xName , SetLength (Length) ; 

^ ) ; 

} 

UINr" Syntax :: Size{) 

.^isferSyntaxNarue.GetSizeO ; 

-of (BYTE) + sizeof (BYTE) + sizeof {UINT16) + Length ); 
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n Class 

ass :: ImplementationClass 0 

x5 2; 

xiName , Set { {BYTE* ) IMPLEMENTATION_CLASS_STRING) ; 
iss :: ImplementationClass (UID &uid) 

.<5 2; 

- n:\farine = uid ; 

T.s :: ImplementationClass (BYTE *name) 

'-nMame . Set (name) ; 

\ss :: -ImplementationClass {) 

- de-allocate specifically 

• ationClass :: Set(UID&uid) 
^nName - uid; 

-cationClass :: Set(BYTE *name) 

: ^aiName . Set (name) ; 



a 



:ionClass :: Write (Buffer &Link) 



vedl ; 
h ; 

-YTE *) implementationName.GetBuffer 0 , Length) ; 

" ) ; 

ationClass :: Read (Buffer &Link) 

Type ; 

s->ReadDynamic (Link) ); 
ationClass :: ReadDynamic (Buf f er &Link) 

v?E *) implementationName.GetBufferO , Length); 
:Name.GetBuffer{) [Length] = '\0'; 
^^Name . SetLength (Length) ; 

) ; 

y ationClass :: SizeO 

^ eiTientationName.GetSizeO ; 
of (BYTE) + sizeof(BYTE) + sizeof (UINT16 ) + Length )? 



n Class 

3lon :: implementationVersion ( ) 
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} 

Imp.. 
{ 



fTE*) IMPLEMENTATION„VERSION„STRING) ; 

Lon : : ImplementationVersion (UID &uid) 



} 

Imp 
{ 



5ion :: ImplementationVersion (BYTE *name) 



Imp: 



}; 



j^on :: -ImplementationVersion ( ) 
rle-allocate specifically 

=i"ionVersion :: Set(UID &uid) 



}; 

voic 
{ 

{yii 



ationVersion :: Set (BYTE *name) 

Mire) ; 



Write (Buffer &Link) 



ationVersion 

/P s ; 



^YTE *) Version. GetBuf fer() , Length); 



) ; 



idb ■ 

o 



,ationVersion 



Read (Buffer &Link) 



Pype ; 

- -->ReadDynamic (Link) ) ; 



acionVersion :: ReadDynamic (Buf f er &Link) 

- v-dl; 

>:te Version. GetBuf ferO , Length); 
::.ter{) [Length] = '\0' ; 
aqth (Length) ; 



UIN' 
{ 



-a-ionVersion :: SizeO 
^lon.GetSize ( ) ; 

of (BYTE) + sizeof(BYTE) + sizeof (UINT16 ) + Length ); 



-k ^ ■:- 

Pre: 



on text 

■zz : : PresentationContext 0 



jontextID = unigSoddO; 
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PresentationContext {Abstract Syntax &Abs , 
Trans f er Syntax &Tran ) 



^ (Tran) ; 

.2 0 ; 

c;ntextID = uniq8odd(); 



-PresentationContext { ) 



lonContext :: SetAbstractSyntax (AbstractSyntax &Abs) 



rionContext : : AddTransfer Syntax (Trans far Syntax ScTran) 

: ( Tran ) ; 



-^^onContext :: Write ( Buffer &Link ) 

' /pe ; 
h ; 

M-itationContextID; 

/ed3 ; 
ved4 ; 
ze (Link) ; 



< TrnSyntax.GetSize { ) ) 
"Index] .Write (Link) ; 



return TRUE; 



rionContext :: Read (Buffer &Link) 

Type; 

.;->ReadDynamic (Link) ); 



-lonContext :: ReadDynamic (Buffer &Link) 

Count; 
Tran; 

^-vedl; 
^ -h, 

^nLationContextlD; 

L ced2 ; 
--ved3; 
^1 ved4 ; 

r- - sizeof(BYTE) - sizeof(ByTE) - sizeof(ByTE) - sizeof(BYTE) 

;Link) ; 
t ~ AbsSyntax.Size ( ) ; 

> 0) 

i ( Link ) ; 
^: un - - Tran . Si ze ( ) ; 
Add ( Tran ) ; 

-turn TRUE; 
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' lonContext :: Size() 

-of {BYTE) + sizeofCBYTE) + sizeof(BYTE) + sizeof (BYTE) ; 

Syntax . Size { ) ; 

TrnSyntax . GetSize ( ) ) 
TrnSyntax. Get (Index) .Size 0 ; 

.^^:h + sizeof (BYTE) + sizeof (BYTE) + sizeof (UINT16 )) ; 

: ength 

: : MaximumSubLength ( ) 

-of {UIMT32} ; 

- = 16384; 

:: MaximumSubLength (UINT3 2 Max) 

/: S ^ ; 

-of {UINT32) ; 

- ^ Max; 

: : -MaximumSubLength { ) 

-allocate 

;i)uength :: Set(UINT32 Max) 

^ Max; 

^foLength :: Get ( ) 
; "Length; 

.i):.3ngth :: Write(Buffer &Link) 

inLength; 

I ^Length :: Read (Buffer £cLink) 

->ReadDynamic (Link) ); 

i)Length :: ReadDynamic (Buf f er &Link) 

.:vedl; 

r TiLength; 

.oLength : : Size ( ) 
-..f (UINT32) ; 

rth + sizeof (BYTE) + sizeof (BYTE) + sizeof {UINT16 )) ; 
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M Select 

SCP: : ; SCPSCURoleSelect ( ) 

{ 

} 

SCF: :: -SCPSCURoleSelec t ( ) 

{ 

rle-allocate 

} 

boo: .^-^elect :: Write{Buffer &Link) 

{ 

OPuid.GetSize ( ) ; 
\YTE *) SOPuid.GetBuf fer ( ) , TL) ; 



•^0) (.Select :: Read(Buffer &Link) 

Ml 



Ml 



>ReadDynainic (Link) ); 



Kpt: ^ -elect :: ReadDynamic (Buf f er &Link) 



c.l; 



SOPuid.GetBuffer 0 , TL) ; 

?r 0 [TL] = '\0' ; 

:h(TL) ; 



Uiw:: ' ^""^elect : : Size() 

^ .of(UIWT16) + SOPuid.GetSizeO + sizeof(ByTE) + sizeof(BYTE) 

4- sizeof(BYTE) + sizeof(BYTE) + sizeof (UINT16 ) ); 



***************************************** 



* 

..^^:i^*^**************************************************/ 

Ext ' - n : ExtendedNegotiationO 

{ 

1; // request relational DB support, by default 
^..840.10008.5.1.4.1.2.1.1'*); // C-Find, Patient Root, by default 

} 

Ext n : • -ExtendedNegotiation( ) 

( 

} 



de-allocate 



8 



boo: ^qctiation :: Write{Buffer &Link) 

{ 

/: ^:ze(); 

r07-'uid.GetSize( ) ; 

'/TE *) SOPuid.GetBuffer 0 , TL) ; 

' - r^nalDB; 

} > 

} 

BOG: ' s.-qotiation :: Read(Buffer &Link) 

{ 

"yp^; 

- >ReadDynamic (Link) ); 

} 

boo: ---'otiation ;: ReadDynamic (Buf f er &Link} 

{ 

. recll; 

^EM SOPuid.GetBuffer 0 , TL) ; 

r ler {) [TL] = '\0^ 

f] r^onalDB; 
UH"" : ,'-'::otiation :: SizeO 

^^•i . (UINT16} + SOPuid.GetSizeO + sizeof (BYTE) ; 

- + sizeof (BYTE) + sizeof (BYTE) + sizeof {UINT16 ) ); 



fr- - ^ L on 

X^-h: Userinf ormation ( ) 

r' 

Use- -Userinf ormation ( ) 

{ 

'^"-allocate 

} 

voir ration :: SetMax(Maxim\imSubLength &Max) 

{ 

' - Max; 

UIN': ir^;:ion :: GetMaxO 

{ 

' Lergth.GetO ) ; 

] 

boo: ^ ar^ion :: Write (Buf fer &Link) 



--r;i ; 



^ rite (Link) ; 
. (Link) ; 

it:e(Link) ; ..... ^ 

on .Write (Link) ; - optional, needs to be initialized 
:rice(Link); - optional, needs to be initialized 
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boo: >i:ion :: Read(Buffer ScLink) 

{ 

>ReadDynamic (Link) ); 

} 

boo: ^'^."lon :: ReadDynamic (Buf f er &Link) 



ength; 



' e^rpByte ) 

"tI: // Reading Max Sub Length 
bij e th . ReadDynamic ( Link) ; 
^ Count - MaxSubLength.SizeO ; 

^^^52: // Reading Implementation Class 

3 . ReadDynamic (Link) ; 
- ^ Count - ImpClass.SizeO ; 

^S4- // Role selection 
"Role . ReadDynamic (Link) ; 

= Count - SCPSCURole.SizeO ; 
..r.oBaggage += SCPSCURole.SizeO; 

3 5: // Reading Implemenation Version 
r =^ ion. ReadDynamic (Link) ; 

- Count - ImpVersion.Size ( ) ; 

// Reading Extended Negotiation 

-.'o relation. ReadDynamic (Link) ; 

- Count - ExtNegotiation.Size( ) ; 

/ / Unknown Packet 
..1 (Count-1) ; 
Baggage = Count; 



: jrn TRUE; 



lg4.r: .-^^ n on : : Size{) 

1.3 



.>-Bengtli. Size ( ) ; 
' ■ ass . Size { ) ; 
' ersion . Size ( ) ; 
'.Negotiation. Size () ; 
'-SCPRole. Size ( ) ; 

h ^ UserlnfoBaggage + sizeof (BYTE) + sizeof(BYTE) + sizeof (UINT16 ) ) 



, -k -k -X ± -k -k 



***************************************** ******* 



^^j, . . . . . .^^r*^*************************************************/ 

AAs:- AAssociateRQ ( ) 

{ 



-.r = 0x0001; 

ADTitle. 17); 
^'AoTitle, 17); 
^ ^3, 32); 

AAs: AAssociateRQtBYTE *CallingAp, BYTE *CalledAp) 



10 



: = 0x0001; 

\:y7itle, 17) ; 
jApTitle, 17); 
^(i3. 32); 

qApTitle, CallingAp, ByteStrLength(CallingAp) ) ; 
iAvpTitle, CalledAp, ByteStrLength (CalledAp) ) ; 

-AAssociateRQ ( ) 
xts -GetSizeO ) 

s Get { 0 ) .TrnSyntax.ClearType = TRUE; 

> Remove At ( 0 } ; 

: ^arType = TRUE; 

^0 :: SetCalledApTi tie (BYTE *CalledAp) 
,1 Title, 17); 

i;^pTitle, CalledAp, ByteStrLength (CalledAp) ) ; 
:: SetCallingApTitle(BYTE *CallingAp) 

^^pTitle, 17); 

aApTitle, CallingAp, ByteStrLength (Call ingAp) ) ; 

Q :: SetApplicationContext (ApplicationContext &AppC) 

:: SetApplicationContext (UID &uid) 

^id) ; 

: : AddPresentationContext (PresentationContext &PresContext) 

■ iri ( PresContext) ; 

?t (PresContexts. GetSizeO -1) .TrnSyntax.ClearType = TRUE; 
3Q :: SetUserlnformation (User Information &User) 

'0 :: ClearPresentationContexts 0 
-:ts .GetSizeO ) PresContexts . RemoveAt ( 0 ); 

:: Write (Buffer &Link) 

') I Vers ion; 

7E ^) CalledApTitle, 16); 

O CallingApTitle, 16); 
Tj. ^) ReservedS, 32); 

(Link) ; 

resContexts .GetSize ( ) ) 

' [Index] .Write (Link) ; 

' ;Link) ; 

Read {Buffer &Link) 
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{ 



^ .adDynamic (Link) ) ; 

} 

boo: -^0 :: ReadDynamic (Buf f er &Link) 

{ 

Count ; 
TempBy te ; 
'^'ext *PresContext; 

' ^ il. 

; Version; 

■ ' : 2 ; 

^) CalledApTitle, 16); 
^) CallingApTitle, 16); 
r * ) Reserved3, 32) ; 
■: :n = '\0'; 

: 16] = ^\0' ; 

'c;. - sizeof (UINT16) - sizeof {UINT16 ) - 16 - 16 - 32; 

, PYTE *) ScTempByte, sizeof (BYTE) ) ; 

Cx5 0: // User information 
- Info .ReadDynamic (Link) ; 

;^^t = Count - Userlnfo.SizeO - Userinf o .Userinf oBaggage 

0x2 0: // Presentation context 
.-s Con text = new PresentationContext ; 
^■t: ^:3Context->TrnSyntax.ClearType = TRUE; 

'4J ^ Con text ->ReadDynamic (Link) ; 

01 ' 'It = Count - PresContext->Size() ; 

^^Contexts .Add(*PresContext) ; 
- ^sContext->TrnSyntax.ClearType = FALSE; 
■=J -Le PresContext; 

GxlO: // Application context 
43 on text . ReadDynamic (Link) ; 

f%l ,t = Count - AppContext , Size ( ) ; 

^ // Unknown item 

Lt Kill (Count-1) ; 

VI ^ .rn TRUE; 



ihk^ ^ : : SizeO 

{ 

;UINT16) + sizeof (UINT16) + 16 + 16 + 32; 
:*:ext . Size ( ) ; 



psContexts.GetSize 0 ) 
esContexts [Index] .Size() ; 



ifo. SizeO ; 

+ sizeof (BYTE) + sizeof (BYTE) + sizeof {UINT32 ) ), 
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APPENDIX 1 
Inventor: Pianykh, et al. 
Title: Radiologist Workstation 

Atty. Doc. #6451.064 
Source Code Listing (Volume 2) 



*0author Imtiaz Hossain 
*@version 2 . 0 
*Date : 10/05/00 
* 

* Header file for JPEGlib 
* 

*/ 

# inc lude< i o s t r eain . h> 
#include <afxwin.h> 

#ifdef cplusplus 

extern "C" { 
#endif // _cplusplus 
#include <time,h> 
#include "jpeglib.h" 
#ifdef cplusplus 

#endif // _cplusplus 



class CodecErrorHandler 
{ 

pifeiic: 

m int n__ErrorFlag; 

41 // Methods 

int GetFlag ( ) { 
^IJ return n__ErrorFlag ; 

Jji } 

^'i: void SetFlagdnt f lag) { 
n_ErrorFlag=flag; 

^ } 

void Notify_stderr (int f lag) { 
Q cout «" Error: #" «flag«endl; 

}>f 

class JPEG: public CodecErrorHandler 
{ 



public : 

// static consts^ 

// Error definitions 

static const int SUCCESS; 

static const int MEMORY_ALLOC_ERROR; 

static const int FILE_READ„ERROR; 

cii-atic const int FILE_WRITE„ERROR; 

sStic const int JPEGLIB_STRUCT_INIT_ERR0R 



// Coding types 

static const int DEFAULT_CODING ; 
static const int BASELINE; 
static const int PROGRESSIVE; 
static const int LOSSLESS; 



// Resolution 

static const int DEFAULT„RES; 
static const int ONE_BYTE; 
static const int TWO_BYTE; 
static const int THREE__BYTE? 
static const int FOUR.BYTE; 



// Color Planes 

static const int DEFAULT_BPP; 

Static const int Gray; 

static const int RGB; 



// Image Quality 

static const int DEF_QUALITY; 

// Compression Ratio 

static const float DEF_RATIO; 

// Time limit on the compression 
static const long DEF__TIME; 

// regular public variables. 

int n„ImageHeight; 
int n^ImageWidth; 
int n„ImageBpp; 
int n_ImageResolution; 
int n_ImageCodingType ; 
int n_ImageQuality; 



// Constructor (Default) 
JPEGO {} 



// Encoder Methods 



i|] /* The Encoder Param method loads the values for 

The Height of the image. 
The Width of the image. 

The number of color components per pixel, i.e. color depth. 
[Optional] Image resolution. Number of bits per pixel. 

This is usually a Grayscale thing. But the comprehension of the input data buffer 
(in parameter 1) will change. We usually have two options 8 or 12. DICOM will 
support upto 16. 

[Optional] The type of Encoding. ... i.e. BASELINE, PROGRESSIVE, etc. etc. Again 
this might call for a change in the way the decoder produces the output stream of 
BYTEs . 

[Optional] Quality of the compression. On a scale of [0 - 100] this parameter 
determines the tradeoff between compression and image quality. For larger 
values of this parameter, we might actually have ablow-up of the size instead 
of compression. A 100 on this parameter does NOT imply lossless compression. 

/if void EncoderParamdnt n_Height, int n_Width, int n_Bpp, int n_Quality=DEF_QUALITY, int n_Coding= 
r^^-AULT^CODING, int n„Res=DEFAULT_RES) ; 



/* The Endode method works on the values fed into the Encoder Param method. These values 

eventually show up in the modified "IJG" structure for jpeg compression. The compression 
proceeds as per these values. The compressed buffer is returned by the function. The only 
input parameter is a pointer to an "int", so as to avoid having to declare a "struct". The 
total length of the returned buffer is written into this variable. 

*/ 

BYTE * Encode (BYTE * jpeg_get_Buf f er , int *length, int * ret„quality, int n_Height, int n_Width, i 
nt n_Bpp, int n_Quality=DEF_QUALITY, int n_Res=DEFAULT__RES , int n_Coding=DEFAULT_CODING) ; 

BYTE * Encode (BYTE * jpeg_get_Buf f er , int *length, int * ret„quality, int n_Height, int n_Width, 
int n_Bpp, float n_Ratio=DEF_RATIO, long n_Time=DEF_TIME, int n_Res=DEFAULT_RES , int n_Coding=DEFAUL 
T_CODXNG) ; 



/* The decoder needs to have certain information about its input before it processes it. The 
input to the decoder is in the form of a stream of BYTEs consisting of the compressed data 
The height, width and number of colors of the uncompressed image need to be specified. The 
pixel-resolution also needs to be specified. The DecodeParam method just serves to collect 
these values before the decoding starts. 

*/ 



1) 
2) 
3) 
4) 



5) 
6) 
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IR^HSII'ISn'lx'.'^il!!'*!' 



/* The Decode method decompresses the input buffer specified in the method DecodeParam and 
returns the uncompressed data as a stream of BYTEs in the form R, G, B,R, G, B. . . . or a 
sequence of Gray values as the case may be. 

*/ 

BYTE * Decode (BYTE *CompressedBuf f er , int length); 

BYTE * ChopWindow(BYTE * whole__stream, int* height, int* width, int bpp) ; 

BYTE * Resolution_Conver tor (BYTE * jpeg_get_Buf f er , int *bpp, int *res, int Height, int *Width) 
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* jpegint.h 
* 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software . 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file provides common declarations for the various JPEG modules. 

* These declarations are considered internal to the JPEG library; most 

* applications using the library shouldn't need to include this file. 



/* Declarations for both compression & decompression */ 



typedef enum { /* Operating modes for buffer controllers */ 

JBUF_PASS_THRU, /* Plain stripwise operation */ 

/* Remaining modes require a full -image buffer to have been created */ 
JBUF_SAVE_SOURCE , /* Run source subobject only, save output */ 
JBUF_CRANK_DEST , /* Run dest subobject only, using saved data */ 
JBUF_SAVE_AND_PASS /* Run both subobjects, save output */ 
} J.BUF_MODE; 

/* Values of global_state field (jdapi.c has some dependencies on order ingl) */ 

after create_compress */ 

start_compress done, write_scanlines OK */ 
start_compress done, wr i te_raw_data OK */ 
jpeg_write__coef f icients done */ 
after create_decoirpress */ 
reading header markers, no SOS yet */ 
found SOS, ready for start_decompress */ 
reading multiscan file in start_decompress*/ 
performing dummy pass for 2-pass quant */ 
start_decompress done, read_scanlines OK */ 
start_decompress done, read„raw_data OK */ 
expecting jpeg_start„output */ 
looking for SOS/EOI in jpeg^f inish_output */ 
reading file in jpeg_read_coeff icients */ 
looking for EOI in jpeg_finish_decompr ess */ 



#def ine 


CSTATE, 


.START 


100 


/* 


#def ine 


CSTATE. 


.SCANNING 


101 


/* 


# define 


CSTATE. 


_RAW_OK 


102 


/* 


#def ine 


CSTATE 


„WRCOEFS 


103 


/* 


#def ine 


DSTATE_ 


.START 


200 


/* 


# define 


DSTATE. 


.INHEADER 


201 


/* 


#def ine 


DSTATE_ 


.READY 


202 


/* 


#d^yine 


DSTATE 


.PRELOAD 


203 


/* 


#cf^fine 


DSTATE. 


_PRESCAN 


204 


/* 


# At ine 


DSTATE. 


.SCANNING 


205 


/* 


#c£8£ine 


DSTATE 


RAVCOK 


206 


/* 


#{|af ine 


DSTATE. 


.BUFIMAGE 


207 


/* 


#cfeff ine 


DSTATE 


.BUFPOST 


208 


/* 


#(yf ine 


DSTATE. 


_RDCOEFS 


209 


/* 


fdy^fine 


DSTATE, 


.STOPPING 


210 


/* 



/f||Declarations for cort^ression modules */ 

/* Master control module */ 
struct jpeg_compjfiaster { 

f-ifMETHOD(void, prepare„f or_pass , ( j_compress_ptr cinfo)); 

j;dMETHOD{void, pass_startup , ( j_compress_ptr cinfo)); 

0#METHOD(void, finish_pass, ( j_compress_ptr cinfo)); 

^3* State variables made visible to other modules */ 

L:i)oolean call_pass_startup; /* True if pass_startup must be called */ 
rboolean is_last_pass; /* True during last pass */ 

/* Main buffer control { downs ampled- data buffer) */ 
struct jpeg„c_main„c on tr oiler { 

JMETHOD{void, start_pass, ( j„corapress_ptr cinfo, J_BUF_MODE pass_mode) ) ; 
JMETHOD(void, process_data, ( j_compress_ptr cinfo, 

JSAMPARRAY input_buf , JDIMENSION *in_row_ctr, 
JDIMENSION in_rows_avail) ) ; 

}; 

/* Compression preprocessing (downsampling input buffer control) */ 
struct jpeg_c_prep_contr oiler { 

JMETHOD(void, start_pass, ( j_compress.^tr cinfo, J_BUF_MODE pass_mode)); 
JMETHOD{void, pre_process_datai ( j_compress jtr cinfo, 

JSAMPARRAY input_buf, 

JDIMENSION *in_row_ctr, 

JDIMENSION in_rows„avail, 

JSAMPIMAGE output„buf. 

JDIMENS I ON * ou t_r ow_gr oup_c t r , 

JDIMENSION out_row_groups_avail) ) ; 

}; 



/* Coefficient buffer control */ 
struct jpeg_c_coef_controller { 

JMETHOD(void, start_pass, ( j_compress_ptr cinfo, J_BUF_MODE pass„mode) ) ; 

JMETHOD {boolean, compress^data, ( j_compress.:ptr cinfo, 
JSAMPIMAGE input_buf ) ) ; 

}; 
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/* Colorspace conversion */ 
struct jpeg_color__converter { 

JMETHOD{void, start_pass, ( j_corapress_ptr cinf o) ) ; 
JMETHOD(void, color_convert , ( j_coiapress_ptr cinfo, 

JSAMPARRAY input_buf, JSAMPIMAGE output_buf, 
JDIMENSION output_row> int nunurows) ) ; 

/* Downsampling */ 
struct jpeg„downs ampler { 

JllETHOD(void, start_pasS/ { j„coinpress_ptr cinfo)); 

JMETHODCvoid, downsample, ( j_compress_ptr cinfo, 

JSAMPIMAGE input„buf, JDIMENSION in„r ow„index , 

JSAMPIMAGE output_buf, 

JDIMENSION out„row_group_index) ) ; 

boolean need_context_rows ; /* TRUE if need rows above & below */ 

}; 

/* Forward DCT (also controls coefficient quantization) */ 
struct jpeg__f orward_dct { 

JMETHOD{void, start_pass, ( j_corapress_ptr cinfo)); 

/* perhaps this should be an array??? */ 

JMETHOD(void, forward_DCT, { j_compress_ptr cinfo, 
jpeg_coinponent_inf o * compptr, 

JSAMPARRAY sample„data, JBLOCKROW coef_blocks, 
JDIMENSION start_row, JDIMENSION start_col, 
JDIMENSION num_blocks) ) ; 

}; 

/*Ff Entropy encoding */ 
stfllict jpeg_entropy_encoder { 

^MlETHOD(void, start_pass, ( j_compress_ptr cinfo, boolean gather_statistics) ) ; 

pMETHOD( boolean, encode_mcu, ( j_compress_j)tr cinfo, JBLOCKROW *MCU_data) ) ; 

1lMETH0D{void, finish_^ass, ( j_compress_ptr cinfo)); 

/^f=^Marker writing */ 
struct jpeg„marker„writer { 

SMETH0D(void, write_f ile_header , { j_coKipress_^tr cinfo)); 

flpOETHODCvoid, write_f rame_header , ( j_compress_ptr cinfo)); 

' 3METH0D(void, write_scan„header , ( j_coinpress„ptr cinfo)); 

^JHETHOD{void, write_f i le_.tr ail er, ( j_compress_ptr cinfo)); 

l,jIMETH0D(void, write_tables_only , { j_compress_ptr cinfo)); 

k/* These routines are exported to allow insertion of extra markers */ 

^;/* Probably only COM and APPn markers should be written this way */ 

f'||METH0D{void, write_niarker_header , ( j_coitipress_ptr cinfo, int marker, 

^.j unsigned int datalen) ) ; 

^METHOD (void, write__marker_byte, ( j_compress_ptr cinfo, int val)); 



/* Declarations for decompression modules */ 

/* Master control module */ 
struct jpeg_decomp_master { 

JMETHOD(void, prepare„for_output_pass , ( j_deconipress_ptr cinfo) ) ; 

JMETHOD{void, f inish_output_pass, (j_decompress_ptr cinfo) ) ; 

/* State variables made visible to other modules */ 

boolean is„dummy_pass; /* True during 1st pass for 2-pass quant */ 

}; 

/* Input control module */ 
struct jpeg_input_contr oiler { 

JMETHOD ( int , consiHue_input , ( j_decompress_ptr cinfo ) ) ; 

JMETHOD(void, reset_input_controller, ( j„decompress_ptr cinfo)); 

JMETHOD(void, start_input_pass , ( j_decompress__ptr cinfo)); 

JMETHOD (void, f inish„input_pass , { j__decompress_ptr cinfo)); 

/* State variables made visible to other modules */ 

boolean has„muitiple„scans ; /* True if file has multiple scans */ 
boolean eoi_reached; /* True when EOI has been consumed */ 

}; 

/* Main buffer control (downsampled-data buffer) */ 
struct jpeg_d_main_controller { 

JMETHOD (void, start_pass, { j_decompress_ptr cinfo, J_BUF_MODE pass_mode) ) ; 

JMETHOD (void, process_data, ( j_decoinpress_ptr cinfo, 
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JSAMPARRAY output_buf , JDIMEMSION *out_row_ctr , 
JDIMENSION out_rows„avail) ) ; 

}? 

/* Coefficient buffer control */ 
struct jpeg_d_coef_controller { 

JMETHOD(void, start_input_pass , ( j_deconipress_ptr cinfo)); 

JMETHOD(int, constime_data , ( j„decompress_ptr cinfo)); 

JMETHOD{void, start„output_pass, (j_decompress_ptr cinfo) ) ; 

JMETHOD(int, decompress_data, { j_decompress_ptr cinfo, 
JSAMPIMAGE output_buf ) ) ; 

/* Pointer to array of coefficient virtual arrays^ or NULL if none */ 

jvirt„barray_^tr *coef_arrays ; 

}; 

/* Decompression postprocessing {color quantization buffer control) */ 
struct jpeg_d __pos t_c on t roller { 

JMETHOD(void, start_pass, ( j„decoinpress_ptr cinfo, J_BUF__MODE pass_niode) ) ; 
JMETHOD(void, post_process_data, ( j_decompress_ptr cinfo, 

JSAMPIMAGE input_buf, 

JDIMEKTS ION * in_r ow_gr oup_c tr , 

JDIMENSION in_row_groups_avail , 

JSAMPARRAY output„buf , 

JDIMENSION *out_row_ctr, 

JDIMENSION out_rows_avail) ) ; 

}? 

/* Marker reading & parsing */ 
struct jpeg__marker__reader { 

JMETHOD(void, reset_marker„reader, ( j_decoinpress_i)tr cinfo)); 

/* Read markers until SOS or EOI . 

™^ Returns same codes as are defined for jpeg_.consume_input: 
^ JPEG__SUSPENDED, JPEG_REACHED„SOS , or JPEG_REACHED_EOI . 

^IJf / 

[||<IETHOD ( int , read_markers , ( j_decompress_ptr cinfo)); 

IfL* Read a restart marker exported for use by entropy decoder only */ 

!^eg„marker_par ser_me thod reader es tar t_marker ; 

^fi' State of marker reader nominally internal, but applications 

supplying COM or APPn handlers might like to know the state, 

ftoolean saw_SOI; /* found SOI? */ 

^b'oolean saw_SOF; /* found SOF? */ 

^^int next_restart_,num; /* next restart number expected (0-7) */ 

Uansigned int discarded_bytes; /* # of bytes skipped looking for a marker */ 

/fl J Entropy decoding */ 
struct jpeg„entropy„decoder { 

J^|METHOD(void, start_pass, ( j__decompress_^tr cinfo)); 

LicTMETHOD (boolean, decode_mcu, ( j„decompress_^tr cinfo, 

f JBLOCKROW *MCU_data) ) ; 

/* This is here to share code between baseline and progressive decoders; */ 
/* other modules probably should not use it */ 

boolean insuf f icient_data; /* set TRUE after emitting warning */ 

}; 

/* Inverse DCT (also performs dequantization) */ 
typedef JMETHOD(void, inverse_DCT_method^tr , 

( j-_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef__block, 

JSAMPARRAY output_buf, JDIMENSION output_col} ) ; 

struct jpeg_inverse_dct { 

JMETHOD(void, startup ass. ( j_decompress_ptr cinfo)); 

/* It is useful to allow each component to have a separate IDCT method. */ 
inverse_DCT_method_ptr inverse_DCT [MAX_C0MP0NENTS] ; 

}; 

/* Upsampling (note that upsampler must also call color converter) */ 
struct jpeg_upsampler { 

JKETHOD(void, startjass, ( j_decompress_ptr cinfo)); 
JMETHOD(void, upsample, ( j_decompress_ptr cinfo, 

JSAMPIMAGE input__buf, 

JDIMENSION *in„row_group_ctr , 

JDIMENSION in_row_groups_avail , 

JSAMPARRAY output_buf , 

JDIMENSION *out„row_ctr, 

JDIMENSION out_rows_avail) ) ; 
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ni!inmn ' ni'n-n '"a nBini - . • 



boolean need_context_rows ; /* TRUE if need rows above & below */ 

}; 

/* Color space conversion */ 
struct jpeg_color„deconverter { 

JMETHOD(void, start_pass, ( j_decompress jtr cinfo) ) ; 
JMETHOD (void/ color_convert, ( j_decompress_ptr cinfO/ 

JSAMPIMAGE input_buf , JDIMENSION input_row, 
JSAMPARRAY output_buf, int nuiii_rows ) ) ; 

}; 

/* Color quantization or color precision reduction */ 
struct jpeg„color_quantizer { 

JMETHOD(void, startjpass, ( j_decoinpress_ptr cinfo, boolean is_pre_scan) ) ; 
JMETHOD(void, color_quantize, ( j„decompress_ptr cinfo, 

JSAMPARRAY input^buf, JSAMPARRAY output_buf, 
int nunurows ) ) ; 
JMETHOD(void, finish_pass, ( j_decoinpress__ptr cinfo)); 
JMETHOD (void, new__color_map , ( j_decompress_ptr cinfo)); 

}; 



/* Miscellaneous useful macros */ 
#undef MAX 

tdefine MAX(a;b) ((a) > (b) ? (a) : (b) ) 
#undef MIN 

#define MIN(a,b) ({a) < (b) ? (a) : (b) ) 



/t^=^e ass\ime that right shift corresponds to signed division by 2 with 
*^;i:ounding towards minus infinity. This is correct for typical "arithmetic 
*:^^hift" instructions that shift in copies of the sign bit. But some 
ire compilers implement » with an unsigned shift. For these machines you 
*;.must define RIGHT_SHIFT_IS_UNSIGNED. 

*^=^klGHT_SHIFT provides a proper signed right shift of an INT32 quantity. 
*^-^|lt is only applied with constant shift counts, SHIFT_TEMPS must be 
*f=-:included in the variables of any routine using RIGHT_SHIFT. 

% 

#iigdef RIGHT_SH1FT„IS_UNSIGNED 
#Sefine SHIFT__TEMPS INT32 shift^temp; 
#define RIGHT_SHIFT (x, shf t) \ 
((shift_temp = (x) ) < 0 ? \ 

k (shift_temp » (shft)) j ((-{{XNT32} 0)) « (32-(shft))) : \ 

^ (shift__temp » (shft))) 
#g^ise 

#d@fine SHIFT_TEMPS 

#d|fine RIGHT_SHIFT(x,shft) < (x) » (shft)) 
feiidif 



/* Short forms of external names for systems with brain-damaged linkers. */ 



#ifdef NEED_SH0RT_EXTERNALJWAMES 
#define jinit_compress_master jlCompress 
#define jinit_c_master_control jlCMaster 
#define j init_c_main_contr oiler jlCMainC 
#define jinit_c_prep_contr oiler jlCPrepC 
#define jinit_c_coef„controller jlCCoefC 
#define jinit_color_converter jlCColor 
#define jinit„downsampler jiDownsampler 
#define jinit__f orward_dct jIFDCT 
#define j init_huf f_,encoder jIHEncoder 
#define jinit jhuf f_encoder jlPHEncoder 
#define jinit__marker_writer jIMWriter 
#define jinit_master„decompr ess jIDMaster 
#define jinit_d_main_controller jIDMainC 
#define j init_d_coef„controller jIDCoefC 
tdefine jinit_d_post_controller jIDPostC 
#define j init_input_controller jllnCtlr 
fdefine jinit_marker_.r€ader jIMReader 
#define jinit_huf f_decoder jIHDecoder 
#define jinit_phuf f_decoder jlPHDecoder 
#define j init_inverse_dct jllDCT 
#define j init__up sampler jIUpsampler 
#define jinit_color„deconverter jXDColor 
#define jinit_lpass_guanti2er jllQuant 
#define j init_2pass_guantizer jI2Quant 
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fdefine jinit_merged_upsampler jiMUpsampler 
#define jinit„ineraory_mgr jlMemMgr 
#define jdiv_round_up jDivRound 
tdefine jround„up j Round 

#define jcopy_sainple_rows jCopySamples 
#define jcopy„block_row jCopyBlocks 
#define jzero_far jZeroFar 
#define jpeg_zig2ag__order jZIGTable 
#define jpeg_natural_order jZAGTable 
ttendif /* need„short„external_names */ 



/* Compression module initialization routines */ 

EXTERN(void) jinit_compress_master JPP ( ( j_compress_ptr cinfo)); 

EXTERW(void) jinit_c_inaster_control JPP ( ( j_compress__ptr cinfo, 

boolean trans code_only) ) ; 
EXTERN{void) jinit_c_main_controller JPP ( ( j_compress_ptr cinfo, 

boolean need_full_buf f er } ) ; 
EXTERN(void) jinit_c_prep_controller JPP ( ( j_compress_ptr cinfo, 

boolean need_full_buf f er) ) ; 
EXTERN{void) j init_c_coef_controller JPP( ( j_compress_ptr cinfo, 

boolean need„full_buf f er ) ) ; 
EXTERN (void) j init_color__converter JPP ( ( j„compress_ptr cinfo)); 
EXTERN(void) jinit_downsampler JPP { ( j_compress_jptr cinfo)); 
EXTERN(void) jinit_f orward_dct JPP { ( j„compress_jptr cinfo)); 
EXTERN(void) j init_huf f__encoder JPP ( (j_compress jtr cinfo)); 
EXTERN(void) jinit_j)huf f_encoder JPP ( { j_compress_j5tr cinfo)); 
EXTERN(void) jinit_marker_writer JPP { ( j„compress_ptr cinfo)); 
/* Decompression module initialization routines */ 
EXTERN (void) j init_master„decompress JPP { ( j„decompress jtr cinfo)); 
EXTERN(void) j init_d__main_controller JPP ( ( j_decompress_ptr cinfo, 

f";^ boolean need_full_buf fer) ) ; 

E}t5iRN(void) jinit_d_coef_controller JPP{ ( j„decompress_ptr cinfo, 

boolean need_full__buf f er) ) ; 
E^iERN(void) jinit__d_post_controller JPP ( { j_decompress_ptr cinfo, 

boolean need„f ull_buf f er ) ) ; 
E:^ERN(void} jinit_input_controller JPP { ( j_decompress_ptr cinfo)); 
EX(|ERN(void) jinit_marker_reader JPP { ( j_decompress_ptr cinfo)); 
EXTERN (void) jinit_huf f_decoder JPP ( { j_decompress_j)tr cinfo)); 
E^ERN{void) jinit_phuff ..decoder JPP ( { j_decompress_ptr cinfo)); 
E^ERN(void) j init_inverse_dct JPP { ( j_decorapress_ptr cinfo)); 
EJpERN{void) jinit_upsampler JPP ( ( j_decompress_ptr cinfo)); 
EXTERN(void) jinit__color_deconverter JPP( (j_decompress__ptr cinfo)); 
EXTERN (void) j init_lpass_quantizer JPP ( ( j_decoinpress_ptr cinfo)); 
E5^TERN(void) jinit„2pass„quanti2er JPP { ( j„decompress_ptr cinfo)); 
EkxERNfvoid) jinit__merged_ups ampler JPP ( ( j_decompress_ptr cinfo)); 
/^■i Memory manager initialization */ 

E3fTERW(Void) jinit_inemory_mgr JPP ( ( j„Gommon_ptr cinfo)); 

/^futility routines in jutils.c */ 

ESlTERNdong) jdiv_round_up JPP ((long a, long b) ) ; 

^f'ERN ( 1 ong ) j r ound__up JPP ( ( 1 ong a , 1 ong b ) ) ; 

fe!PERN{void) jcopy_sample„rows JPP ( ( JSAMPARRAY input_array, int source_row, 
JSAMPARRAY output_array , int dest_row, 
int num_rows, JDIMENSION num_cols) ) ; 
EXTERN(void) jcopy_block_row JPP ( ( JBLOCKROW input_row, JBLOCKROW output_row, 

JDIMENSION num_blocks) ) ; 
EXTERN{void} jzero_far JPP{(void * target, size^t bytestozero) ) ; 
/* Constant tables in jutils.c */ 

#if 0 /* This table is not actually needed in v6a */ 

extern const int jpeg„zigzag_order [ ] ; /* natural coef order to zigzag order */ 

#endif 

extern const int jpeg_natural__order [ ] ; /* zigzag coef order to natural order */ 



/* Suppress undefined- structure complaints if necessary. 



#ifdef INCOMPLETE_TyPES„BROKEN 

#ifndef AM_MEMORY_MANAGER /* only jmemmgr.c defines these */ 
struct jvirt_sarray„control { long duimiy; }; 
struct jvirt_barray_control { long dummy; } ; 
#endif 

#endif /* INCOMPLETE_TYPES_BROKEN */ 
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* jpeglib.h 

* Copyright (C) 1991-1998, Thomas G. Lane, 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file defines the application interface for the JPEG library. 

* Most applications using the library need only include this file, 

* and perhaps jerror.h if they want to know the exact error codes. 
V 

#ifndef JPEGLIB_H 
#define JPEGLIBJ 

/* 

* First we include the configuration files that record how this 

* installation of the JPEG library is set up. jconfig.h can be 

* generated automatically for many systems, jmorecfg.h contains 

* manual configuration options that most people need not worry about. 

*/ 

#ifndef JCONFIG__INCLUDED /* in case j include. h already did */ 
# include "jconfig.h" /* widely used configuration options */ 

#endif 

# include "jmorecfg.h" /* seldom changed options */ 

#ifndef STDIO_H 
# include <stdio.h> 
#define STDIO_H 
#6ndif 

/*^;S^ersion ID for the JPEG library. 
^^Mght be useful for tests like "#if JPEG_LIB„VERSION >= 60". 

tdBfine JPEG__LIB_VERSION 62 /* Version 6b */ 

/*J:'Various constants determining the sizes of things. 
^riAll of these are specified by the JPEG standard, so don't change them 
f!:;if you want to be compatible. 

*7 

#&efine DCTSIZE 8 /* The basic DCT block is 8x8 samples */ 

#&efine DCTSIZE2 64 /* DCTSIZE squared; # of elements in a block */ 

#|4fine NUM_QUANT_TBLS 4 /* Quantization tables are numbered 0.,3 */ 

#3#fine NUM_HUFF_TBLS 4 /* Huffman tables are numbered 0..3 */ 

#^efine NUM_ARITH_TBLS 16 /* Arith-coding tables are nxambered 0..15 */ 

#d|fine MAX_COMPS_IN_SCAN 4 /* JPEG limit on # of components in one scan */ 
=l^lfine MAX_SAMP_FACTOR 4 /* JPEG limit on sampling factors */ 
/f 7: Unfortunately , some bozo at Adobe saw no reason to be bound by the standard; 
the PostScript DCT filter can emit files with many more than 10 blocks/MCU. 

* If you happen to run across such a file, you can up D_MAX„BLOCKS_IN__MCU 

* to handle it. We even let you do this from the jconfig.h file. However, 

* we strongly discourage changing C_MAX_BLOCKS_IN_MCU; just because Adobe 

* sometimes emits noncompliant files doesn't mean you should too, 
*/ 

idefine C_MAX_BLOCKS_IN_MCU 10 /* compressor's limit on blocks per MCU */ 
#ifndef D_MAX_BLOCKS„IN_MCU 

#define D_MAX_BLOCKS_IN„MCU 10 /* decompressor's limit on blocks per MCU */ 
#endi£ 



/* Data structures for images {arrays of samples and of DCT coefficients) . 

* On 80x86 machines, the image arrays are too big for near pointers, 

* but the pointer arrays can fit in near memory. 

*/ 

typedef JSAMPLE *JSAMPROW; /* ptr to one image row of pixel samples. */ 
typedef JSAMPROW *JSAMPARRAY; /* ptr to some rows (a 2-D sample array) */ 
typedef JSAMPARRAY *JSAMPIMAGE; /* a 3-D sample array: top index is color */ 

typedef JCOEF JBLOCK [DCTSIZE2 ] ; /* one block of coefficients */ 
typedef JBLOCK *JBLOCKROW; /* pointer to one row of coefficient blocks */ 
typedef JBLOCKROW * JBLOCKARRAY ; /* a 2-D array of coefficient blocks */ 

typedef JBLOCKARRAY *JBLOCKIMAGE? /* a 3-D array of coefficient blocks */ 

typedef JCOEF *JCOEFPTR; /* useful in a couple of places */ 
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/* Types for JPEG compression parameters and working tables. */ 



/* DCT coefficient quantization tables. */ 
typedef struct { 

/* This array gives the coefficient quantizers in natural array order 

* (not the zigzag order in which they are stored in a JPEG DQT marker) . 

* CAUTION: IJG versions prior to v6a kept this array in zigzag order, 
*/ 

UINT16 quantval [DCTSIZE2 3 ; /* quantization step for each coefficient */ 
/* This field is used only during compression. It's initialized FALSE when 

* the table is created, and set TRUE when it's been output to the file, 

* You could suppress output of a table by setting this to TRUE. 

* (See jpeg_suppress_tables for an example.) 
*/ 

boolean sent_table; /* TRUE when table has been output */ 

} JQUANT_TBL; 



/* Huffman coding tables. */ 
typedef struct { 

/* These two fields directly represent the contents of a JPEG DHT marker */ 
UINT8 bits [17 3; /* bits[k3 = # of symbols with codes of */ 

/* length k bits; bits[0} is unused */ 
UINT8 huf fval [256] ; /* The symbols, in order of incr code length */ 

/* This field is used only during compression. It's initialized FALSE when 

* the table is created, and set TRUE when it's been output to the file. 

* You could suppress output of a table by setting this to TRUE. 
(See jpeg_suppress_tables for an example.) 

'^olean sent_table; /* TRUE when table has been output */ 

} plHUFF^TBL; 

/*^jBasic info about one component (color channel) . */ 

t^edef struct { 
%i* These values are fixed over the whole image. */ 
fg* For compression, they must be supplied by parameter setup; */ 
'7* for decompression, they are read from the SOF marker. */ 
^int component_id; /* identifier for this component (0..255) */ 

|.:Tint component_index; /* its index in SOF or cinf o->comp_inf o [] */ 

pint h_samp„f actor; /* horizontal sampling factor {1..4) */ 

^int v_samp_f actor; /* vertical sampling factor (1..4) */ 

Oint quant_tbl_no ; /* quantization table selector (0..3) */ 

These values may vary between scans. */ 
j-k For compression, they must be supplied by parameter setup; */ 
Lj* for decompression, they are read from the SOS marker. */ 
fi* The decompressor output side may not use these variables. */ 
^'xnt dc_tbl_no; /* DC entropy table selector {0-.3) */ 

int ac_tbl_no; /* AC entropy table selector (0..3} */ 

/* Remaining fields should be treated as private by applications. */ 

/* These values are computed during compression or decompression startup: */ 
/* Component's size in DCT blocks. 

* Any dummy blocks added to complete an MCU are not counted; therefore 

* these values do not depend on whether a scan is interleaved or not. 
*/ 

JDIMENSION width_in__blocks; 
JDIMENSION heigh t_in_blocks ; 

/* Size of a DCT block in samples. Always DCTSIZE for compression. 

* For decompression this is the size of the output from one DCT block, 

* reflecting any scaling we choose to apply during the IDCT step. 

* Values of 1,2,4,8 are likely to be supported. Note that different 

* components may receive different IDCT scalings. 
*/ 

int DCT_scaled_size; 

/* The downsampled dimensions are the component's actual, unpadded number 

* of samples at the main buffer (preprocessing/compression interface) , thus 

* downsampled_jwidth = ceil (image_width * Hi/Hmax) 

* and similarly for height. For decompression, IDCT scaling is included, so 

* downsarapled_width = ceil (image_width * Hi/Rmax * DCT__scaled_size/DCTSIZE) 

*/ 

JDIMENSION downsampled_width; /* actual width in samples */ 

JDIMENSION downsampled_height; /* actual height in samples */ 

/* This flag is used only for decompression. In cases where some of the 
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* components will be ignored {eg grayscale output from YCbCr image) , 

* we can skip most computations for the unused components. 
*/ 

boolean component_needed; /* do we need the value of this component? */ 

/* These values are computed before starting a scan of the component. */ 
/* The decompressor output side may not use these variables. */ 
int MCCJ_width; /* nnrtiber of blocks per MCU; horizontally */ 

int MC0_height; /* number of blocks per MCU, vertically */ 

int MCU_blocks; /* MCU_width * MCU_height */ 

int MCU„sample_width; /* MCU width in samples, MCU_width*DCT„scaled_size */ 

int last_col_width; /* # of non-dummy blocks across in last MCU */ 

int last_row__height; /* # of non-dummy blocks down in last MCU */ 

/* Saved quantization table for component; NULL if none yet saved. 

* See jdinput.c comments about the need for this information. 

* This field is currently used only for decompression. 
*/ 

JQUANT^TBL * quant_table; 

/* Private per-component storage for DOT or IDCT subsystem. */ 
void * dct_table; 
} jpeg_component_inf o; 



/* The script for encoding a multiple-scan file is an array of these: */ 
typedef struct { 

int coraps_in_scan; /* number of components encoded in this scan */ 

int component_indextMAX_COMPS_IN_SCAN] ; /* their SOF/comp„inf o [ 3 indexes */ 
int Ss, Se; /* progressive JPEG spectral selection parms */ 

;^'nt Ah, Al; /* progressive JPEG successive approx. parms */ 

} "|^eg_scan_inf o; 

/ijjrhe decompressor can save APPn and COM markers in a list of these: */ 

typredef struct jpeg_marker_struct * jpeg_saved__marker__ptr ; 

st^suct jpeg_marker_struct { 
"■^peg_saved_marker_ptr next; /* next in list, or NULL */ 
'^WlNT8 marker; /* marker code: JPEG„COM, or JPEG_APPO+n */ 

f||nsigned int original_length; /* # bytes of data in the file */ 
'unsigned int datajength; /* # bytes of data saved at data[] */ 
^JOCTET * data; /* the data contained in the marker */ 

L^* the marker length word is not counted in data_length or original^length */ 

/f^jKnown color spaces. */ 
t^edef eniom { 



O JCS^UNPOJOWN, 




/* error /unspecified */ 


r'h JCS_GRAYSCALE, 




/* monochrome */ 


JCS_RGB, 


/* 


red/green/blue */ 


JCS__YCbCr, 


/* 


y/Cb/Cr (also known as YUV) 


JCS_CMYK, 


/* 


C/M/Y/K */ 


JCS_yCCK 


/* 


Y/Cb/Cr/K */ 


} J_.COLOR_SPACE? 







/* DOT/ IDCT algorithm options. */ 



typedef enum { 

JDCT^ISLOW, /* slow but accurate integer algorithm */ 

JDCT_.IFAST, /* faster, less accurate integer method */ 

JDCT_FLOAT /* floating-point: accurate, fast on fast HW */ 

} J_DCT_METHOD; 

#ifndef JDCT_DEFAULT /* may be overridden in jconfig.h */ 

#define JDCT„DEFAULT JDCT_ISLOW 

#endif 

#ifndef JDCT_FASTEST /* may be overridden in jconfig.h */ 

#define JDCT_FASTEST JDCT_IFAST 

#endif 

/* Dithering options for decompression. */ 

typedef eniam { 

JDITHER_NONE, /* no dithering */ 

JDITHER__ORDERED, /* simple ordered dither */ 

JDITHER_FS /* Floyd- Steinberg error diffusion dither */ 

} J_DITHER_MODE; 
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/* Common fields between JPEG compression and decompression master structs. */ 

# define jpeg_coramon_f ields \ 

struct jpeg„error_nvgr * err? /* Error handler module */\ 
struct jpeg_memory_mgr * mem; /* Memory manager module */\ 

struct jpeg_progress_mgr * progress; /* Progress monitor, or NULL if none */\ 
void * client_data; /* Available for use by application */\ 

boolean is_decompressor; /* So common code can tell which is which */\ 
int global_state /* For checking call sequence validity */ 

/* Routines that are to be used by both halves of the library are declared 

* to receive a pointer to this structure. There are no actual instances of 

* jpeg_coraraon_struct, only of jpeg_compress_struct and jpeg_decompress_struct , 
*/ 

struct jpeg_common_struct { 

jpeg_common„f ields; /* Fields common to both master struct types */ 

/* Additional fields follow in an actual jpeg_compress_struct or 

* jpeg__decorapress_struct . All three structs must agree on these 

* initial fields! {This would be a lot cleaner in C++,) 
*/ 

}; 

typedef struct jpeg_common_struct * j_common _ptr; 
typedef struct jpeg_compress_struct * j„compress_ptr ; 
typedef struct jpeg_decompress_struct * j_decompress _ptr; 



/* Master record for a compression instance */ 

stp^ct jpeg„c empresses true t { 
"'^eg_common__f ields; /* Fields shared with jpeg_decorapress_struct */ 

fff Destination for compressed data */ 
Jatruct jpeg„destination_mgr * dest; 

^"v^* Description of source image these fields must be filled in by 

,r^i* outer application before starting compression. in_color__space must 
be correct before you can even call jpeg_set_def aults ( ) . 

&/ 

' JDIMENSION image„width; /* input image width */ 
^'JDIMENSION image_,height; /* input image height */ 

M*nt input_components ; /* # of color components in input image */ 

f^»i_COLOR_SPACE in_color_space; /* colorspace of input image */ 

iMouble input_gamma; /* image gamma of input image */ 

* Compression parameters these fields must be set before calling 

CI* jpeg_start_compress ( ) . We recommend calling jpeg_set_def aults ( ) to 
f * initialize everything to reasonable defaults, then changing anything 

* the application specifically wants to change. That way you won't get 

* burnt when new parameters are added. Also note that there are several 

* helper routines to simplify changing parameters. 
*/ 

/* ### I added this index variable as a counter to the compressed buffer.*/ 
int index; 

int data_precision; /* bits of precision in image data */ 

int num__components ; /* # of color components in JPEG image */ 

J„COLOR_SPACE jpeg_color_space; /* colorspace of JPEG image */ 

jpeg_component_inf o * comp_info; 

/* comp^infoti] describes component that appears i'th in SOF */ 
JQUANT„TBL * quant_tbl_ptrs [NUM„QUANT_TBLS} ; 

/* ptrs to coefficient quantization tables, or NULL if not defined */ 

JHUFF_TBL * dc_huf f_tbl_ptrs[NUM_HUFF_TBLS] ; 
JHUFF_TBL * ac_huff__tbl_ptrs[NUM_HUFF_TBLS] ; 
/* ptrs to Huffman coding tables, or NULL if not defined */ 

UINT8 arith_dc_L[NUM_ARITH_TBLS] ; /* L values for DC arith-coding tables */ 
UINT8 arith_dc_U[NUM_ARITH__TBLS] ; /* U values for DC arith-coding tables */ 
UINT8 arith_ac„KCNUM_ARITH__TBLS] ; /* Kx values for AC arith-coding tables */ 

int num_scans; /* # of entries in scan_info array */ 
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const jpeg_scan_info * scan_info; /* script for multi-scan file, or NULL */ 
/* The default value of scan_info is NULL, which causes a single-scan 

* sequential JPEG file to be emitted. To create a multi-scan file, 

* set num_scans and scan_info to point to an array of scan definitions. 

*/ 

boolean raw_data_in; /* TRUE=caller supplies downsampled data */ 

boolean arith„code; /* TRUE=arithmetic coding, FALSE=Huf fman */ 

boolean optimize_coding; /* TRUE=optimi2e entropy encoding parms */ 
boolean CCIR601_sampling; /* TRUE=first samples are cosited */ 
int smoothing_f actor; /* l.,100, or 0 for no input smoothing */ 

J_DCT_METHOD dct_method; /* DCT algorithm selector */ 

/* The restart interval can be specified in absolute MCUs by setting 

* restart_interval, or in MCU rows by setting restart„in__rows 

* (in which case the correct restart_interval will be figured 

* for each scan) , 
*/ 

unsigned int restart_interval ; /* MCUs per restart, or 0 for no restart */ 
int restart_in_rows; /* if > 0, MCU rows per restart interval */ 

/* Parameters controlling emission of special markers. */ 

boolean write_JFIF_header ; /* should a JFIF marker be written? */ 
UINT8 JFIF_major_version; /* What to write for the JFIF version number */ 
UINT8 JFIF„minor_ver s i on ; 

/* These three values are not used by the JPEG code, merely copied */ 
/* into the JFIF APPO marker. density_unit can be 0 for unknown, */ 
/* 1 for dots /inch, or 2 for dots /cm. Note that the pixel aspect */ 
/* ratio is defined by X_density/Y_density even when density_unit=0 . */ 

JJINT8 density_.unit; /* JFIF code for pixel size units */ 

iI|INT16 X_density; /* Horizontal pixel density */ 

.flINTie Y_density; /* Vertical pixel density */ 

3doolean write_Adobe_marker ; /* should an Adobe marker be written? */ 

yi^* State variable: index of next scanline to be written to 

r"* jpeg„write_scanlines {) . Application may use this to control its 

""'I* processing loop, e.g., "while (next_scanline < image_height) " , 

J^IdIMENSION next_scanline; /* 0 image„height-l */ 

1 /* Remaining fields are known throughout compressor, but generally 

* should not be touched by a surrounding application. 

iU* These fields are computed during compression startup 

\4 */ 

^^i;]boolean pr ogress ive_mode; /* TRUE if scan script uses progressive mode */ 
Wint max_h_samp_f actor; /* largest h__samp_f actor */ 
pUnt max_v_samp_f actor ; /* largest v^saitp_f actor */ 

JDXMENSION total_iMCU_rows; /* # of iMCU rows to be input to coef ctlr */ 
/* The coefficient controller receives data in units of MCU rows as defined 

* for fully interleaved scans (whether the JPEG file is interleaved or not) . 

* There are v__samp_f actor * DCTSIZE sample rows of each component in an 

* "iMCU" (interleaved MCU) row, 
*/ 

/* 

* These fields are valid during any one scan. 

* They describe the components and MCUs actually appearing in the scan. 
*/ 

int comps_in_scan; /* # of JPEG components in this scan */ 

jpeg_component__inf o * cur_comp_inf o [MAX__COMPS„IN_SCA]S[] ? 

/* *cur„comp„inf o [i] describes component that appears i'th in SOS */ 

JDIMENSION MCUs_per_row; /* # of MCUs across the image */ 
JDXMENSION MCU„rows_in„scan; /* # of MCU rows in the image */ 

int blocks_in_MCU; /* # of DCT blocks per MCU */ 

int MCU_membershipCC_MAX„BLOCKS_IN„MCU] ; 

/* MCU„membership [ i ] is index in cur_comp_inf o of component owning */ 
/* i'th block in an MCU */ 

int Ss, Se, Ah, Al; /* progressive JPEG parameters for scan */ 

/* 

* Links to compression subobjects (methods and private variables of modules) 
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*/ 

struct jpeg_comp_master * master; 
struct jpeg_c_inain_controller * main; 
struct jpeg_c^rep„controller * prep; 
struct jpeg_c„coef_c on tr oiler * coef; 
struct jpeg_marker_writer * marker; 
struct jpeg_color_convert€r * cconvert; 
struct jpeg_<iowns ampler * downsample; 
struct jpeg_f orward_dct * fdct; 
Struct jpeg_entropy_encoder * entropy; 

jpeg_scan_inf o * script_space; /* workspace for jpeg_siniple_progression */ 
int script„space_size; 



/* Master record for a decompression instance */ 

struct jpeg_decompress„struct { 

jp€g_coramon_f ields; /* Fields shared with jpeg_compress„struct */ 

/* Source of compressed data */ 
struct jpeg_source_mgr * src; 

/* Basic description of image filled in by jpeg_r€ad„header ( ) . */ 

/* Application may inspect these values to decide how to process image. */ 

JDIMENSION image_width; /* nominal image width (from SOF marker) */ 
JDIMENSION image_height; /* nominal image height */ 
int num_components ; /* # of color components in JPEG image */ 

J_COLOR_SPACE jpeg_color_space; /* colorspace of JPEG image */ 

^ Decompression processing parameters these fields must be set before 

^* calling jpeg„start_decompress ( ) . Note that jpeg„read__header { ) initializes 
V> them to default values, 

'S?_COLOR_SPACE out_color 

.^unsigned int scale_jium, 

^double output_gamma ; 

'boolean buf fered_image; 
■^boolean raw_data_out; 

L^J_DCT_METHOD dct_method; /* IDCT algorithm selector */ 
^-^boolean do_fancy_ups amp ling; /* TRUE=apply fancy upsampling */ 
flboolean do_block_smoo thing; /* TRUE=apply Interblock smoothing */ 

,'lboolean quantize^colors; /* TRUE=colormapped output wanted */ 

Cy* the following are ignored if not quanti2e_colors : */ 

p j_DITHER_MODE dither_mode; /* type of color dithering to use */ 

'""'•"boolean two_^ass_quantize; /* TRUE=use two-pass color quantization */ 

int desired_number__of_colors; /* max # colors to use in created colormap */ 

/* these are significant only in buffered- image mode: */ 

boolean enable_lpass_quant; /* enable future use of 1-pass quantizer */ 
boolean enable_external„quant; / * enable future use of external colormap */ 
boolean enable__2pass_quant; /* enable future use of 2-pass quantizer */ 

/* Description of actual output image that will be returned to application. 

* These fields are computed by jpeg_start_decompress < ) . 

* You can also use jpeg_calc_output_dimensions ( ) to determine these values 

* in advance of calling jpeg_start_decompress ( ) . 
*/ 

JDIMENSION output_width; /* scaled image width */ 
JDIMENSION output_height; /* scaled image height */ 

int out_color_components; /* # of color components in out_color_space */ 

int output^components ; /* # of color components returned */ 

/* output_components is 1 {a colormap index) when quantizing colors; 

* otherwise it equals out„color_components . 
*/ 

int rec„outbuf_height; /* min recommended height of scanline buffer */ 
/* If the buffer passed to jpeg_read_scanlines { ) is less than this many rows 

* high, space and time will be wasted due to unnecessary data copying, 

* Usually rec_outbuf_height will be 1 or 2 , at most 4. 

*/ 

/* When quantizing colors, the output colormap is described by these fields. 

* The application can supply a colormap by setting colormap non-NULL before 



„space; /* colorspace for output */ 

scale_denom; /* fraction by which to scale image */ 

/* image gamma wanted in output */ 

/* TRUE=multiple output passes */ 
/* TRUE=downsampled data wanted */ 
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* calling jpeg_start„decompress ; otherwise a colormap is created during 

* jpeg„start„decompress or jpeg_start_output . 

* The map has out_color_components rows and actual_n\iinber__of_colors columns . 
*/ 

int actual„nuinber_of„colors; /* number of entries in use */ 
JSAMPARRAY colormap; /* The color map as a 2-D pixel array */ 

/* State variables: these variables indicate the progress of decompression. 

* The application may examine these but must not modify them. 
*/ 

/* Row index of next scanline to be read from jpeg_read_scanlines ( ) . 

* Application may use this to control its processing loop, e.g., 

* "while (output_scanline < output_height) " . 
*/ 

JDIMENSION output„scanline; /* 0 . . output_height-l */ 

/* Current input scan number and number of iMCU rows completed in scan. 

* These indicate the progress of the decompressor input side. 
*/ 

int input„scan_n\ainber; /* Number of SOS markers seen so far */ 
JDIMENSION input„iMCU_row; /* Number of iMCU rows completed */ 

/* The "output scan number" is the notional scan being displayed by the 

* output side. The decompressor will not allow output scan/row number 

* to get ahead of input scan/row, but it can fall arbitrarily far behind. 
*/ 

int output_scan_jiumber; /* Nominal scan number being displayed */ 
JDIMENSION output_iMCU_row; /* Number of iMCU rows read */ 

/* Current progression status. coef_bits [c] [i] indicates the precision 

with which component c's DOT coefficient i (in zigzag order) is loiown. 
.".'I* It is -1 when no data has yet been received, otherwise it is the point 

transform (shift) value for the most recent scan of the coefficient 
0l* (thus, 0 at completion of the progression) . 
,,.v,* This pointer is NULL when reading a non-progressive file. 

""fot (*coef_bits) [DCTSIZE2] ; /* -1 or current Al value for each coef */ 

li* Internal JPEG parameters the application usually need not look at 

^S* these fields. Note that the decompressor output side may not use 
Hii* any parameters that can change between scans. 

Quantization and Huffman tables are carried forward across input 
datastreams when processing abbreviated JPEG datastreams, 

5f */ 

S^JQUANT_TBL * quant_tbl_ptrs [NUM_QUANT_TBLS] ; 

ptrs to coefficient quantization tables, or NULL if not defined */ 

f^JHUFF_TBL * dc_huff„tbl_ptrs[NUM_HUFF_TBLS] ; 
■"JHUFF^TBL * ac_huf f_tbl_ptrs[NUM_HUFF_TBLS] ; 
/* ptrs to Huffman coding tables, or NULL if not defined */ 

/* These parameters are never carried across datastreams, since they 

* are given in SOF/SOS markers or defined to be reset by SOI. 

*/ 

int data_precision; /* bits of precision in image data */ 

jpeg_cornponent_inf o * comp_info; 

/* comp__inf o[i3 describes component that appears i'th in SOF */ 

boolean progressive__mode; /* TRUE if SOFn specifies progressive mode */ 
boolean arith„code; /* TRUE=arithmetic coding, FALSE=Huf fman */ 

UINT8 arith_dc_L[NUM_ARITH_TBLS] ; /* L values for DC arith-coding tables */ 
UINT8 arith„dc_U[NUM_ARITH_TBLS3 ; /* U values for DC arith-coding tables */ 
UINT8 arith_ac„K[NUM_ARITH__TBLS] ; /* Kx values for AC arith-coding tables */ 

unsigned int restart_interval; /* MCUs per restart interval, or 0 for no restart */ 

/* These fields record data obtained from optional markers recognized by 

* the JPEG library. 

*/ 

boolean saw_JFIF_marker; /* TRUE iff a JFIF APPO marker was found */ 
/* Data copied from JFIF marker; only valid if saw_JFIF__marker is TRUE: */ 
UINT8 JFIF_maj ©reversion; /* JFIF version nximber */ 
UINT8 JFIF_minor„version; 
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UINT8 density_unit; /* JFIF code for pixel size units */ 

UINT16 X_density; /* Horizontal pixel density */ 

UINT16 Y^density; /* Vertical pixel density */ 

boolean saw__Adobe_marker ; /* TRUE iff an Adobe APP14 marker was found */ 
UINT8 Adobe_transf orm; /* Color transform code from Adobe marker */ 

boolean CCIR6 desampling; /* TRUE=first samples are cosited */ 

/* Aside from the specific data retained from APPn markers known to the 

* library, the uninterpreted contents of any or all APPn and COM markers 

* can be saved in a list for examination by the application, 
*/ 

jpeg_saved_marker__ptr marker_list; /* Head of list of saved markers */ 

/* Remaining fields are known throughout decompressor, but generally 

* should not be touched by a surrounding application. 
*/ 

/* 

* These fields are computed during decompression startup 
*/ 

int mcLX_h_samp_f actor; /* largest h_samp_f actor */ 
int max_v_samp__f actor; /* largest v„samp_f actor */ 

int min_DCT_scaled__size; /* smallest DCT_scaled_size of any component */ 

JDIMENSION total_iMCU_rows; /* # of iMCU rows in image */ 

/* The coefficient controller's input and output progress is measured in 

* units of "iMCU" (interleaved MCU) rows. These are the same as MCU rows 

* in fully interleaved JPEG scans, but are used whether the scan is 

* interleaved or not. We define an iMCU row as v_samp_f actor DCT block 
t'T rows of each component. Therefore, the IDCT output contains 

v_samp_f actor *DCT_scaled_size sample rows of a component per iMCU row. 

.'OSAMPLE * sample_range_limit; /* table for fast range -limiting */ 
.ji^i* These fields are valid during any one scan. 

'^:* They describe the components and MCUs actually appearing in the scan. 
■iJ* Note that the decompressor output side must not use these fields. 

"Int comps_in__scan; /* # of JPEG components in this scan */ 

' jpeg_component_info * cur_comp„inf o[MAX„COMPS„IN„SCAN] ; 

L'^.* *cur_comp_inf o[i] describes component that appears i'th in SOS */ 

^^DIMENSION MCUs_per_row; /* # of MCUs across the image */ 
fl#DIMENSION MCU_rows_in_scan; /* # of MCU rows in the image */ 

3.nt blocks_in_MCU; /* # of DCT blocks per MCU */ 

Lint MCU„membership[D„MAX_BLOCKS_IN„MCU] ; 

fV* MCU__membership [i] is index in cur_comp_inf o of component owning */ 
^7* i'th block in an MCU */ 

int Ss, Se, Ah, Al; /* progressive JPEG parameters for scan */ 

/* This field is shared between entropy decoder and marker parser. 

* It is either zero or the code of a JPEG marker that has been 

* read from the data source, but has not yet been processed. 

*/ 

int unread_marker; 

/* 

* Links to decompression subobjects (methods, private variables of modules) 
*/ 

struct jpeg_decomp_master * master; 
struct jpeg„d_main_contr oiler * main; 
struct jpeg„d„coef_controller * coef; 
struct jpeg_d_post_contr oiler * post; 
struct jpeg_input_c on tr oiler * inputctl; 
struct jpeg_marker_reader * marker; 
struct jpeg_entropy_decoder * entropy; 
struct jpeg__inverse_dct * idct; 
struct jpeg„ups ampler * upsample; 
struct jpeg_color_.deconverter * cconvert; 
struct jpeg_color_quantizer * cquantize; 



/* "Object" declarations for JPEG modules that may be supplied or called 



8 



* directly by the surrounding application. 

* As with all objects in the JPEG library, these structs only define the 

* publicly visible methods and state variables of a module. Additional 

* private fields may exist after the public ones. 



/* Error handler object */ 

struct jpeg_error_mgr { 

/* Error exit handler: does not return to caller */ 
JMETHOD(void, error_exit, ( j„coininon_ptr cinf o) ) ; 
/* Conditionally emit a trace or warning message */ 
JMETHOD(void, emit_message, ( j_common_j)tr cinfo, int msg_level)}; 
/* Routine that actually outputs a trace or error message */ 
JMETHOD(void, output_message, (j„coramon^tr cinfo)); 

/* Format a message string for the most recent JPEG error or message */ 
JMETHOD(void, f ormat__message, ( j„common_ptr cinfo, char * buffer)); 
#define JMSG_LENGTH_MAX 200 /* recommended size of f ormat„message buffer */ 
/* Reset error state variables at start of a new image */ 
JMETHODCvoid, reset_error__mgr , ( j_common_ptr cinfo)); 

/* The message ID code and any parameters are saved here. 

* A message can have one string parameter or up to 8 int parameters. 
*/ 

int msg_code; 
#define JMSG_STR„PARM_MAX 80 
union { 
int i[8] ; 

char s [ JMSG_STR_PARM_MAX] ; 
} msg_^arm; 

Standard state variables for error facility */ 

rppt, trace_level; /* max msg_level that will be displayed */ 

H^'* For recoverable corrupt-data errors, we emit a warning message, 
^1* but keep going tinless emit_message chooses to abort. emit_jnessage 

should count warnings in num_warnings . The surrounding application 
^5!'* can check for bad data by seeing if num__warnings is nonzero at the 
fl* end of processing. 

riii*/ 

'"long num^warnings ; /* number of corrupt-data warnings */ 

s 

1:^^* These fields point to the table (s) of error message strings. 

* An application can change the table pointer to switch to a different 
^* message list (typically, to change the language in which errors are 
n|* reported) . Some applications may wish to add additional error codes 
L';;* that will be handled by the JPEG library error mechanism; the second 
_5 * table pointer is used for this purpose. 

Cl * 

f^* First table includes all errors generated by JPEG library itself. 
^"-^ * Error code 0 is reserved for a "no such error string" message. 
*/ 

const char * const * jpeg_message„table; /* Library errors */ 

int last_jpeg_message; /* Table contains strings 0 , . last„jpeg„message */ 

/* Second table can be added by application (see cjpeg/djpeg for example) . 

* It contains strings numbered f irst_addon_message . . last_addon_message . 
*/ 

const char * const * addon_message_table; /* Non-library errors */ 
int first„addon_message; /* code for first string in addon table */ 
int last„addon_jnessage; /* code for last string in addon table */ 



/* Progress monitor object */ 

struct jpeg_progress_mgr { 

JMETHOD(void, progress_monitor , ( j__common_ptr cinfo)); 

long pass„counter; /* work units completed in this pass */ 

long pass__limit; /* total number of work units in this pass */ 

int completed_passes; /* passes completed so far */ 

int totaljasses; /* total number of passes expected */ 

}; 

/* Data destination object for compression */ 

/* ### Imtiaz: The linked list structure to store the buffer data. */ 
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typedef struct linked_list 

{ 

JOCTET *buffer; 
struct linked_list *next; 
} buffer^list; 



struct jpeg__destination_mgr { 

JOCTET * next_output„byte; /* => next byte to write in buffer */ 
siz€_t free_in_buffer; /* # of byte spaces remaining in buffer */ 

JOCTET *outbuffer; 

buffer^list *head_ptr; 
buffer_list *current_ptr ; 



JMETHOD (void, init_.destination, { j_coinpress_ptr cinf o) ) ; 
JMETHOD (boolean, einpty_output_buf f er , ( j_compress_ptr cinfo) ) ; 
JMETHOD{void, teritudestination, ( j_compress_jptr cinfo)); 

}s 



/* Data source object for decompression */ 

struct jpeg_source_mgr { 

const JOCTET * next__input_byte ; /* => next byte to read from buffer */ 
size_t bytes_in__buf f er; /* # of bytes remaining in buffer */ 

fJSAMPLE *inbuffer; /* ### Imtiaz: I added this */ 

^cfiBAMPLE *head_inbuffer; /* " */ 

£f?it buf f er_length; 
^^t^^ETHOD (void, init_source, ( j_decompress^tr cinfo)); 
'=«9ffiTH0D (boolean, f ill_input„buf f er , ( j_decompress_ptr cinfo)); 
^:!(iMETHOD(void, skip„input_data/ ( j_.de compress_ptr cinfo, long num_bytes) ) ; 
■^gHETHOD (boolean, resync_to_restart , { j_decompress_ptr cinfo, int desired)); 
^i1!METH0D(void, term_source, ( j_decompress_ptr cinfo)); 



/S,i,Memory manager object. 

Allocates "small" objects (a few K total), "large" objects (tens of K) , 
^;.^and "really big" objects (virtual arrays with backing store if needed) , 
Iff The memory manager does not allow individual objects to be freed; rather, 
>'";each created object is assigned to a pool, and whole pools can be freed 
*"iat once. This is faster and more convenient than remembering exactly what 
f j to free, especially where malloc { ) /free { ) are not too speedy. 
g*=;:NB: alloc routines never return NULL. They exit to error_6xit if not 

successful . 

*/ 

#define JPOOL_PERMANENT 0 /* lasts until master record is destroyed */ 
#define JPOOL„IMAGE 1 /* lasts until done with image/ da tastream */ 
tdefine JPOOL_NUMPOOLS 2 

typedef struct jvirt_sarray_control * jvirt_sarray_ptr ; 
typedef struct jvirt_barray_control * jvirt_barray_ptr ; 



struct jpeg_memory_mgr { 
/* Method pointers */ 

JMETHODivoid *, alloc_small, (j_common^tr cinfo, int pool_id, 

si2e_t sizeof object) ) ; 
JMETHOD(void *, alloc_large, ( j_common_ptr cinfo, int pool_id, 

size_t sizeof object) ) ; 
JHETHOD( JSAMPARRAY, alloc^sarray , (j„commonjtr cinfo, int pool_id, 
JDIMENSION samplesperrow, 
JDIMENSION numrows) ) ; 
JMETHOD(JBriOCKARRAY, alloc__barray , ( j_common__ptr cinfo, int pool_id, 
JDIMENSION blocksperrow, 
JDIMENSION numrows) ) ; 
JMETHOD ( jvirt_sarray__ptr , request_virt_s array, (j_common _ptr cinfo, 

int pool_id, 
boolean pre_zero, 
JDIMENSION samplesperrow, 
JDIMENSION numrows. 
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JDIMEKSION maxaccess} } ; 
JMETHOD( jvirt_barray_^tr , request_virt_barray, ( j_common_^tr cinfo^ 

int pool__id, 
boolean pre_zero, 
JDIMENSION blocksperrow, 
JDIMENSION numrows, 
JDIMENSION maxaccess) ) ; 
iJMETHOD(void, realize_virt_arrays, ( j_cornmon_j)tr cinfo) ) ; 
tIMETHOD { JSAMPARRAY , access_virt_sarray , ( j_commonjtr cinfo, 

jvirt„sarray_ptr ptr, 
JDIMENSION start_row, 
JDIMENSION niim_rows, 
boolean writable) ) ; 
JMETH0D(JBLOCKARRAY, access„virt_barray , ( j_cornmon_ptr cinfo, 

jvirt_barray_ptr ptr, 
JDIMENSION start_row, 
JDIMENSION num_rows, 
boolean writable) ) ; 
JMETHOD(void, free_pool, ( j_coKUiion_ptr cinfo, int pool_id) ) ; 
JMETHOD (void^ self_destruct , ( j_common_ptr cinfo)); 

/* Limit on memory allocation for this JPEG object. (Note that this is 

* merely advisory, not a guaranteed maximum; it only affects the space 

* used for virtual-array buffers.) May be changed by outer application 

* after creating the JPEG object. 
*/ 

1 ong max_memory„to_us e ; 

/* Maximum allocation request accepted by alloc_large. */ 
long max„alloc„chunk; 

}; 



/*ijRoutine signature for appli cat ion- supplied marker processing methods. 
f^'^eed not pass marker code since it is stored in cinf o->unread_marker , 

t^edef JMETHOD (boolean, jpeg_marker_parser„method, ( j_decompress_ptr cinfo)); 

/^f Declarations for routines called by application. 
fi^jThe JPP macro hides prototype parameters from compilers that can't cope. 
^liiNote JPP requires double parentheses. 

#i£def HAVE_.PROTOTyPES 

#§efine JPP(arglist) arglist 

#^ise 

#3ffine JPP (arglist) () 
fe^idif 

/3l Short forms of external names for systems with brain-damaged linkers . 
^=^'We shorten external names to be unique in the first six letters, which 

* is good enough for all known systems. 

* (If your compiler itself needs names to be unique in less than 15 

* characters, you are out of luck. Get a better compiler.) 
*/ 



#ifdef NEED_SHORT_EXTERNAL_NAMES 
#define jpeg_std_error jStdError 
#define jpeg_CreateCompress jCreaCompress 
tdefine jpeg^CreateDecompress jCreaDecompress 
#define jpeg„destroy_compress jDestCompress 
#define jpeg_destroy_decompress jDestDecompress 
#define jpeg_stdi oddest jStdDest 
#define jpeg_buf f er_dest jBufDest 
#define stitch_list S__List 
#define jpeg_stdio_src jStdSrc 
tdefine jpeg_set_def aults jSetDefaults 
#define jpeg_set_co lor space jSetColorspace 
#define jpeg_def ault_colorspace jDef Colorspace 
#define jpeg_set_quality jSetQuality 
#define jpeg_set_linear_quality jSetLQuality 
#def ine jpeg_add_quant_table 
#define jpeg_quality_scaling 



j AddQuantTabl e 
jQualityScaling 



tdefine jpeg_siraple_progression jSimProgress 



tdefine jpeg_suppress_tables 
tdefine jpeg_alloc_guant_table 
tdefine jpeg_alloc_huf f„table 



j SuppressTabl es 
jAlcQTable 
jAlcHTable 



tdefine jpeg_start„compress jstrtCompress 
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# define 
# define 
# define 
#def ine 
#def ine 
# define 
#def ine 
# define 
#def ine 
# define 
# define 
# define 
#def ine 
# define 
#def ine 
# define 
# define 
#def ine 
#def ine 
#def ine 
# define 
fdefine 
#def ine 
#def ine 
# define 
#def ine 
#define 
# define 
# define 
#endif / 



peg_write_scanlines jWrtScanlines 
peg„f inish_compress jFinCoitpress 
peg_write_raw_data jWrtRawData 
peg_write_marker jWrtMarker 
peg_write_j:n_header jWrtMHeader 
peg_write_,m_.byte jWrtMByte 
peg_write„tables jWrt Tables 
peg_read_header jReadHeader 
peg— start„decompress jStrtDecompress 
peg_read_scanl ines j ReadScanl ines 
peg_f inish__decompress j FinDecompress 
peg_r ead_raw_da ta j ReadRawDa t a 
peg__has_jnultiple_scans jHasMultScn 
peg-_start_output jStrtOutput 
peg_f inish_output jFinOutput 
peg_input_complete j Incomplete 
P eg_new_c o 1 ormap j NewCMap 
peg-.consume_input j Consumelnput 
peg_calc__output_dimensions j CalcDimensions 
peg_save_markers j SaveMarkers 
peg_set_itiarker_processor j SetMarker 
peg-read_coef ficients jReadCoefs 
peg_write_coef f icients jWrtCoefs 
peg„copy_critical _^arameters jCopyCrit 
peg_abort_co]Tipress jAbrtCompress 
peg_abort_decoinpress jAbrtDecompress 
peg_abort j Abort 

peg_destroy j Destroy 

peg_resync_to_res tar t j ResyncRes tart 
NEED_SHORT_EXTERNAL_NAMES */ 



/*'!S>efault error -management setup */ 
eM3SRN( struct jpeg_error_mgr *) jpeg_std_error 
01 JPP( (struct jpeg_error_jngr * err)); 

/*^'=^;initialization of JPEG compression objects. 
*^.|jpeg_create_compress { ) and jpeg_create_decompress ( ) are the exported 
ff^names that applications should call. These expand to calls on 

jpeg__CreateCoinpress and jpeg_CreateDecompress with additional information 
%-Jpassed for version mismatch checking. 

?^:f;NB: you must set up the error-manager BEFORE calling jpeg_create_xxx. 

^7 

#define jpeg_create_compress (cinf o) \ 
Ir..^ jpeg_CreateCompress ( (cinfo) r JPEG__LIB_VERSION, \ 

(size_t) sizeof (struct jpeg_compress„struct) ) 
tg^fine jpeg_create_decompress (cinfo) \ 
nJ jpeg„CreateDecompress ( (cinfo) . JPEGLLIBJ^RSION, \ 

(size_t) sizeof (struct jpeg_decompress_struct) ) 
EXTERN (void) jpeg__CreateC empress JPP ( ( j_compress_ptr cinfo, 
CI int version, size_t structsize) ) ; 

E^ERN(void) jpeg_CreateDecompress JPP{ ( j„decoinpress_ptr cinfo, 

int version, size_t structsize) ) ; 
/* Destruction of JPEG compression objects */ 

EXTERlSI{void) jpeg__destroy_compress JPP ( ( j__corapress_ptr cinfo)); 
EXTERISI(void) jpeg_destroy_decompress JPP ( { j_decorapress__ptr cinfo)); 

/* Standard data source and destination managers: stdio streams. */ 

/* Caller is responsible for opening the file before and closing after, */ 



EXTERW(void) jpeg_stdio_dest JPP ( ( j_compress_ptr cinfo, FILE * outf ile) ) ; 

EXTERN(void) jpeg_buf f er_dest JPP ( ( j_compress_jptr cinfo)); 
EXTERN(void) stitch_list JPP ( ( j_compress_ptr cinfo)); 



EXTERN(void) jpeg„stdio_src JPP ( { j_decompress _ptr cinfo, FILE * inf ile) ) ; 
EXTERN (void) jpeg„buf f er_src JPP { ( j_„decompress_jptr cinfo)); 

/* Default parameter setup for compression */ 

EXTERN (void) jpeg„set„def aults JPP ( ( j_compress_x>tr cinfo)); 

/* Compression parameter setup aids */ 

EXTERN{void) jpeg„set„col or space JPP ( ( j_compress_ptr cinfo, 

J_COLOR_SPACE colorspace) ) ; 
EXTERN{void) jpeg_def ault_colorspace JPP ( ( j„compress_ptr cinfo)); 
EXTERN{void) jpeg_set„guality JPP{ ( j_coinpress_ptr cinfo, int quality, 

boolean f orce_baseline) ) ; 
EXTERN(void) jpeg„set_linear_quality JPP ( ( j_compress_ptr cinfo, 

int scale_f actor , 
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boolean f orce_baseline) ) ; 
EXTERN(void) jpeg_add__guant„table JPP ( { j_coinpress_ptr cinfo, int which_tbl, 

const unsigned int *basic_table, 

int scale„f actor, 

boolean f orce_baseline) ) ; 
EXTERN(int) jpeg_quality_scaling JPP((int quality)); 
EXTERN(void) jpeg_simple_progression JPP C ( j„compress_ptr cinfo)); 
EXTERN (void) jpeg_suppr€ss_tables JPP { ( j_cojnpress_:ptr cinfo, 

boolean suppress) ) ; 
EXTERN (JQUANT„TBL *) jpeg„alloc_quant_table JPP ( ( j_coinmon_ptr cinfo)); 
EXTERN (JHUFF^TBL *) jpeg_alloc_huf f_table JPP ( ( j_common_ptr cinfo)); 

/* Main entry points for compression */ 

EXTERN(void) jpeg„start_compress JPP ( ( j_coiupress_ptr cinfo, 

boolean write_all_tables) ) ; 
EXTERN (JDIMENS ION) jpeg_„write_scanlines JPP ( ( j_compress_ptr cinfo, 

JSAMPARRAY scanlines, 

JDIMENSION ntim_lines) ) ; 
EXTERN(void) jpeg_f inish_compress JPP ( ( j__coinpress^tr cinfo)); 

/* Replaces jpeg_write_scanlines when writing raw downsampled data. */ 
EXTERN (JDIMENS I ON) jpeg„write_raw__data JPP ( ( j_compress_ptr cinfo, 

JSAMPIMAGE data, 

JDIMENSION num„lines) ) ; 

/* Write a special marker. See libjpeg.doc concerning safe usage. */ 
EXTERN (void) jpeg_write_marker 

JPP { { j_compress_ptr cinfo, int marker, 

const JOCTET * dataptr, unsigned int datalen) ) ; 
/* Same, but piecemeal. */ 
EXTERN ( vo id ) j peg„wr i t e_m_heade r 

JPP ( ( j_compress_ptr cinfo, int marker, unsigned int datalen)); 
EjttRN ( vo i d ) j p eg„wr i t e„m_by te 

jpp( ( j_compress_ptr cinfo, int val) ) ; 

/*ljAlternate compression function: just write an abbreviated table file */ 
E3ifeRN(void) jpeg_write_tables JPP ( ( j_compress_ptr cinfo)); 

/fr^xDecompression startup: read start of JPEG datastream to see what's there * 
E^ERN(int) jpeg_read__header JPP { ( j_decompress_ptr cinfo, 

4J boolean require_image) ) ; 

/f^nReturn value is one of: */ 

fSlfine JPEG„SUSPENDED 0 /* Suspended due to lack of input data */ 

ttdefine JPEG_HEADER_OK 1 /* Found valid image datastream */ 

#§^fine JPEG_HEADER„TABLES_ONLy 2 /* Found valid table-specs-only datastream 
/.L-if you pass require_image = TRUE (normal case) , you need not check for 
h^SL TABLES_ONLY return code; an abbreviated file will cause an error exit, 
ff J JPEG_SUSPENDED is only possible if you use a data source module that can 
•>^give a suspension return (the stdio source module doesn't). 

3 

/S"-:;Main entry points for decompression */ 

E^ERN (boolean) jpeg_start_decompress JPP { ( j_decompress_ptr cinfo)); 
EXTERN (JDIMENSION) jpeg„read_scanlines JPP ( ( j_decompress_ptr cinfo, 

JSAMPARRAY scanlines, 

JDIMENSION max_lines) ) ; 
EXTERN (boolean) jpeg_f inish_decompress JPP( ( j_decompress_ptr cinfo)); 

/* Replaces jpeg„read_scanlines when reading raw downsampled data. */ 
EXTERN (JDIMENSION) jpeg_read_raw_data JPP ( ( j_decompress_ptr cinfo, 

JSAMPIMAGE data, 

JDIMENSION max_lines) ) ; 

/* Additional entry points for buffered- image mode. */ 

EXTERN (boolean) jpeg_„has_multiple_scans JPP ( ( j_decompress_ptr cinfo)); 

EXTERN (boolean) jpeg„start_output JPP ( ( j__decompress jtr cinfo, 

int scan_number) ) ; 
EXTERN (boolean) jpeg_f inish^output JPP ( ( j_decompress_ptr cinfo)); 
EXTERN (boolean) jpeg_input_complete JPP ( ( j_decompress_ptr cinfo)); 
EXTERN (void) jpeg_new„colormap JPP{ ( j_decompress^tr cinfo)); 
EXTERN (int) jpeg„consume_input JPP { ( j„decompress_ptr cinfo)); 
/* Return value is one of: */ 

/* #define JPEG__SUSPENDED 0 Suspended due to lack of input data */ 

#define JPEG„REACHED_SOS 1 /* Reached start of new scan */ 

#define JPEG_REACHED_EOI 2 /* Reached end of image */ 

#define JPEG„ROW„COMPLETED 3 /* Completed one iMCU row */ 

#define JPEG_SCAN_COMPLETED 4 /* Completed last iMCU row of a scan */ 

/* Precalculate output dimensions for current decompression parameters. */ 
EXTERN(void) jpeg_calc_output„dimensions JPP ( ( j_decompress_ptr cinfo)); 
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/* Control saving of COM and APPn markers into inarker_list . */ 
EXTERN ( vo i d ) j p eg_s a ve_mar ker s 

{ j_decompress_ptr cinfo, int marker_code, 
unsigned int length_limit) ) ; 

/* Install a special processing method for COM or APPn markers. */ 
EXTERN (void) jpeg_set„marker_^rocessor 

JPPi { j_decompress_ptr cinfo, int marker_codei 
jpeg— niarker_parser_method routine) ) ; 

/* Read or write raw DCT coefficients useful for lossless transcoding. */ 

EXTERN {jvirt_barray_ptr *) jpeg„read_coef f icients JPP ( { j__decompress_ptr cinfo) ) ; 
EXTERN (void) jpeg__write„coef f icients JPP { ( j_compress__ptr cinfo, 

jvirt_barrayjtr * coef_arrays) ) ; 
EKTERN(void) jpeg„copy_critical_paraineters JPP ( { j_decompress_ptr srcinfo, 

j_compress_ptr dstinfo) ) ; 

/* If you choose to abort compression or decompression before completing 

* jpeg_finish_{de) compress, then you need to clean up to release memory, 

* temporary files, etc. You can just call jpeg_destroy_(dG} compress 

* if you're done with the JPEG object, but if you want to clean it up and 

* reuse it, call this: 
*/ 

EXTERN (void) jpeg__abort„compress JPP { ( j„compress_ptr cinfo)); 
EXTERN(void) jpeg_abort„decompress JPP { ( j_decompress_ptr cinfo)); 

/* Generic versions of jpeg_abort and jpeg_destroy that work on either 

* flavor of JPEG object. These may be more convenient in some places. 

^/ 

EXTERN(void) jpeg_abort JPP ( ( j_common_ptr cinfo)); 
E5gifPRN(void) jpeg_destroy JPP ( ( j_common_ptr cinfo)); 

/^f default restart-marker-resync procedure for use by data source modules */ 
eSERN (boolean) jpeg__resync_to_re start JPP { { j„decompress_ptr cinfo, 
■i^; int desired) ) ; 



/ff7:These marker codes are exported since applications and data source modules 
*::are likely to want to use them. 

#Sefine JPEG_RSTO OxDO 

#aefine JPEG_EOI OxD9 

#Eefine JPEG_APPO OxEO 

##efine JPEG„COM OxFE 

/t^jlf we have a brain-damaged compiler that emits warnings (or worse, errors) 

f or structure definitions that are never filled in, keep it quiet by 
ISJ supplying dummy definitions for the various substructures. 

G 

#ifdef INCOMPLETE__TYPES„BROKEN 

#ifndef JPEG_IMTERNALS /* will be defined in jpegint.h */ 

struct jvirt_sarray_control { long dummy; }; 

struct jvirt_barray_control { long dummy; }; 

struct jpeg_comp_jnaster { long dummy; }; 

struct jpeg_c_main_contr oiler { long dummy; }; 

struct jpeg_c_x>rep_contr oiler { long dummy; }; 

struct jpeg„c„coef ..controller { long dummy; } ; 

struct jpeg_marker_writer { long dummy; } ; 

struct jpeg_color_converter { long dummy; } ; 

struct jpeg_downs ampler { long dummy; } ; 

struct jpeg_f orward_dct { long duirany; }; 

struct jpeg_entropy_encoder { long dummy; } ; 

struct jpeg„decomp„master { long dummy; }; 

struct jpeg_d__main_contr oiler { long dummy; }; 

struct jpeg_d_coef_contr oiler { long dummy; }; 

struct jpeg_d_post_contr oiler { long d\immy; } ; 

struct jpeg„input„contr oiler { long dummy; }; 

struct jpeg_marker_reader { long dummy; } ; 

struct jpeg_entropy_decoder { long dummy; } ; 

struct jpeg„inverse„dct { long dummy; }; 

struct jpeg_ups ampler { long dummy; } ; 

struct jpeg_color_deconverter { long dummy; }; 

struct jpeg_color_quantizer { long dummy; } ; 

#endif /* JPEG_INTERNALS */ 

#endif /* INCOMPLETE_TYPES„BROKEN */ 



/* RSTO marker code */ 

/* EOI marker code */ 

/* APPO marker code */ 

/* COM marker code */ 
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/* 

* The JPEG library modules define JPEG_INTEKNALS before including this file. 

* The internal structure declarations are read only when that is true. 

* Applications using the library should not include jpegint.h, but may wish 

* to include jerror.h. 
*/ 

#ifdef JPEG_INTERNALS 

tinclude "jpegint.h" /* fetch private declarations */ 

#include "jerror.h" /* fetch error codes too */ 

#endif 

#endif /* JPEGLIB_H */ 
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/* 

* jversion.h 
* 

* Copyright (C) 1991-1998, Thomas G. Lane, 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file, 

* This file contains software version identification. 



fdefine JVERSION "6b 27-Mar-1998 '* 

#define JCOPYRIGHT "Copyright (C) 1998, Thomas G. Lane" 



1 1 1 11 u n 1 1 1 1 J f I f 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n n I { 1 1 1 1 1! 1 1 1 H f n ( ( f ( u I 

I J Construction/Destruction 

I i 1 1 1 1 1 1 1 1 f 1 1 1 1 1 i 1 1 1 1 1 1 1 1 f 1 1 1 1 { I { I { f I ( ! I i 1 11 n i li 1 1 1 1 11 11 u n 11 1 1 11 n f 

RawPixelEncoder : : RawPixelEncoder ( ) 
{ 

m_ReleaseBufferMemory= false ; 
m_pBuf fer=NULL; 
m_Buf f€rPtr=0; 
} 

RawPixelEncoder :: -RawPixelEncoder 0 { ReleaseBuf f er ( ) ; } 



* 

* Prepare buffer for data entry 



bool RawPixelEncoder : iSetSize (UINT3 2 size) 

{ 

ReleaseBuf fer ( ) ; 

if(size<=0) return false; 

m_Size=size; 

try 

{ 

i^UpBuf fer = new ByTE[m„Size] ; 

} 

catch ( . . . ) { return false; } 

if (in_pBuf f er) 

{ 

memset {m_pBuf f er, 0,m_Size) ; 

0 m_ReleaseBuf f erMemory=true ; 
m_Bu fferPtr=0; 

%l return true; 

01 } 

else return false; 



*^|| Add new subbufer 

* ************************************************** 

u™t32 RawPixelEncoder: :AddData( BYTE* buf, UINT32 buf_size, 

UINT32 fliprawbytes /*=0*/) 

bool flipY = {fliprawbytes>l) ; 
ly if (nuBuf ferPtr>=itL.Size) return 0; 

h. i if {buf_size>in_Size-rn_Buf f erPtr) // avoid overflow 

2 ( 

U flipY=false; 

r-'r^ buf_size = in_Size-in_Buf f erPtr ; 

} 

BYTE *start = & {m_pBuf f er [m_Buf f erPtr ] ) ; 
for(UINT32 k=0; k<buf„size; k++) 

{ 

m_pBuf f er [m_Buf ferPtr] = buf[k]; 
m_Buf f erPtr++; 

} 

if (flipY) 

{ 

: :Flip2DBufferY (start, buf_size<. fliprawbytes); 

} 

start^NULL; 
return buf_size; 

} 

/********************************************************** 



* Transfer buffer data to VR 

* 

****************************************>t 



void RawPixelEncoder ; .-Trans fer Da taToVR(VR *vr) 

{ 

vr->AttachData (m _pBuf f er ,m„Size) ; 
m_pBuf f er=NULL ? 
in_ReleaseBuf f erMemory=FALSE ; 

} 

y*************************************************************************** 
* 
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* Release allocated buffer memory 

************** 

void RawPixelEncoder : : ReleaseBuf f er ( ) 
{ 

if (m_ReleaseBuf f erMemory) 
{ 

if (nt_pBuf f er) 
{ 

delete [] m_pBuffer; 
m_pBuf f er=NULL ; 

} 

m__ReleaseBuf f erMemory=f alse ; 



cs 
m 

m 
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* j chuff .h 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* This file contains declarations for Huffman entropy encoding routines 

* that are shared between the sequential encoder (jchuff *c) and the 

* progressive encoder (jcphuff.c). No other modules need to see these. 
*/ 

/* The legal range of a DCT coefficient is 

* -1024 . . +1023 for 8-bit data; 

* -16384 +16383 for 12-bit data. 

* Hence the magnitude should always fit in 10 or 14 bits respectively. 
*/ 

#if BITS_IK_JSAMPLE == B 
#define MAX_COEF_BITS 10 
^ else 

#define MAX_COEF_BITS 14 
#endif 

/* Derived data constructed for each Huffman table */ 

typedef struct { 

unsigned int ehufco[256] ; /* code for each symbol */ 

char ehufsi[256]; /* length of code for each symbol */ 

/* If no code has been allocated for a symbol S, ehufsi[S] contains 0 */ 

} c_derived_tbl ; 

/*:JShort forms of external names for systems with brain-damaged linkers, */ 



#t«ef NEED_SHORT_EXTERNAL_NAMES 
#(S,fine jpeg__make_c_derived_tbl jMkCDerived 
#(Sfine jpeg_gen„optimal„table jOenOptTbl 
#di|dif /* NEED_SHORT_EXTERWAL_NAMES */ 

/■^fExpand a Huffman table definition into the derived format */ 
EK^IERN ( vo id) j peg_make_c_der ived_tbl 

ni JPP( ( j„compress_ptr cinfo, boolean isDC, int tblno, 

= c_deri ved„tbl * * pdtbl ) ) ; 

/g^^Generate an optimal table definition given the specified counts */ 
EXTERN (void) jpeg_gen_optimal_table 

■' JPP ( ( j_compress_ptr cinfo, JHUFF_TBL * htbl , long freq[])); 



/* jconfig.vc jconfig.h for Microsoft Visual C++ on Windows 95 or NT. */ 

/* see jconfig.doc for explanations */ 

#define HAVE__PROTOTYPES 
#define HAVE_UNSIGNED„CHAR 
#define HAVE_UNSIGNED_SHORT 
/* #define void char */ 

#define const */ 
#undef CHAR_IS_UNSIGNED 
#define HAVE_STDDEF_H 
fdefine HAVE__STDLIB__H 
#undef NEED_BSD_STRINGS 
#undef NEED_SYS_TyPES_H 

#undef NEED_FAR_PO INTERS /* we presinne a 3 2 -bit flat memory model */ 
#undef NEED_SHORT_EXTERNAL_NAMES 
#undef INCOMPLETE_TYPES„BROKSN 

/* Define "boolean" as unsigned char, not int, per Windows custom */ 

#ifndef RPCNDR_H_ /* don't conflict if rpcndr.h already read */ 

typedef unsigned char boolean; 
#endif 

#define HAVE_BOOLEAN /* prevent jmorecfg,h from redefining it */ 



#ifdef JPEG_INTERNALS 

#undef RIGHT_SHIFT_IS_UNSIGNED 

#endif /* JPEG_INTERNALS */ 

#ifdef JPEG_CJPEG_DJPEG 

td^fine BMP_SUPPORTED 
#dS£ine GIF_SUPPORTED 
#<pfine PPM^SUPPORTED 
#imdef RLE_SUPPORTED 
tdy-fine TARGA_SUPPORTED 

#define TWO_FILE_COMMANDLINE /* optional */ 
#<3y'fine USE_SETMODE /* Microsoft has setmodeO */ 
#tSdef NEED_SIG1S1AL_CATCHER 
tmdef DONT_USE_B_MODE 

#andef PROGRESS_REPORT /* optional */ 



/* BMP image file format */ 

/* GIF image file format */ 

/* PBMPLUS PPM/PGM image file format */ 

/* Utah RLE image file format */ 

/* Targa image file format */ 



tfendif /* JPEG_CJPEG_.DJPEG */ 



* jdct.h 
* 

* Copyright (C) 1994-1996, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 

* 

* This include file contains common declarations for the forward and 

* inverse DCT modules . These declarations are private to the DCT managers 

* (jcdctmgr.c, jddctmgr.c) and the individual DCT algorithms. 

* The individual DCT algorithms are kept in separate files to ease 

* machine -dependent tuning (e.g., assembly coding). 
*/ 



/* 

* A forward DCT routine is given a pointer to a work area of type DCTELEM[]; 

* the DCT is to be performed in-place in that buffer. Type DCTELEM is int 

* for 8-bit samples, INT32 for 12-bit samples. (NOTE: Floating-point DCT 

* implementations use an array of type FAST„FLOAT, instead.) 

* The DCT inputs are expected to be signed (range + -CENTER JSAMPLE) . 

* The DCT outputs are returned scaled up by a factor of 8; they therefore 

* have a range of +-8K for 8-bit data, +-128K for 12-bit data. This 

* convention improves accuracy in integer implementations and saves some 

* work in floating-point ones. 

* Quantization of the output coefficients is done by jcdctmgr.c. 
*/ 

#if BITS_IN_ JSAMPLE == 8 

typedef int DCTELEM; /* 16 or 32 bits is fine */ 

#else 

t^edef INT32 DCTELEM; /* must have 32 bits */ 

#eniiif 

ti^edef JMETHOD(void, f orward_DCT_method_j)tr, (DCTELEM * data)); 
typedef JMETHOD(void. f loat_DCT_method_ptr , (FAST_FLOAT * data)); 

^:='An inverse DCT routine is given a pointer to the input JBLOCK and a pointer 
J^'to an output sample array. The routine must dequantize the input data as 
i:'.well as perform the IDCT; for deguantization, it uses the multiplier table 
^'-pointed to by compptr->dct_table . The output data is to be placed into the 
I sample array starting at a specified column. (Any row offset needed will 
f„H.,be applied to the array pointer before it is passed to the IDCT code.) 
*.'.'Note that the number of samples emitted by the IDCT routine is 
i^:DCT_scaled_size * DCT_scal€d_si2e. 

m 

/*T- typedef inverse_DCT_method_ptr is declared in jpegint.h */ 

Mi 

^*-^Each IDCT routine has its own ideas about the best dct_table element type. 
*/ 

typedef MULTIPLIER ISLOW_MULT_TYPE; /* short or int, whichever is faster */ 
#if BITS_IN_JSAMPLE ==^ 8 

typedef MULTIPLIER IFAST„MULT_TYPE; /* 16 bits is OK, use short if faster */ 

#define IFAST_SCALE_BITS 2 /* fractional bits in scale factors */ 

#else 

typedef INT32 lFAST_MULT„TyPE ; /* need 32 bits for scaled quantizers */ 
#define IFAST_SCALE_BITS 13 /* fractional bits in scale factors */ 
#endif 

typedef FAST_FLOAT FLOAT„MULT_TYPE ; /* preferred floating type */ 



/* 

* Each IDCT routine is responsible for range -limiting its results and 

* converting them to unsigned form ( 0 .. MAX JSAMPLE ) . The raw outputs could 

* be quite far out of range if the input data is corrupt, so a bulletproof 

* range -limiting step is required. We use a mask-and- table -lookup method 

* to do the combined operations quickly. See the comments with 

* prepare_range_limit_ table (in jdmaster.c) for more info. 
*/ 

#define IDCT__range_limit (cinf o) { (cinf o) ->sample_range_limit + CENTERJSAMPLE) 
#define RANGE_MASK (MAXJSAMPLE * 4 + 3) /* 2 bits wider than legal samples */ 
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/* Short forms of external names for systems with brain-damaged linkers. */ 



#ifdef NEED„SHORT_EXTERNAL_NAMES 
#define jpeg_fdct_islow jFDislow 
#define jpeg^f dct_if ast jFDifast 
tdefine jpeg_fdct„f loat jFDfloat 
tdefine jpeg_idct_islow jRDislow 
#define jpeg_idct_ifast jRDifast 
#define jpeg_idct_.fl oat jRDfloat 
#define jpeg_idct_4x4 jRD4x4 
#define jpeg_idct_2x2 jRD2x2 
#define jpeg__idct_lxl jRDlxl 
#endif /* NEED_SHORT„EXTERNAL_NAMES */ 



/* Extern declarations for the forward and inverse DCT routines. */ 

EXTERN(void) jpeg_f dct_islow JPPi(DCTELEM * data)); 
EXTERNivoid) jpeg_f dct_if ast JPP((DCTELEM * data) ) ; 
EXTERN (void) jpeg_f dct_f loat JPP ( ( FAST_FLOAT * data) ) ; 

EXTERN (void) jpeg_idct_islow 

JPP ( { j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, JSAMPARRAY output_buf, JDIMENSION output„col) ) ; 
EXTERN (void) jpeg„idct_ifast 

JPP ( ( j_decompress__ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef^block, JSAMPARRAY output_buf, JDIMENSION output_col) ) ; 
EXTERN (void) jpeg_idct„f loat 

JPP ( ( j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
JCOEFPTR coef_block, JSAMPARRAY output__buf, JDIMENSION output„col) ) ; 
EXTERN (void) jpeg__idct_4x4 

JPP { ( j_decompress„ptr cinfo, jpeg_component_inf o * compptr, 
f1 JCOEFPTR C0ef_bl0Ck, JSAMPARRAY output„buf, JDIMENSION output^col) ) ; 
ExSeRN (void) jpeg_idct_2x2 
H;J jpp( { j_decompress_ptr cinfo, jpeg_component_inf o * compptr, 
fli JCOEFPTR coef^block, JSAMPARRAY output jDuf , JDIMENSION output„col) ) ; 
E§ERN(void) jpeg_.idct„lxl 

JPP ( {j_dec empress ^tr cinfo, jpeg_component_inf o * compptr, 
%| JCOEFPTR coefjDlock, JSAMPARRAY outputjDuf, JDIMENSION output_col) ) ; 

/4i 

^lilMacros for handling fixed-point arithmetic; these are used by many 
^■''~but not all of the DCT/IDCT modules. 

i;i;All values are expected to be of type INT32. 

Fractional constants are scaled left by CONST_BITS bits. 
^^^^CONST_BITS is defined within each module using these macros, 
Plland may differ from one module to the next, 

•(] 

fine ONE ((INT32) 1) 
^^fine CONST_SCALE (ONE « CONST_BITS) 

/* Convert a positive real constant to an integer scaled by CONST„SCALE. 

* Caution: some C compilers fail to reduce "FIX (constant) " at compile time, 

* thus causing a lot of useless floating-point operations at run time. 
*/ 

#define FIX{x) ({INT32) ( (x) * CONST_SCALE + 0.5)) 

/* Descale and correctly round an INT32 value that's scaled by N bits. 

* We assume RIGHT_SHIFT rounds towards minus infinity, so adding 

* the fudge factor is correct for either sign of X. 
*/ 

#define DESCALE (x,n) RIGHT_SHIFT ( (x) + (ONE « ((n)-l)), n) 

/* Multiply an INT32 variable by an INT32 constant to yield an INT32 result. 

* This macro is used only when the two inputs will actually be no more than 

* 16 bits wide, so that a 16xl6->32 bit multiply can be used instead of a 

* full 32x32 multiply. This provides a useful speedup on many machines. 

* Unfortunately there is no way to specify a 16xl6->32 multiply portably 

* in C, but some C compilers will do the right thing if you provide the 

* correct combination of casts. 
*/ 

#ifdef SHORTxSHORT_32 /* may work if 'int' is 32 bits */ 

#define MaLTIPLY16C16(var, const) {({INT16) (var) ) * ((INT16) (const))) 

#endif 

#ifdef SHORTxLCONST_32 /* known to work with Microsoft C 6.0 */ 
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#define MULTIPLYl6C16(var, const) (((INT16} (var) ) * ((INT32) (const))) 
#endif 

fifndef mJliTIPLYiecie /* default definition */ 

tdefine MULTIPLY16C16 (var, const) ((var) * (const)) 
tendif 

/* Same except both inputs are variables. */ 

#ifdef SHORTxSHORT_32 /* may work if 'int' is 32 bits */ 

fdefine MULTIPLY16V16(varl,var2) ({(INT16) (varl)) * ( {IKT16) (var2))) 

#endif 

#ifndef MULTIPLY16V16 /* default definition */ 

#define MULTIPLY16V16(varl,var2) ((varl) * (var2)) 
#endif 



/* 

* jdhuff.h 
* 

* Copyright (C) 1991-1997, Thomas G, Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains declarations for Huffman entropy decoding routines 

* that are shared between the sequential decoder (jdhuff .c) and the 

* progressive decoder (jdphuff .c) , No other modules need to see these. 
*/ 

/* Short forms of external names for systems with brain-damaged linkers. */ 

#ifdef NEED_SHORT_EXTERNAL_NAMES 
#define jpeg_make_d_derived„tbl jMkDDerived 
#define jpeg_f ill_bit_buf f er jFilBitBuf 
#define jpeg_huf f_decode jHufDecode 
#endif /* NEED_SHORT_EXTERNAL„NAMES */ 



/* Derived data constructed for each Huffman table */ 

#define HUFF_LOOKAHEAD 8 /* # of bits of lookahead */ 

typedef struct C 

/* Basic tables: (element [0] of each array is unused) */ 
INT32 maxcode[18]; /* largest code of length k (-1 if none) */ 

/* (maxcode[17] is a sentinel to ensure jp€g__huf f_decode terminates) */ 
INT32 valoffset[17] ; /* huffval[] offset for codes of length k */ 

/* valoffset[k] = huffval[3 index of 1st symbol of code length k, less 
fi:* the smallest code of length k; so given a code of length k, the 
corresponding symbol is huf fval [code + valof f set [k] ] 

Link to public Huffman table (needed only in jpeg__huf f_decode) */ 
%HUFF_TBL *pub; 

,1^* Lookahead tables: indexed by the next HUFF__LOOKAHEAD bits of 

the input data stream. If the next Huffman code is no more 
U3* than HUFF_LOOKAHEAD bits long, we can obtain its length and 
r.is* the corresponding symbol directly from these tables. 

^int look_nbits[l«HUFF_LOOKAHEAD] ; /* # bits, or 0 if too long */ 
LSJINTS look_sym[l«HUFF_LOOKAHEAD] ; /* symbol, or unused */ 
}l-r.:d__derived_tbl ; 

/fl.1 Expand a Huffman table definition into the derived format */ 
EXTERN (void) jpeg_make„d_der ived_tbl 

J: JPP( ( j_decompress_ptr cinfo, boolean isDC, int tblno, 
O d_derived_tbl ** pdtbl) ) ; 



/* 

* Fetching the next N bits from the input stream is a time-critical operation 

* for the Huffman decoders. We implement it with a combination of inline 

* macros and out-of-line subroutines. Note that N (the number of bits 

* demanded at one time) never exceeds 15 for JPEG use. 
* 

* We read source bytes into get_buffer and dole out bits as needed. 

* If get_buffer already contains enough bits, they are fetched in-line 

* by the macros CHECK_BIT_BUFFER and GET_BITS. When there aren't enough 

* bits, jpeg„f ill_bit_buf f er is called; it will attempt to fill get_buffer 

* as full as possible (not just to the number of bits needed; this 

* prefetching reduces the overhead cost of calling jpeg_f ill_bit_buf f er) . 

* Note that jpeg_f ill„bit_buf f er may return FALSE to indicate suspension. 

* On TRUE return, jpeg__f ill_bit_buf f er guarantees that get_buffer contains 

* at least the requested nxmber of bits dummy zeroes are inserted if 

* necessary. 
*/ 

typedef INT32 bit_buf_type; /* type of bit-extraction buffer */ 
#define BIT_BUF_.SIZE 32 /* size of buffer in bits */ 

/* If long is > 32 bits on your machine, and shifting /mas king longs is 

* reasonably fast, making bit_buf„type be long and setting BIT_BUF_SIZE 

* appropriately should be a win. Unfortunately we can't define the size 

* with something like #define BIT_BUF_SIZE (sizeof (bit_buf_type) *8) 

* because not all machines measure sizeof in 8-bit bytes. 
*/ 
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typedef struct { /* Bi treading state saved across MCUs */ 

bit_buf_type get„buffer; /* current bit-extraction buffer */ 
int bits_left; /* # of unused bits in it */ 

} bitread_penn_state; 

typedef struct { /* Bi treading working state within an MCU */ 

/* Current data source location */ 

/* We need a copy, rather than raunging the original, in case of suspension */ 
const JOCTET * next_input_by te ; /* => next byte to read from source */ 
si2e_t bytes_in_buf f er; /* # of bytes remaining in source buffer */ 
/* Bit input buffer note these values are kept in register variables, 

* not in this struct, inside the inner loops, 

*/ 

bit_buf_type get_buffer; /* current bit-extraction buffer */ 
int bits_left; /* # of unused bits in it */ 

/* Pointer needed by jpeg_f ill_bit_buf fer . */ 

j_decompress_ptr cinfo; /* back link to decompress master record */ 
} bitread_working_state; 

/* Macros to declare and load/save bi tread local variables. */ 
#define BITREAD_STATE_VARS \ 

register bit_buf_type get_buffer; \ 

register int bits__left; \ 

bitread_working_state br_state 

#def ine BITREAD_LOAD_STATE ( cinf op , permstate ) \ 
br„state. cinfo = cinf op; \ 

br_state,next_input_byte = cinf op->src->next_input„byte; \ 
br_state .bytes„in_buf f er = cinf op->src->bytes_in_buf f er ; \ 
getjouffer = permstate .get_buffer; \ 
rj bits_left = perms tat e.bits^l eft; 

#^fine BITREAD_SAVE„STATE (cinf op, permstate) \ 
iJl cinf op->src->next„input_byte = br„state-next_input_byte; \ 
cinf op->src->bytes_in_buf f er = br_state .bytes_in_buf f er ; \ 
permstate ,get„buffer = get_buffer; \ 
"^1 permstate .bit s_l eft = bits_left 

^jThese macros provide the in-line portion of bit fetching, 
ff^Wse CHECK_BIT__BUFFEK to ensure there are N bits in get_buffer 

before using GET„BITS, PEEK_BITS, or DROP_BITS. 

The variables getjDuffer and bits_left are assumed to be locals. 
Mi; but the state struct might not be ( jpeg_huf f_decode needs this) . 

CHECK_BIT_BUFFER{state,n, action) ; 
^ Ensure there are N bits in get_buffer; if suspend, take action. 

r*J val = GET_BITS(n); 

Fetch next N bits. 
£ val = PEEK„BITS(n) ; 

W Fetch next N bits without removing them from the buffer. 

m DROP_BITS(n); 

Discard next N bits. 

* The value N should be a simple variable, not an expression, because it 

* is evaluated multiple times. 
*/ 

tdefine CHECK_BIT_BUFFER {state, nbits , action) \ 
{ if (bits_left < (nbits)) { \ 

if (I jpeg_fill_bit_buffer{& (state) , get_buffer, bits_l eft, nbits ) ) \ 
{ action; } \ 

get„buffer = (state) .get_buffer; bits_left = (state) .bits__left; } } 

#define GET_BITS (nbits) \ 

(((int) {get_buffer » {bits_left -= (nbits)))) & ( (1« (nbits) ) -1) ) 

#define PEEK_BITS (nbits) \ 

(((int) (get^buffer » {bits_left - (nbits)))) & { (1« (nbits) ) -1) ) 

#define DROP_BITS (nbits) \ 
(bits__left -= (nbits)) 

/* Load up the bit buffer to a depth of at least nbits */ 
EXTERN (boolean) jpeg__f ill_bit_buf f er 

JPP( (bitread_working_state * state, register bit_buf_type get„buffer, 
register int bits_left, int nbits)); 



* Code for extracting next Huffman-coded symbol from input bit stream. 
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* Again, this is time-critical and we make the main paths be macros. 
* 

* We use a lookahead table to process codes of up to HUFF_LOOKAHEAD bits 

* without looping. Usually, more than 95% of the Huffman codes will be 8 

* or fewer bits long. The few overlength codes are handled with a loop, 

* which need not be inline code. 
* 

* Notes about the HUFF_DECODE macro: 

* 1* Near the end of the data segment, we may fail to get enough bits 

* for a lookahead. In that case, we do it the hard way. 

* 2. If the lookahead table contains no entiry, the next code must be 

* more than HUFF_LOOKAHEAD bits long, 

* 3, jpeg_huf f__decode returns -1 if forced to suspend, 
*/ 

#define HUFF_DECODE (result, state, htbl, failaction, slowlabel) \ 
{ register int nb, look; \ 

if {bits_left < HUFF_LOOKAHEAD) { \ 

if i I jpeg^f ill__bit„buf fer (£cstate,get_buf fer,bits_left, 0) ) {failaction; } 
get_buffer = state .get_buffer; bits_left = state.bits_lef t ; \ 
if (bits_left < HUFF_LOOKAHEAD) { \ 

nb = 1; goto slowlabel; \ 
> \ 
} \ 

look = PEEK_BITS(HUFF„LOOKAHEAI>) \ 
if {{nb = htbl->look_nbits[look] ) != 0) { \ 
DROP_BITS (nb) ; \ 

result = htbl->look_sym[look] ; \ 
} else { \ 

nb = HUFF_L00KAHEAD+1; \ 
slowlabel : \ 

C!: if { (result=jpeg_„huf f_decode {&state, get_buf f er ,bits_lef t , htbl,nb) ) < 0) \ 
"Jl { failaction; } \ 

getjDuffer = state .get_buffer; bits_left = state .bits_left; \ 

Of \ 

/^JOut-of-line case for Huffman code fetching */ 
EXTERN (int) jpeg__huf f_decode 

JPP{ (bitread_jworking__state * state, register bitjDuf_type get_buffer, 
register int bits_left, d_derived_tbl * htbl, int min_bits)}; 



* jerror.h 
* 



* Copyright (C) 1994-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file defines the error and message codes for the JPEG library. 

* Edit this file to add new codes, or to translate the message strings to 

* some other language. 

* A set of error-reporting macros are defined too. Some applications using 

* the JPEG library may wish to include this file to get the error codes 

* and/ or the macros. 

*/ 

/* 

* To define the envm list of message codes, include this file without 

* defining macro JMESSAGE. To create a message string table, include it 

* again with a suitable JMESSAGE definition {see jerror.c for an example). 
*/ 

#ifndef JMESSAGE 
tifndef JERROR_H 

/* First time through, define the enum list */ 

#define JHAKE_ENUM_LIST 

#else 

/* Repeated inclusions of this file are no-ops unless JMESSAGE is defined */ 
#define JMESSAGE (code, string) 
#endif /* JERROR_H */ 
#endif /* JMESSAGE */ 

#ifdef JMAKE_ENUM_LIST 

t^edef enum { 

#^efine JMESSAGE (code, string) code , 
#Sdif /* JMAKE_ENUM_LIST */ 

Jm|sSAGE(JMSG_NOMESSAGE, "Bogus message code %d") /* Must be first entry! */ 

/ClFor maintenance convenience, list is alphabetical by message code name */ 
JKESSAGE ( jerr_arith_notimpl, 

"Sorry, there are legal restrictions on arithmetic coding") 
JMESSAGE {JERR_BAD_ALIGN_TYPE, "ALIGN^TYPE is wrong, please fix") 
JMESSAGE (JERR_BAD_ALLOC„CHUNK, "MAX_ALLOC_CHUNK is wrong, please fix") 
jSessage(JERR_BAD_BUFFERJMODE, "Bogus buffer control mode") 
Cifl:SSAGE(JERR_BAD_COMPONENT_ID, "Invalid component ID %d in SOS") 
iIpflSSAGE ( JERR_BAD_DCT_C0EF, "DCT coefficient out of range") 
JJS;SSAGE(JERR_BAD_DCTSIZE, "IDCT output block size %d not supported") 
jM: SSAGE ( JERR_BAD_HUFF_TABLE , " Bogus Hu f f man t abl e definition") 
CfiES S AGE {JERR_BAD_IN_COLiORS PACE, "Bogus input colorspace") 
ci|:SSAGE(JERR_BAD_J„COLORSPACE, "Bogus JPEG colorspace") 
JffiSSAGE(JERR_BAD_LENGTH, "Bogus marker length") 
JMESSAGE ( JERR_BAD_LIB_VERSION, 

"Wrong JPEG library version: library is %d, caller expects %d") 
JMESSAGE (JERR__BAD_MCU_S I 2E, "Sampling factors too large for interleaved scan") 
JMESSAGE (JERR_BAD__POOL_ID, "Invalid memory pool code %d") 
JMESSAGE (JERR_BAD_PRECISION, "Unsupported JPEG data precision %d" ) 
JMESSAGE ( JERR_BAD_PROGRESSION, 

"Invalid progressive parameters Ss=%d Se=%d Ah=%d Al=%d" ) 
JMESSAGE ( JERR_BAD_PR0G_SCRIPT , 

"Invalid progressive parameters at scan script entry %d" ) 
JMESSAGE (JERR„BAD_SAMPLING, "Bogus sampling factors") 
JMESSAGE {JERR„BAD_SCAH_SCRIPT, "Invalid scan script at entry %d") 
JMESSAGE (JERR_BAD_STATE, "Improper call to JPEG library in state %d" ) 
JMESSAGE ( JERR_BAD„STRUCT_SI2E , 

"JPEG parameter struct mismatch: library thinks size is %u, caller expects %u") 
JMESSAGE (JERR„BAD_VIRTUAL_ACCESS, "Bogus virtual array access") 
JMESSAGE (JERR_BUFFER_SIZS, "Buffer passed to JPEG library is too small") 
JMESSAGE (JERR„CA3SrT_SUSPEND, "Suspension not allowed here") 
JMESSAGE (JERR_CCIR601_NOTIMPL, "CCIR601 sampling not implemented yet") 
JMESSAGE (JERR_COMPONENT_COUNT, "Too many color components: %d, max %d" ) 
JMESSAGE (JERR_CONVERS I ON__NOTIMPL, "Unsupported color conversion request") 
JMESSAGE (JERR„DAC_INDEX, "Bogus DAC index %d" ) 
JMESSAGE (JERR_DAC„VALUE, "Bogus DAC value Ox%x" ) 
JMESSAGE {JERR_DHT_INDEX, "Bogus DHT index %d") 
JMESSAGE {JERR_DQT_INDEX, "Bogus DQT index %d" ) 

JMESSAGE (JERR_EMPTy_IMAGE, "Empty JPEG image (DHL not supported)") 
JMESSAGE (JERR„EMS_READ, "Read from EMS failed") 
JMESSAGE (JERR_EMS_WRITE, "Write to EMS failed") 
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JMESSAGE(JERR_EOI_EXPECTED, "Didn't expect more than one scan") 
JMESSAGE{JERR__FILE_READ, "Input file read error") 

aMESSAGE( JERR_FILE_WRITE, "Output file write error out of disk space?") 

JMESSAGE ( JERR_FRACT_SAMPLE_NOTIMPL, "Fractional sampling not implemented yet") 

JMESSAGE{JERR_HUFF_CLEN_OVERFLOW, "Huffman code size table overflow") 

JMESSAGE(JERR_HUFF_MISSING_CODE, "Missing Huffman code table entry") 

JMESSAGE ( JERR_IMAGE_TOO_BIG, "Maximum supported image dimension is %u pixels") 

JMESSAGE(JERR_INPUT_EMPTY, "Empty input file") 

JMESSAGE(JERR_INPUT__EOF, "Premature end of input file") 

JMESSAGE ( JERR_MISMATCHED_QUANT_TABLE. 

"Cannot transcode due to multiple use of quantization table %d") 
JMESSAGE {JERR_MISSING_DATA, "Scan script does not transmit all data") 
JMESSAGE (JERR_MODE_CHANGE, "Invalid color quantization mode change") 
JMESSAGE (JERR_NOTIMPL, "Wot implemented yet") 

JMESSAGE (JERR_NOT_COMPILED, "Requested feature was omitted at compile time") 
JMESSAGE {JERR_NO_BACKING_STORE, "Backing Store not supported") 
JMESSAGE (JERR_NO_HUFF„TABLE, "Huffman table 0x%02x was not defined") 
JMESSAGE (JERR_NO_IMAGE, "JPEG datastream contains no image") 
JMESSAGE (JERR„NO_QUANT_TABLE, "Quantization table 0x%02x was not defined") 
JMESSAGE {JERR_NO_SOI, "Not a JPEG file: starts with 0x%02x 0x%02x") 
iJMESSAGE{JERR_OUT„OFjyEEMORY, "Insufficient memory (case %d)") 
JMESSAGE (aERR_QUANT_COMPONENTS , 

"Cannot quantize more than %d color components") 
JMESSAGE (JERR_QUANT__FEW_COLORS; "Cannot quantize to fewer than %d colors") 
JMESSAGE (JERR_QUANT_MAOT_COLORS, "Cannot quantize to more than %d colors") 
JMESSAGE (JERR„SOF_DUPLICATE, "Invalid JPEG file structure: two SOF markers") 
JMESSAGE {JERR_SOF_.NO_SOS, "Invalid JPEG file structure: missing SOS marker") 
JMESSAGE {JERR_SOF_UNSUPPORTED, "Unsupported JPEG process: SOF type 0x%02x") 
JMESSAGE (JERR_SOI_DUPLICATE, "Invalid JPEG file structure: two SOI markers") 
JMESSAGE (JERR„SOS_NO_SOF, "Invalid JPEG file structure: SOS before SOF") 
JMESSAGE (JERR_TFILE_CREATE, "Failed to create temporary file %s") 
JMSSAGE(JERR_TFIIjE„READ, "Read failed on temporary file") 
J^SSAGE (JERR_TFILE_SEEK, "Seek failed on temporary file") 
jMIssage ( JERR_TFILE_WRITE, 

ffl "Write failed on temporary file out of disk space?") 

jI|ESSAGE{JERR_TOO_LITTLE_DATA, "Application transferred too few scanlines") 
jili:SSAGE(JERR_UIyfKWOWN_MARKER, "Unsupported marker type 0x%02x") 
JMESSAGE {JERR_VIRTUAL_BUG, "Virtual array controller messed up") 
JMtsSAGE(JERR_WIDTH_OVERFLOW, "Image too wide for this implementation") 
JffiSSAGE(JERR_XMS_READ, "Read from XMS failed") 
J^SSAGE(JERR_XMS_WRITE, "Write to XMS failed") 
jifesSAGE ( JMSG_COPYRIGHT , JCOPYRIGHT) 
ji^SSAGE<JMSG_VERSION, JVERSION) 
JMESSAGE ( JTRC_16BIT_TABLES , 

L,i, "Caution: quantization tables are too coarse for baseline JPEG") 
oIeSSAGE ( JTRC_ADOBE , 

"Adobe APP14 marker: version %d, flags 0x%04x 0x%04x, transform %d") 
OlCesSAGE(JTRC_APPO, "Unknown APPO marker (not JFIF) , length %u") 
0QSssSAGE(JTRC_APP14, "Unknown APP14 marker (not Adobe), length %u") 
.^SSAGE(JTRC_DAC, "Define Arithmetic Table Ox%02x: Ox%02x" ) 
,:^SSAGE(JTRC_DHT. "Define Huffman Table 0x%02x") 
LS!iESSAGE(JTRC_DQT, "Define Quantization Table %d precision %d" ) 
Aj&SSAGE(JTRC„DRI, "Define Restart Interval %u") 
JMESSAGE (JTRC_EMS_CLOSE, "Freed EMS handle %u" } 
JMESSAGE (JTRC_EMS_0 PEN, "Obtained EMS handle %u") 
JMESSAGE (JTRC„EOI, "End Of Image") 

JMESSAGE (JTRC_HUFFBITS, " %3d %3d %3d %3d %3d %3d %3d %3d") 

JMESSAGE {JTRC_JFIF, "JFIF APPO marker: version %d,%02d, density %dx%d %d" ) 
JMESSAGE ( JTRC_JFIF_BADTHUMBNAILSIZE, 

"Warning: thumbnail image size does not match data length %u") 
JMESSAGE ( JTRC_JFIF_EXTENSION, 

"JFIF extension marker: type Ox%02x, length %u") 
JMESSAGE (JTRC_JFIF_,THUMBNAIL, " with %d x %d thumbnail image") 
JMESSAGE {JTRC_MISC„MARKER, "Miscellaneous marker 0x%02x, length %u") 
JMESSAGE (JTRC_PARMLESS„MARKER, "Unexpected marker 0x%02x") 
JMESSAGE (JTRC_QUANTVALS, " %4u %4u %4u %4u %4u %4u %4u %4u") 

JMESSAGE {JTRC_QUANT_3_NC0L0RS, "Quantizing to %d = %d*%d*%d colors") 
JMESSAGE (JTRC_QUANT_NCOLORS, "Quantizing to %d colors") 
JMESSAGE (JTRC_QUANT_SELECTED, "Selected %d colors for quantization") 
JMESSAGE (JTRC_RECOVERY_ACTION, "At marker 0x%02x, recovery action %d" ) 
JMESSAGE ( JTRC_RST, "RST%d" ) 
JMESSAGE ( JTRC_SMOOTH_NOTIMPL, 

"Smoothing not supported with nonstandard sampling ratios") 
JMESSAGE {JTRC_SOF, "Start Of Frame 0x%02x: width=%u, height=%u, coniponents=%d" ) 
JMESSAGE (JTRC„SOF_COMPONENT, " Component %d: %dhx%dv q=%d" ) 
JMESSAGE {JTRC_SOI, "Start of Image") 
JMESSAGE (JTRC_SOS, "Start Of Scan: %d components") 
JMESSAGE {JTRC_SOS_COMPONENT, " Component %d: dc=%d ac=%d" ) 
JMESSAGE (JTRC_SOS„PARAMS, " Ss=%d, Se=%d, Ah=%d, Al=%d" ) 
JMESSAGE {JTRC„TFILE_CLOSE, "Closed temporary file %s") 
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JMESSAGE(JTRC_TFILE_OPEN, "Opened temporary file %s") 
JMESSAGE ( JTRC_THUMB_JPEG , 

"JFIF extension marker: JPEG- compressed thumbnail image, length %u") 
JMESSAGE ( JTRC„THUMB„PALETTE, 

"JFIF extension marker: palette thumbnail image, length %u") 
JMESSAGE { JTRC_THUMB_RGB , 

"JFIF extension marker; RGB thumbnail image, length %u") 
JMESSAGE (JTRC_UNKNOWN_IDS. 

"Unrecognized component IDs %d %d %d, assuming YCbCr") 
JMESSAGE (JTRC„XMS_CLOSE, "Freed XMS handle %u") 
JMESSAGE {JTRC„XMS_0 PEN, "Obtained XMS handle %u") 

JMESSAGE (JWRN_AD0BE_XFORM, "Unknown Adobe color transform code %d" ) 
JMESSAGE ( JWRN_BOGUS_PROGRESSION, 

"Inconsistent progression sequence for component %d coefficient %d**) 
JMESSAGE ( JWRN_EXTRAWEOUS_DATA, 

"Corrupt JPEG data: %u extraneous bytes before marker 0x%02x") 
JMESSAGE (JWRlvr_HIT_MARKER, "Corrupt JPEG data: premature end of data segment") 
JMESSAGE (JWRN„HUFF_BAD_CODE, "Corrupt JPEG data: bad Huffman code") 
JMESSAGE {JWRN_JFIFjyiAJOR, "Warning; unknown JFIF revision number %d.%02d") 
JMESSAGE(JWRN_JPEG_EOF, "Premature end of JPEG file") 
JMESSAGE ( JWRN_MUST_,RESYNC, 

"Corrupt JPEG data: found marker 0x%02x instead of RST%d") 
JMESSAGE (JKRN_NOT_SEQUENTIAL, "Invalid SOS parameters for sequential JPEG") 
JMESSAGE {JWRW_TOO_MUCH__DATA, "Application transferred too many scanlines") 



tifdef JMAKE_ENUM_LIST 

JMSG_LASTMSGCODE 
} J_MESSAGE_C0DE7 

#undef aMAKE_ENUM_LIST 
#^dif /* JMAKE„ENUM_LIST */ 

/fjZap JMESSAGE macro so that future re-inclusions do nothing by default */ 
#i£adef JMESSAGE 



Mfndef JERROR_H 
#4lfine JERROR_H 

Afl Macros to simplify using the error and trace message stuff 
/J-lThe first parameter is either type of cinfo pointer */ 



Fatal errors (print message and exit) 
Mefine ERREXIT (cinfo, code) \ 
^^']( (cinfo) ->err->msg_code = (code), \ 
D (* (cinfo) ->err->error_exit) { ( j_common_^tr) 
fflefine ERREXITl (cinfo, code, pi) \ 
(cinfo) ->err->msg_code = (code), \ 
(cinfo) ->err->msg_parm. i [0] - (pi), \ 
r\ (* (cinfo) ->err->error_exit) ( ( j_common_ptr) 
l^fine ERREXIT2 (cinfo, code, pi, p2} \ 
i::J( (cinfo) ->err->msg_cod€ = (code), \ 
(cinfo) ->err->msg_parm.i [0] = (pi), \ 
(cinfo) ->err->msg__parm. i [1] - (p2), \ 
(* (cinfo) ->err->error_exit) ( ( j_common_ptr ) 
#define ERREXIT3 (cinfo, code, pi, p2,p3) \ 
( (cinfo) ->err->msg_code - (code), \ 
(cinfo) ->err->msg_parm. i [0] = (pi), \ 
(cinfo) ->err->rasg_parm. i [1] = (p2) , \ 
(cinf o) ->err->msg_^arm. i [2] = (p3) , \ 
(* (cinfo) ->€rr->error_exit) ( ( j_common_ptr) 
#define ERREXIT4 (cinfo, code, pi, p2 ,p3 ,p4) \ 
( (cinfo) ->err->msg„code = (code), \ 
(cinfo) ->err->msg_parm. i [0] = (pi), 
(cinfo) ->err->msg_^arm.i [1] = (p2) 
(cinfo) ->err->msg_parm, i [2] 
(cinfo) ->err->msg_:parm.i [3] 
{* (cinfo) ->err->error_exit) 
#define ERREXITS (cinfo, code, str) \ 
( (cinfo) ->err->msg_code = (code), \ 

strncpy( (cinfo) -> err- >msg_parm, s, (str), JMSG_STR_PARM_MAX} 
(* (cinfo) ->err->error„exit) ( ( j_common_ptr) (cinfo) ) ) 



(cinfo) ) ) 



(cinfo))) 



(cinfo) ) ) 



(cinfo) ) ) 



\ 
\ 

= (p3), \ 
= (p4), \ 

( ( j_common_ptr) (cinfo) ) ) 



tdefine MAKESTMT{stuf f ) do ( stuff } while (0) 



/* Nonfatal errors (we can keep going, but the data is probably corrupt) */ 
tdefine WARNMS (cinfo, code) \ 

( (cinfo) ->err->msg_code = (code), \ 
(* (cinfo) ->err->emit_message) ( ( j„common__ptr) (cinfo), -1)) 
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idefine WARNMSl (cinf o, code,pl) \ 
{ (cinf o) ->err->msg_code = (code), \ 
(cinfo)->err->msg_parm.i[0] = (pi), \ 

{* (cinf o) ->err->emit__message) ( ( j_conimon_jptr) (cinfo) , -1) ) 
#define WARNMS2 (cinf code, pi ,p2 ) \ 
( (cinf o) ->err->msg„code = (code), \ 
(cinf o) ->err->msg_parm. i [0] = (pi), \ 
(cinfo) ->err->insg_j)arin.i[l] = (p2) , \ 

(* (cinf o) ->err->einit_message) { ( j_common_ptr) (cinfo), -1)) 

/* Informational /debugging messages */ 
#define TRACEMS (cinfo, Ivl, code) \ 
( (cinf o) ->err->msg_code = (code), \ 
(* (cinfo) -> err- >emit_ines sage) ( ( j_coiiimon_ptr) (cinfo) j (Ivl) ) ) 
#define TRACEMS 1 (cinf o, Ivl, code, pi) \ 
( (cinfo) ->err->msg_code = (code) , \ 
(cinf o) ->err->msg_parm. i [0] = (pi), \ 

(* (cinf o) ->err->emit_message) ( ( j_coinmon_ptr) (cinfo), (Ivl))} 
#define TRACEHS2 (cinfo, Ivl, code, pi, p2) \ 
( (cinf o) -> err- >msg_code ~ (code), \ 
(cinfo) ->err->msg_parm. i [0] = (pi), \ 
(cinf o) ->err->msg_parm, i El] = (p2), \ 

(* (cinfo) ->err->emit_message) ( ( j_common_ptr) (cinfo) , (ivl) ) ) 
#define TRACEMS3 (cinf o, ivl , code, pi ,p2 ,p3 ) \ 

MA.KESTMT { int * _mp = (cinf o) ->err->msg_:pariu. i ; \ 

_mp[01 = (pi); _mp[l] = (p2); _mp[2] = (p3); \ 
(cinf o) ->err->msg_code = (code); \ 

(* (cinf o) ->err->emit_message) ( ( j_common_ptr) (cinfo), (Ivl)); ) 
idefine TRACEMS4 (cinfo, Ivl , code, pi, p2,p3 ,p4) \ 
MAKESTMT(int * _mp = (cinf o) ->err->msg_parm. i ; \ 

_mp[03 = (pi); _mp[l] = (p2); „inp[2] =: (p3) ; _mp[3] = {p4); \ 
(cinf o) ->err->msg_code = (code); \ 

(* (cinfo) ->err->e3nit__Hiessage) ( ( j_coinmon_ptr) (cinfo), (Ivl)); ) 
#^fine TRACEMS 5 (cinfo, Ivl, code, pi, p2 ,p3 ,p4 ,p5) \ 
i=^^[AKESTMT (int * „mp = (cinf o) ->err->msg_parm. i; \ 

I:! _mp[0] = (pi); ^[1] = (p2); jnp[2] = (p3); ^[3] = {p4) ; \ 
iJ ^[4] = (p5}; \ 

\J (cinf o) ->err->msg_code = (code); \ 

(* (cinf o) ->err->emit_inessage) ( { j_conimon_ptr) (cinfo), (Ivl)); ) 
#ief ine TRACEMS8 (cinfo , Ivl , code , pi , p2 , p3 , p4 , p5 , p6 , p7 , p8 ) \ 
riMAKESTMT(int * _mp = (cinf o) ->err->msg_parm. i ; \ 

^■1 _mp[0] = (pi); _mp[l] = (p2); _mp[23 = (p3) ; „mp[3] = {p4) ; \ 
^'"^ _mpC4J = (p5); _mp[5] = (p6) ; _mpE6] = (p7) ; _inp[7] = {p8) ; \ 
s (cinfo) ->err->msg_code = (code); \ 

(* (cinf o) ->err->einit_inessage) ( ( j_coinmon_ptr) (cinfo), (Ivl)); ) 
#3.efine TRACEMSS (cinf o, Ivl , code, str) \ 
L::;t (cinfo) ->err->msg„code = (code), \ 

pj strncpy( (cinfo) ->err->msg_parm. s, (str), JMSG_STR_PAR10tAX) , \ 
{* (cinfo) ->err->emit_message) ( ( j_common_ptr) (cinfo) , (Ivl) ) ) 

tWndif /* JERROR__H */ 
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* jinclude.h 
* 

* Copyright (C) 1991-1994, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file exists to provide a single place to fix any problems with 

* including the wrong system include files. (Common problems are taken 

* care of by the standard jconfig symbols, but on really weird systems 

* you may have to edit this file.) 

A- 

* NOTE: this file is NOT intended to be included by applications using the 

* JPEG library. Most applications need only include jpeglib.h. 
*/ 



/* Include auto-config file to find out which system include files we need. */ 

# include "jconfig.h" /* auto configuration options */ 

#define JCONPIG_INCLUDED /* so that jpeglib.h doesn't do it again */ 

/* 

* We need the IJULL macro and size_t typedef . 

* On an ANSI-conforming system it is sufficient to include <stddef ,h>. 

* Otherwise, we get them from <stdlib.h> or <stdio.h>; we may have to 

* pull in <sys/types.h> as well. 

* Note that the core JPEG library does not require <stdio,h>; 

* only the default error handler and data source/destination modules do. 

* But we must pull it in because of the references to FILE in jpeglib.h. 

* You can remove those references if you want to compile without <stdio.h>. 

H 

#ifdef HAVE_STDDEF_J^ 
#feclude <stddef.h> 
#.i4<3if 

#lfdef HAVE_STDLIB„H 
#include <stdlib.h> 
#Mdif 

#ifdef NEED_SYS_TYPES_H 
#aJficlude <sys / types , h> 
#Bndif 

#Tnclude <stdio.h> 

/ff II 

I*"IWe need memory copying and zeroing functions, plus strncpyO. 
N ANSI and System V implementations declare these in <string.h>. 
gli BSD doesn't have the raem() functions, but it does have bcopy () /bsero ( ) . 
3l Some systems may declare memset and memcpy in <memory,h>. 

* NOTE: we assume the size parameters to these functions are of type size_t. 

* Change the casts in these macros if noti 
*/ 

#ifdef NEED_BSD_STRINGS 
tinclude <strings.h> 

#define MEMZERO (target, size) bzero ( (void *) (target), (size_t) (size) ) 

tdefine MEMCOPY(dest, src, size) bcopy((const void *)(src); (void *)(dest), (size_t] (size)) 
telse /* not BSD, assume ANSI/SysV string lib */ 
#include <string.h> 

#define MEMZERO (target , size) memset((void *) (target) , 0, {size_.t) (size) ) 

#define MEMCOPY(dest^ src, size) memcpy ( (void *)(dest), (const void *) (src) , (size_t) (size) ) 

#endif 

/* 

* In ANSI C, and indeed any rational implementation, size_t is also the 

* type returned by sizeof{). However, it seems there are some irrational 

* implementations out there, in which sizeof () returns an int even though 

* size_t is defined as long or unsigned long. To ensure consistent results 

* we always use this SIZEOF () macro in place of using sizeof () directly. 
*/ 

#define SIZEOF (object) { (si2e_„t) sizeof (object) ) 
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/* 

* The modules that use freadO and fwriteO always invoke them through 

* these macros. On some systems you may need to twiddle the argument casts. 

* CAUTION: argument order is different from underlying functions! 
*/ 

#define JFREAD(file,buf ^sizeofbuf ) \ . ^^^ 

((size_t) fread( (void *} (buf ) , (size_t) 1, (size_t) (sizeofbuf ) , (file))) 

#define JFWRITE(file,buf ,sizeofbuf} \ . . . . ^^^ 

{(size_t) fwrite( (const void *) (buf ) , (size_t) 1, (size_t) (sizeofbuf ) , (file))) 



/* 

* jmemsys.h 
* 

* Copyright (C) 1992-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
★ 

* This include file defines the interface between the system- independent 

* and system-dependent portions of the JPEG memory manager. No other 

* modules need include it. (The system- independent portion xs Dmemmgr.c; 

* there are several different versions of the system-dependent portion.) 
* 

* This file works as-is for the system- dependent memory managers supplied 

* in the IJG distribution. You may need to modify it if you write a 

* custom memory manager. If system- dependent changes are needed m _ 

* this file the best method is to #ifdef them based on a configuration 

* symbol supplied in jconfig.h, as we have done with USE_MSDOS_MEMMGR 

* and USE_MAC_MEMMGR. 
V 



/* Short forms of external names for systems with brain-damaged linkers. */ 

#ifdef NEED_SHORT_EXTERNAL_NAMES 
#define jpeg_get_small jGetSmall 
#define jpeg_f ree„small jFreeSmall 
#define jpeg_get_large jGetLarge 
#define jpeg_f ree_large jFreeLarge 
#define jpeg_mem_available jMemAvail 
#define jpeg_open_backing_store jOpenBackStore 
ttdefine jpeg_mem„init jMemlnit 
#(;Igfine jpeg_mem_term jMemTerm 
#^^dif /* NEED__SHORT„EXTERNAL_NAMES */ 

^^^^^These two functions are used to allocate and release small chunks of ^ 

* -^memory (Typically the total amount requested through jpeg_get_small is 
*'^no more than 20K or so; this will be requested in chunks of a few K each.) 

Behavior should be the same as for the standard library functions malloc 
:*^and free; in particular, 3Peg_get_small must return NULL on failure. 
It On most systems, these ARE malloc and free. jpeg_f ree_small is passed the 
Uisize of the object being freed, just in case it's needed. 

* On an 80x86 machine using small-data memory model, these manage near heap. 

id 

Ep'ERN(void *) jpeg_get„small JPP( ( j_common_ptr cinfo, size^t sizeofobject) ) ; 
E^|?ERN(void) jpeg_f ree_small JPP ( ( j_common_^tr cinfo, void * object, 
^^^=i; size__t sizeofobject)); 

/■m-, 

if These two functions are used to allocate and release large chunks of 
y memory (up to the total free space designated by jpeg_meituavailable) . 

* The interface is the same as above, except that on an 80x86 machine, 

* far pointers are used. On most other machines these are identical to 

* the jpeg_get/free_small routines; but we keep them separate anyway, 

* in case a different allocation strategy is desirable for large chunks. 
*/ 

EXTERN(void *) jpeg_get_large JPP ( ( j_common_ptr cinfo, 

size_t sizeofobject)); 
EXTERN{void) j peg.fr ee_large JPP ( ( j_common_j)tr cinfo, void * object, 
size_t sizeofobject)); 



* The macro MAX_ALLOC_CHUNK designates the maximum number of bytes that may 

* be requested in a single call to jpeg„get_large (and jpeg_get_sraall for that 

* matter, but that case should never come into play) . This macro is needed 

* to model the 64Kb-segment-size limit of far addressing on 80x86 machines. 

* on those machines, we expect that jconfig.h will provide a proper value. 

* on machines with 32-bit flat address spaces, any large constant may be used. 

* NB: jmemmgr.c expects that MAX_ALLOC_CHUNK will be representable as type 

* size.t and will be a multiple of sizeof (align_type) . 

* / 

#ifndef MAX_ALLOC_CHUNK /* may be overridden in jconfig.h */ 

tdefine MAX_ALLOC_CHUNK lOOOOOOOOOL 

#endif 
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* This routine computes the total space still available for allocation by 

* jpeg_get_large. If more space than this is needed, backing store will be 

* used. NOTE: any memory already allocated must not be counted. 
* 

* There is a minimum space requirement, corresponding to the minimum 

* feasible buffer sizes; jmemmgr.c will request that much space even if 

* jpeg_mem_available returns zero. The maximimi space needed, enough to hold 

* all working storage in memory, is also passed in case it is useful. 

* Finally, the total space already allocated is passed. If no better 

* method is available, cinf o->mem->max_memory_to_use - al re ady_al located 

* is often a suitable calculation. 
* 

* It is OK for jpeg_mem_available to underestimate the space available 

* (that'll just lead to more backing-store access than is really necessary). 

* However, an overestimate will lead to failure. Hence it's wise to subtract 

* a slop factor from the true available space. 5% should be enough. 
* 

* On machines with lots of virtual memory, any large constant may be returned 

* Conversely, zero may be returned to always use the minimum amount of memory 
*/ 

EXTERN(long) jpeg_mem_available JPP ( ( j_common_ptr cinfo, 

long min_bytes„needed, 
long max_bytes_needed, 
long already_allocated) ) ; 



/* 

* This structure holds whatever state is needed to access a single 

* backing-store object. The read/write/close method pointers are called 
*.:=,by jmemmgr.c to manipulate the backing-store object; all other fields 
^=^are private to the system-dependent backing store routines, 

fl 

#y|fine TEMP_NAME_LENGTH 64 /* max length of a temporary file's name */ 
#||def USE_MSDOS_MEMMGR /* DOS-specific junk */ 

tgfedef unsigned short XMSH; /* type of extended-memory handles */ 
t^edef unsigned short EMSH; /* type of expanded-memory handles */ 

Uypedef union { . ^ . ^ ^ y 

short file„handle; /* DOS file handle if it's a temp file */ 

''^XMSH xms^handle; /* handle if it's a chunk of XMS */ 

CImSH ems„handle; /* handle if it's a chunk of EMS */ 

}p|iandl e_uni on ; 

#Mdif /* USE_MSDOS_MEMMGR */ 

^|def USE3IAC_MEMMGR /* Mac-specific junk */ 

#iliclude <Files.h> 

#endif /* USE_MAC_MEMMGR */ 



typedef struct backing„store_struct * backing_store_ptr ; 

typedef struct backing_s tor e_s true t { . + / 

/* Methods for reading/writing/closing this backing-store object */ 
JMETHOD{void, read_backing_store , { j_common_^tr cinfo, 
backing_store_ptr info, 
void * buf f er_address, 
long file_offset, long byte_count) ) ; 
JMETHOD(void, write„backing_store, ( j_common_ptr cinfo, 
backing_store_ptr info, 
void * buf f er„address , 
long file_offset, long byte_count) ) ? 
JMETHOD{void, close_backing_store , ( j_common_^tr cinfo, 
backing_store_ptr info) ) ; 

/* Private fields for system-dependent backing-store management */ 
#ifdef USE_MSDOS_.MEMMGR 

/* For the MS-DOS manager (jmemdos.c), we need: */ ^. 

handle„union handle; /* reference to backing-store storage object / 

char temp_name[TEMP_NAME_LENGTH] ; /* name if it's a file */ 
#else 

#ifdef USE_MAC„MEMMGR 

/* For the Mac manager (jmemmac.c), we need: */ ^ 
short temp_file; /* file reference number to temp file */ 
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FSSpec tempSpec; /* the FSSpec for the temp file */ 

char tenip_name[TEMP_NAME_LENGTH] ; /* name if it's a file */ 
#else 

/* For a typical implementation with temp files, we need: */ 
FILE * temp_file; /* stdio reference to temp file */ 

char temp_name[TEMP_NAME_LENGTH] ; /* name of temp file */ 

#endif 

#endif 

} backing_store_info; 



* Initial opening of a backing-store object. This must fill in the 

* read/write/close pointers in the object. The read/write routines 

* may take an error exit if the specified maximum file size is exceeded. 

* (If jpeg„mem„available always returns a large value, this routine can 

* just take an error exit.) 
*/ 

EXTERN (void) jpeg_open_backing_store JPP { ( j_common_ptr cinfo, 

backing_store_^tr info, 
long total_bytes_needed) ) ; 



* These routines take care of any system-dependent initialization and 

* cleanup required. jpeg_mem„init will be called before anything is 

* allocated (and, therefore, nothing in cinfo is of use except the error 

* manager pointer) . It should return a suitable default value for 

* max_memory_to_use; this may subsequently be overridden by the surrounding 

* application. (Note that max_memory_to_use is only important if 
*Opeg_mem_available chooses to consult it ... no one else will.) 
£jjpeg_mem_term may assume that all requested memory has been freed and that 
^^lall opened backing-store objects have been closed. 

s 

EffERN(long) jpeg_mera_init JPP ( ( j_common_ptr cinfo)); 
EXTERN (void) jpeg_mem„term JPP( { j_common_ptr cinfo)); 



* jmorecfg.h 

* Copyright (C) 1991-1997, Thomas G. Lane. 

* This file is part of the Independent JPEG Group's software. 

* For conditions of distribution and use, see the accompanying README file. 
* 

* This file contains additional configuration options that customize the 

* JPEG software for special applications or support machine -dependent 

* optimizations. Most users will not need to touch this file. 

*/ 



/* 

* Define BITS_IN_JSAMPLE as either 

* 8 for 8-bit sample values (the usual setting) 

* 12 for 12-bit sample values 

* Only 8 and 12 are legal data precisions for lossy JPEG according to the 

* JPEG standard; and the IJG code does not support anything else I 

* We do not support run-time selection of data precision, sorry. 
*/ 

#define BITSJN.JSAMPLE 8 /* use 8 or 12 */ 



/* 

* Maximum number of components (color channels) allowed in JPEG image. 

* To meet the letter of the JPEG spec, set this to 255, However, darn 

* few applications need more than 4 channels (maybe 5 for CMYK + alpha 

* mask) . We recommend 10 as a reasonable compromise; use 4 if you are 

* really short on memory, (Each allowed component costs a hundred or so 
'^^:bytes of storage, whether actually used in an image or not.) 

#§i|fine MAX_COMPONENTS 10 /* maximum number of image components */ 



Basic data types. 

"^^■You may need to change these if you have a machine with unusual data 
® type sizes; for example, "char" not 8 bits, "short" not 16 bits, 
ffj or "long" not 32 bits. We don't care whether "int" is 16 or 32 bits, 
but it had better be at least 16. 

^/ 



4% Representation of a single sample (pixel element value) , 
^f^^ We frequently allocate large arrays of these, so it's important to keep 
flyl them small. But if you have memory to burn and access to char or short 
arrays is veiry slow on your hardware, you might want to change these. 

3 

#if BITS_IN_JSAMPLE == 8 

T"^' JSAMPLE should be the smallest type that will hold the values 0..255. 
* You can use a signed char by having GETJSAMPLE mask it with OxFF. 
*/ 

#ifdef HAVE_UNSIGNED_CHAR 

typedef unsigned char JSAMPLE; 

#define GETJSAMPLE (value) ((int) (value)) 

#else /* not HAVE_UNSIGNED„CHAR */ 

typedef char JSAMPLE; 
#ifdef CHAR_IS_UNSIGNED 
#define GETJSAMPLE (value) ((int) 
f else 

#define GETJSAMPLE (value) ((int) 
#endif /* CHAR_IS_UNSIGNED */ 

#endif /* HAVE„UNSIGNED__CHAR */ 

#define MAXJSAMPLE 255 
#define CENTER JSAMPLE 128 

#endif /* B I TS_IN_ JSAMPLE == 8 



#if BITS_IN_J SAMPLE == 12 
/* JSAMPLE should be the smallest type that will hold the values 0..4095. 



(value) ) 
(value) & OxFF) 
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* On nearly all machines "short" will do nicely. 
*/ 

typedef short JSAMPLE; 

#define GET JSAMPLE (value) ((int) (value)) 

#define MAXJ SAMPLE 4095 
#define CENTERJSAMPLE 2048 

#endif /* BITS_IN„ JSAMPLE == 12 */ 



/* Representation of a DCT frequency coefficient. 

* This should be a signed value of at least 16 bits; "short" is usual, 

* Again, we allocate large arrays of these, but you can change to mt 

* if you have memory to burn and "short" is really slow. 
*/ 

typedef short JCOEF; 



/* Compressed datastreams are represented as arrays of JOCTET. _ 

* These must be EXACTLY 8 bits wide, at least once they are written to ^ 

* external storage. Note that when using the stdio data source/destination 

* managers, this is also the data type passed to f read/ f write . 
*/ 

#ifdef HAVE_UNSIGNED„CHAR 

typedef unsigned char JOCTET; 
#define GET JOCTET (value) (value) 

#Mse /* not HAVE_UWSIGNED_CHAR */ 

t^edef char JOCTET; 

tttjEdef CHAR_IS_UNSIGNED 

ifefine GET JOCTET (value) (value) 

#define GET JOCTET (value) ((value) & OxFF) 
#lldif /* CHAR_IS_UNSIGNED */ 

rfendif /* HAVE_UNSIGNED_CHAR */ 

These typedef s are used for various table entries and so forth. 
They must be at least as wide as specified; but making them too big 
H won't cost a huge amount of memory, so we don't provide special 
extraction code like we did for JSAMPLE. (In other words, these 
typedef s live at a different point on the speed/space tradeoff curve J 

M UINT8 must hold at least the values 0..255. */ 



#ifdef HAVE_UNSIGNED_CHAR 

typedef unsigned char UINT8; 

#else /* not HAVE_UNSIGNED_CHAR */ 

iifdef CHAR_IS_UNSIGNED 

typedef char UINT8; 

#else /* not CHAR_IS_UNSIGNED */ 

typedef short UINT8; 

#endif /* CHAR_IS_UNSIGNED */ 

#endif /* HAVE_UNSIGNED_CHAR */ 

/* UINT16 must hold at least the values 0.. 65535. */ 

#ifdef HAVE_UNSIGNED_SHORT 
typedef unsigned short UINT16; 
#else /* not HAVE„UNSIGNED_SHORT */ 
typedef unsigned int UINT16; 
#endif /* HAVE_UNSIGNED_SHORT */ 

/* INT16 must hold at least the values -32768 32767 . */ 

#ifndef XMD_H /* Xll/xmd.h correctly defines INT16 */ 

typedef short INT16; 

#endif 

/* INT32 must hold at least signed 3 2 -bit values. */ 

#ifndef XMD„H /* Xll/xmd.h correctly defines INT32 */ 
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typedef int INT32; 
#endif 



/* Datatype used for image dimensions. The JPEG standard only supports 

* images up to 64K*64K due to 16-bit fields in SOF markers. Therefore 

* "unsigned int" is sufficient on all machines. However, if you need to 

* handle larger images and you don't mind deviating from the spec, you 

* can change this datatype, 
*/ 

typedef unsigned int JDIMENSION; 

#define JPEG_MAX_DIMENSION 65500L /* a tad under 64K to prevent overflows */ 



/* These macros are used in all function definitions and extern declarations. 

* You could modify them if you need to change function linkage conventions; 

* in particular, you'll need to do that to make the library a Windows DLL. 

* Another application is to make all functions global for use with debuggers 

* or code profilers that require it. 
*/ 

/* a function called through method pointers: */ 

#define METHODDEF ( type) static type 

/* a function used only in its module: */ 

#define LOCAL (type) static type 

/* a function referenced thru EXTERNs : */ 

#define GLOBAL (type) type 

/* a reference to a GLOBAL f\mction: */ 

#define EXTERN (type) extern type 

/ilThis macro is used to declare a "method", that is, a function pointer. 
.*^iWe want to supply prototype parameters if the compiler can cope, 
if Note that the arglist parameter must be parenthesized! 

Again, you can customize this if you need special linkage keywords. 

#l%def HAVE_PROTOTYPES ^ x n- ^ 

^bfine JMETHOD(type,methodname, arglist) type {*methodname) arglist 

^.^iiLs e 

#^efine JMETHOD(type,methodname, arglist) type (*methodname) () 

M Here is the pseudo-keyword for declaring pointers that must be "far" 
m on 80x86 machines. Most of the specialized coding for 80x86 is handled 
'S'- hv iust saying "FAR *" where such a pointer is needed. In a few places 
explicit coding is needed; see uses of the NEED_FAR_PO INTERS symbol. 

H/ 

imtiaz : commented this out, 
iJfdef NEED_FAR_PO INTERS 
#define FAR far 
#else 

#define FAR far 
#endif 

*/ 

On a few systems, type boolean and/or its values FALSE, TRUE may appear 

* in standard header files. Or you may have conflicts with appli cat lon- 

* specific header files that you want to include together with these files. 

* Defining HAVE_BOOLEAN before including jpeglib.h should make it work. 
*/ 

#ifndef HAVE„BOOLEAN 
typedef int boolean; 

#endif - ^ • 4. * / 

#ifndef FALSE /* in case these macros already exist 

#define FALSE 0 /* values of boolean */ 

#endif 

#ifndef TRUE 
#define TRUE 1 
#endif 



* The remaining options affect code selection within the JPEG library. 



* but they don't need to be visible to most applications using the library. 

* To minimize application namespace pollution, the symbols won't be _ 

* defined unless JPEG_INTERNALS or JPEG_INTERNAL_OPTIONS has been defined. 
*/ 

#ifdef JPEG_INTERNALS 
#define JPEG_INTERNAL_OPTIONS 
#endif 

#ifdef JPEG_INTERNAL_OPTIONS 



These defines indicate whether to include various optional functions. 
Undefining some of these symbols will produce a smaller but less capable 
library Note that you can leave certain source files out of the 
compilation/ linking process if you've #undef 'd the corresponding symbols. 
(You may HAVE to do that if your compiler doesn't like null source files.) 



/* Arithmetic coding is unsupported for legal reasons. Complaints to IBM. */ 

/* Capability options common to encoder and decoder: */ 

#define DCT_ISLOW_SUPPORTED /* slow but accurate integer algorithm */ 
#define DCT_IFAST_SUPPORTED /* faster, less accurate integer method */ 
#define DCT_FLOAT_SUPP0RTED /* floating-point: accurate, fast on fast HW */ 

/* Encoder capability options: */ 

#undef C_ARITH__CODING_SUPPORTED /* Arithmetic coding back end? */ 
#define C_MULTISCAN„FILES_SUPPORTED /* Multiple-scan JPEG files? */ 
#iSfine C_PROGRESSIVE_SUPPORTED /* Progressive JPEG? {Requires MULTI SCAN) * / 

MIfine ENTROPY__OPT„SUPPORTED /* Optimization of entropy coding parms? */ 

/ENote: if you selected 12-bit data precision, it is dangerous to turn off _ 
^ ^ ENTROPY_OPT_SUPPORTED . The standard Huffman tables are only good for 8-bit 
precision, so jchuff .c normally uses entropy optimization to compute ^ 
usable tables for higher precision. If you don't want to do optimization, 
"^^^ you' 11 have to supply different default Huffman tables. 

^jiThe exact same statements apply for progressive JPEG: the default tables 
i^; don't work for progressive mode. (This may get fixed, however.) 

rflfefine INPUT_SMOOTHING_SUPPORTED /* Input image smoothing option? */ 



/(* Decoder capability options: */ 

ffiildef D_ARITH_CODING_SUPPORTED 
^^l^fine D_MULTISCAN_FILES_SUPPORTED 
#dibfine D_PROGRESSIVE_SUPPORTED 
fdkfine SAVE_MARKERS_SUPPORTED 
t^^fine BL0CK_SM0OTHING„SUPPORTED 
fpefine IDCT_SCALING_SUPPORTED 
iiJldef UPSAMPLE_SCALING_SUPPORTED 
#define UPSAMPLE_MERGING_SUPPORTED 
ttdefine QUANT_1PASS__SUPP0RTED 
#define QUANT_2PASS_SUPP0RTED 

/* more capability options later, no doubt */ 



/* Arithmetic coding back end? */ 
/* Multiple-scan JPEG files? */ 
/* Progressive JPEG? (Requires MULTISCAN)*/ 
/* jpeg_save_markers ( ) needed? */ 
/* Block smoothing? {Progressive only) */ 
/* Output rescaling via IDCT? */ 
/* Output rescaling at upsample stage? */ 
/* Fast path for sloppy upsampling? */ 
/* 1-pass color quantization? */ 
/* 2 -pass color quantization? */ 



Ordering of RGB data in scanlines passed to or from the application. 
If your application wants to deal with data in the order B,G,R, just 
change these macros. You can also deal with formats such as R,G,B,X _ 
(one extra byte per pixel) by changing RGB_PIXELSIZE. Note that changing 
the offsets will also change the order in which colormap data is organized. 
RESTRICTIONS • 

1 The sampl4 applications cjpeg,djpeg do NOT support modified RGB formats. 
2* These macros only affect RGB<=>YCbCr color conversion, so they are not 

useful if you are using JPEG color spaces other than YCbCr or grayscale. 
3 The color quantizer modules will not behave desirably if RGB_PIXELSIZE 
is not 3 (they don't understand about dummy color components!). So you 
can't use color quantization if you change that value. 



*/ 



#define RGB„RED 0 /* Offset of Red in an RGB scanline element */ 

#define RGB_GREEN 1 /* Offset of Green */ 

#define RGB_BLUE 2 /* Offset of Blue V 

#define RGB_PIXELSIZE 3 /* JSAMPLEs per RGB scanlme element */ 
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/* Definitions for speed-related optimizations. */ 



/* If your compiler supports inline functions, define INLINE 
* as the inline keyword; otherwise define it as empty. 
*/ 

#ifndef INLINE ^ ^. . . • 

#ifdef GNUC /* for instance, GNU C knows about mime */ 

#define INLINE inline 

#endif 

#ifndef INLINE 

#define INLINE /* default is to define it as empty */ 

#endif 

#endif 



/* On some machines (notably 68000 series) "int" is 32 bits, but multiplying 

* two 16-bit shorts is faster than multiplying two ints . Define MULTIPLIER 

* as short on such a machine. MULTIPLIER must be at least 16 bits wide. 
*/ 

#ifndef MULTIPLIER . . ^ * / 

#define MULTIPLIER int /* type for fastest integer multiply */ 

#endif 



/* FAST_FLOAT should be either float or double, whichever is done faster 

* bv vour compiler. {Note that this type is only used in the floating point 

* DCT routines, so it only matters if you've defined DCT„FLOAT_SUPPORTED . ) 
*^ Typically, float is faster in ANSI C compilers, while double is faster m 
£jpre-ANSI compilers (because they insist on converting to double anyway) . 
■■^"The code below therefore chooses float if we have ANSI-style prototypes. 

i 

Mfndef FAST_FLOAT 
Mfdef HAVE_PROTOTYPES 
tdifine FAST_FLOAT float 
fllse 

fine FAST_FLOAT double 
Aidif 
fekdif 

#endif /* JPEG_INTERNAL_OPTIONS */ 
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for (i = l;i<4 + + ) r_Leye [i] = - f abs ( r_Leye [i] ) 



vl = sqrt (r_Leye [1] *r_Leye [1] +r_Leye [2] *r_Leye [2] +r_Leye [3] *r_Leye [3] ) 
for (i=l;i<4;i++) { r_Leye [ i] /=vl ; LL [ i] =l/r_Leye [i] ; } 
if (how== ' Y' ) LLL=IL [1] / (r_ALscale [1] *LL [1] ) ; 
v3=hypot (r_Leye [1] ,r_Leye[2] ) ; v2=-r_Leye [2] *r_Leye[3] /v3 
ul=r_Leye [2] /v3 ; u2 = - r_Leye [ 1 ] /v3 ; 

a=Na [2] *u2-Na [1] *ul ; b=Ma [3] *v3 -Ma [2] *v2 -Na [ 1] *vl ; 

ml={int) ( niin(r_LE/r_DIM,r_Hr*a/ (b*r_DIM) ) ) ; m2=(int) (ml*b/a 

a=r_DIM/du ; unl=ul *Na [ 1 ] *a ; un2 =u2 *Na [ 2 ] *a ; 
vnl=vl*Na [1] *a ; vn2=v2 *Na [ 2 ] *a ; vn3=v3*Na [3 ] *a ; 



vl=-r_Leye [1] *r_Leye [3] /v3 



du= min (a/ml , b/m2) 



MX [ 0 ] = 0 ; 
NX [2] =0 ; 

NX [4] - (int) (-unl) ; 

NX [6] - (int) (ml*r_DI]yi-l) ; 

NX [8] -NX [6] ; 

NX [10] = (int) (un2) ; 

NX [12] =MX [0] ; 

a=_Tnax( (double) (r^HI) / (r 
for (i=l;i<=13;i+=2) 



NX [1] = (int) (r_HI+vn2) ; 
NX [3] = (int) (r_HI+vn2-vn3) ; 
NX [5] = (int) (r_HI+vnl+vn2-vn3) ; 
NX [7] = (int) (r_HI-vl* (NX [6] -un2) /ul-vn3) ; 
NX[9] = (int) (r_HI~vl* (NX[8] -un2) /ul) ; 
NX [11] = (int) (r_HI) ; 
NX [13] =NX [1] ; 
MAXY-25) , (double) (r_LE) / (r_MAXX-225) } ; 



} 

//! 
if 

{ 



nx [i] = (int) (NX [i] /a + 20) ; 

nx [i-1] - (int) (NX [i-1] /a+220) ; 

! setf illstyle ( EMPTY_FILL , 0 ) ; 
( (ml< = 3) I I (m2< = 3) | | (du< 0.001) 



bar (214,17,r_MAXX,r_MAXY) ; 



sprintf (r_error, "Rendered image is too small'' 
return false; 



/ ^i^l setlinestyle (SOLID__LINE, 0 , MORM_WIDTH) ; rectangle (216 , 19 , 224+r__LS/a , 24+r__HI/a) ; 
/l^lidrawpoly (7,nx) ; 

b=ig20-unl/a; c = 20+ ( r_HI +vnl+vn2 ) /a; 

/r|lline(b,c,nx[0] ,nx[l] ) ; line (b , c , nx [4] , nx [5] ) ; line (b , c, nx [ 8] , nx [9] ) ; 
/ fhh&T (b, c, b+8 , c + 8) ; bar (nx [0] , nx [1] , nx [ 0] + 16 , nx [ 1] +8 ) ; 

/jillbar (nx [4] , nx [5] , nx [4 ] +16 , nx [5] +8 ) ; bar(nx[8] -8 ,nx [9] , nx [8] +8 , nx [9] +8) ; 
/^|louttextxy(b,c, "0") ; 
/^h ! if (r_OZ>0) outtextxy (nx [4] , nx [5] 
/)'¥! switch (r_OX) { 



z"); else outtextxy (nx [4 ], nx [5] -z " ) 



outtextxy (nx [0] ,nx[l] 
outtextxy (nx [0] ,nx[l] 
outtextxy (nx [0] ,nx[l] 
outtextxy (nx [0] ,nx[l] 

c=20+ (r HI-vn3) /a; 



') ; 



outtextxy (nx [8] -8,nx[9] 
outtextxy (nx [ 8 ] - 8 , nx [ 9 ] 
outtextxy (nx [8] -8 ,nx [9] 
outtextxy (nx [8] -8 ,nx [9] 



"y" ) ; 
"-y") 

" -X" ) 
"X" ) ; 



/ f i I case 
/ ILl: 1 case 
/^:| ! case 
/ ! case 

mh } 

b"^;22 0+un2/a ; . _ 

//.|lline (b,c,220+un2/a,20 + r_HI/a) ; line (b , c , 22 0 , 20+ ( r_HI +vn2 -vn3 ) /a 
/Jllline (b, 
Cyi=ul ; 
AP [1] =du; 
CFl-vnl; 
r DIMl=ml; 



break 
break 
break 
break 



nx[8] ,nx [7] ) ; set 1 inestyle ( SOLID_LINE , 0 , THICK_WIDTH) 



CU2=u2; 
AP [2] =unl; 
CF2=vn2 ; 
r DIM2=m2 ; 



CVl=vl; 
AP [3] =un2 ; 
CF3=vn3 ; 



CV2=V2; 



CV3=v3 ; 



return 

} 



true ; 



* 

* Find cube sign with respect to the current surface level. 

* Returns: 0-equal signsof the cube vertices 

* 1-different signs 

ie 

★********************^***************^*********************************/ 

bool RayTracer : :CUBESIGN( int al , int a2 , int a3 , int a4 , int a5 , int a6 , int a7, int aS) 
{ 

if { 

( (al>r_LEV) (a2>r_LEV) Sc& ( a3 >r_LEV) &5e ( a4 >r_LEV) && 

(a5>r_LEV) &&(a6>r_LEV) &&(a7>r_LEV) &&(a8>r_LEV) ) | | 

( (al<r_LEV) &&(a2<r_LEV) &&(a3<r_LEV) ( a4 <r_LEV) && 

(a5<r_LEV) (a6<r_LEV) ( a7<r_LEV) &&(aS<r_LEV) ) ) return false; 
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else return true; 

} 



* MOVING RAY, JUMPING FROM ONE EDGE TO ANOTHER, 

* AND SEEKING FOR ROOT, IF IT EXISTS. 

* RETURNS: DEPTH>=0 - BODY'S FOUND. 

* -1 - BODY WASN^T FOUND 

double RayTracer :: JUMP (double t) 

{ 

int m , k , kl , i , i 1 , f in , h , sp [ 4 ] ; 

long pf qf h,pd, qd; 

long dt=0; 

double d, f , fh, a,b; 

kl = 0; 

/* LET'S JUMP : */ 

jump: i=TOP[l] ; k=T0P[2] ; m=T0P[3] ; 

if (CUBES IGN(F{i,k,m) ,F(i,k+l,m) ,F(i,k,m+l) , F ( i , k+1 , m+1 ) ,F{i + l,k,Tu} , 
F(i+l,k+l,m) ,F(i+l,k,m+l) ,F(i+l,k+l,m+l))==0) 

{ 

/* JUMP'S STEP: */ 

h= min( min(P[l] ,P[2] ) ,P[3] ) ; 

fOtt:i=(il = l;il<4;il + + ) { 
£i;(h= = P[il] ) { if (P[il]= = -IL[il] ) NX[il]--; 

else P [il] =-IL [il] ; 

Ql if (NX [il] <=0) return (-1); 

J^^: TOP[il] =NX[il] -1; IED[il]=il; 

) 

eBlse { if (P [il] = = -IL [il] ) { if(NX[il]<l) return (-1) ; 

NX [il] - - ; 

St } 

^■i- P[il]-=h ; IED[il]=0; TOP [ i 1 ] =NX [ il ] ; 

} 

Lj. } /* i^ext il */ 

f^l=0 ; 

^"f /* end of going trough cube with equal signs of tops */ 

!:ff(kll=0) { pd^pfh; 
Olse { EDGEO ; 

fin=0 ; 

/* JUMP'S STEP: */ 

h= min{ min(P[l] ,P[2] ) ,P[3] ) ; 

for(il=l;il<4;il++) { 
sp[il] -P[il] ; 
if(h==P[il]) { if (P[il]==-IL[il] ) NX[il]--; 
else P[il]=~IL[il] ; 

if (NX [il] < = 0) f in=l; 
TOP [il] =NX [il] -1 ; ZED [il] =il ; 

} 

else { if (P [il] - = -IL [il] ) { if(NX[il]<l) return (-1); 

NX [ i 1 ] - - ; 

} 

P[il]-=h ; IED[il]=0 ; TOP [ i 1 ] =NX [ i 1 ] ; sp [ 1 1 ] + = P [ i 1 ] ; 
} 

} /* next il */ 
EDGEO; pfh=PE; qfh=QE; /* pfh/qfh = PE/QE */ 

if( ( (pfh>0) && (pd<0) ) I I ( (pfh<0) && (pd>0) ) ) { 

f=FUNC(sp[l] ,sp[2] ,sp[3] ) ; d= ( double ) (pd) /qd ; f h= ( double ) (pfh) /qfh 
if{f==fh) return ( t+dt+0 , 5*h*d/ (d-f ) ); 
if(f==d) return ( t+dt+h* (f -0 . 5*f h) / (f -fh) ); 
a = f/(fh-d); b = d-f; b + = b; b=:fh/b; 
return ( t+dt+ (a+b) *h*d/ (f h-f ) ); 



qd=qfh; } 

pd=PE; qd=QE; if(pd==0) return ( t+dt); } 
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} 

if( pfh==0 ) { f=FUNC(sp[l] . sp[2] , sp[3] ) ; 

if( ( (f > = 0) &&(pd<0) ) I I ( (f< = 0) &&(pd>0) ) ) { 
d= (double) (pd) /qd; return ( t+dt+ ( 0 . 5*h*d) / (d-2*f ) ); 
} 

else return ( t+(dt+h) ) 

} 

kl=l ; if(fin==l) return (-1) ; 
} /* end of going trough the cube with different signs of tops */ 

dt+=h; 
goto jump; 

} 



* MOVING RAY, JUMPING FROM ONE EDGE TO ANOTHER, 

* AND SEEKING FOR ROOT, IF IT EXISTS. 

* RETURNS: +1 - BODY'S FOUND. 

ic - 1 - BODY WASN ' T FOUND 

irfl RayTracer : : Q_JUMP ( ) 

irftf m, k, kl , i , il , f in, h; 
iSHg fh,d; 

ksSiO; 

/*..!' LET'S Q_JUMP : */ 

qj^Jmp: i=TOP[l] ; k=T0P[2] ; m=T0P[3] ; 

il|cUBESIGN(F(i,k,m) ,F(i,k+l,m) ,F(i,k,m+l) , F ( i , k+1 , m+ 1 ) ,F(i+l,k,m) , 
F(i + l,k+l,m) ,F(i + l,k,Tn+l) , F ( i + 1 , k+1 , m+1 ) )=: = 0) 

'J 

Q_JUMP'S STEP: */ 

hQ_min( min(P[l] ,P[2]),P[3]) ; 

fg(il = l;il<4;il + +) { 

iy(h==P[il]) { if (P [il] = = -IL[il] ) NX[ill--; 

%| else P [il] =-IL [il] ; 

Hi if (NX [il] <=0) return (-1); 

Z: TOP [il] =NX [il] -1; IED[il]=il; 

else { if (P[il] ==-IL[il] ) { if(NX[il]<l) return (-1) ; 

NX[il] --; 

} 

P[il]-=h ; IED[il]=0; TOP [ il ] =NX [ il ] ; 

} 

} /* next il */ 

kl=0 ; 

} /* end of going trough cube with equal signs of tops */ 
else 

if(kll=0) d-fh; else { EDGE ( ) ; d=PE; } 
fin=0 ; 

/* Q_JUMP'S STEP: */ 
h=_min(_min[P [1] ,P[2] ) ,P[3] ) ; 
for (il=l; il<4 ;il++) { 
if(h= = P[il]) { if (P[il] ==-IL[il] ) NX[il]--; 
else P[il]=-IL[il] ; 

if (NX [il] < = 0) f in=l; 
TOP [il] =MX [il] -1; lED [il] =il; 
} 

else { if (P [il] = = -IL [il] ) { if(NX[il]<l) return (-1); 
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NX [il] ; 

P[il]-=h ; IED[il]=0 ; TOP [ i 1 ] =NX [ i 1 ] ; 

} 

} /* next il */ 
EDGEO ; fh = PE; 

if ( ( (d> = 0) &&{fh< = 0) ) I I ( (d< = 0) &&{fh>-0) ) ) return (+1) ; 

kl=l ; if(fin==l) return (-1) ; 
} /* end of going trough the cube with different signs of tops * 

goto qjump; 

} 





/* CALCULATES FUNCTION'S VALUE ON THE EDGE : 
IL12=IL[1] *IL[2] ;IL13=IL[1] *IL[3] ; IL23 
void RayTracer :: EDGEO 



F = PE/QE 
:IL [2] *IL [3] 



; QE=-IL[1] 
; QE=-IL[2] 
; QE=-IL[3] 

(F(i+1. j ,k) 



int i , j , k; 
1 ong z , a , b ; 

i=NX[l] / j=NX[2] ; k=NX[3] ; z = F{i.j.k) ; 
switch (IED[1] +IED[2] -IED[3] ) { 

case -1: PE = P [1] * {F (i + 1.] ,k) -z) - (z-r_LEV) '^IL [1] 
case -2: PE = P [2] * ( F ( i , j +1 . k) -z ) - ( z -r_LEV) * IL [2] 
case 3: PE=P [3 ] * ( F ( i , j , k+1 ) -z ) - ( z -r^LEV) * IL [ 3 ] 
case -3 : 

a=Jz-F(i+l, j ,k) -F(i, j+l,k)+F(i + l,j+l,k) ) *P[2] - 
l£J(F(i, j+l.k) - z) *P[2] - {z-r_LEV) *IL[2] ; 
^g:3a*P [1] -b*IL [1] ; QE-IL12; break; 
cars.e 2 : 

iU{z-F{i + l,j ^K) -F{i, j ,k+l) +F(i + 1, j .k+1) ) *P [3] - (F(i + 1 
BO(F(i, j ,k+l) -2) *P [3] - (z-r__LEV) *IL [3] ; 
#gi=a*P[l] -b*IL[l] ; QE=IL13; break; 
C^0je 1 : 

a^:(z-F(i, j+l,k] - F(i, j .1^+1) 
By(F(i, j ,k+l) - z) *P[3] - (z-r_LEV) *IL[3] ; 
fM=a*P [2] -b*IL [2] ; QE=IL23; breaks- 
default: PE=z-r LEV; QE=1; break; 



break; 
break; 
break ; 



/^ 



-z) *IL [2] 
/ 



0 0 3 */ 



,k) -z) *IL[3] 
/ 



*P [3] - (F(i, j+l,k) -z) *IL[3] ; 

/* 1 0 0 



0 2 0 */ 



} 



reTurn; 



/J^CALCULATES FUNCTION VALUE IN THE POINT (x,y,z) 
CIrETURNS- FUNCTION VALUE 

double RayTracer : :FUNC (long x, long y. long z) 
{ 

int i,j,k,f,fl; 
long a,b; 

i=NX[l]; j=NX[2]; k=NX[3]; f = F(i,j;k); f 1 = F ( i , j , k+ 1 ) ; 

a=x* { (f +F(i+1, j+l.k) -F(i+1, j ,k) -F(i, j+l,k) ) *y+(F(i+l, j ,k) -f ) *DL2 ) 

+DL1*{ (F(i, j+l,k) -f ) *y+(f-r_LEV) *DL2 ); 
b=x* { (f 1+F(i+1, j+l,k+l) -F(i+1, j ,k+l) -F(i, j+l,k+l) ) *y+DL2* ( F ( i+l , j . k+1 ) 

-f 1) ) +DL1* ( (F(i, j+l,k+l) -f 1) *y+(f l-r_LEV) *DL2 ) ; 
return ( a*Dl+ (b- a) * ( z *D2 ) ); 



/* INSTALL YOUR POINT ON THE CUBE EDGE (X,Y,Z- DISTANCES) 
RETURNS: IS[p] [q] (IF POINT CAN ^ T BE INSTALLED, 
FILLS IS [p] [q] =-1 ) 

void RayTracer :: INST (int p, int q, int u, int v) 
{ 

int i; 

double a,h, e [4] ; 
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IS[p] [q] =-1; 
U+=p ; V+=q; 

e [1] =CUl*u+CVl*v+CFl; e [ 2 ] =CU2 *u+CV2 *v+CF2 ; e [ 3 ] =CV3 '^v+CFS ; 

h= max( max(e [1] , e [2] ) , e [3] ) ; 

for (i=l;i<4;i++) { 
if{h- = e[i]) { NX[i] =r_N[i] ; P[i]=-IL[i]; IED[i]=i; TOP [ i ] =r__N [ i ] - 1 ; ) 
else { a-AP [i] +e [i] -h; if(a<0.5) return; 

AA={long)a; NX [ i] =AA/ ( - IL [ i ] ) ; P [ i] =AA+ ( long) (NX [ i ] ) * IL [ i] ; 
if(P[i]==0) { if{NX[i]-=0) { P[i]=l; IED[i]=0; TOP[i]=0; } 
else { P[i]=-IL[i]; IED[i]=i; TOP [ i ] =NX [ i] - 1 ; } 

} 

else { IED[i]=0; TOP [ i ] =NX [ i ] ; } 
} 

} /* next i */ 
IS [p] [q] =Q_JUMP 0; return ; 

} 



/* 

/^CALCULATE INTENSITY: 
b 



a <-r DIM-> t 



rM0URN : 

VSd>=r_COLb*BD , IF BODY EXISTS 

0 2 IF BODY WAS NOT FOUND 

iM RayTracer :: INTENS (double a, double b, double c, double double t) 

double norl,nor2; 
r if (t<0) return 0; 
if {a>-0) 



if ( 0 = 0) norl = c-a; 
else norl=2* ( t-a) ; 



Ise 



if (c> = 0) norl = 2* (c-t) ; 
else norl=0; 



if (d>=0) 



if (b>=0) nor2=b-d; 
else nor2=2*(t-d) 



else 



if {b>=0) nor2=2* (b-t) ; 
else nor2=0; 



return ( (int)( B 1+B2/ sqrt (norl*norl+nor2 *nor2+DOWN) 



/* 

/^ESTABLISH SURFACE PRESENCE FILLING IS[] [] ARRAY 
* 

■k 
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void RayTracer :: CHESS (int uu, int vv, int il, mt i2, mt i3, mt i4 , 

int jl, int j2, int j3, int j4, int j5, int j6, 
int j7, int j8) 

{ 

signed char p^q^pO; 

// Set IS to unindentif ied "-2" 

pO = IS [0] [0] ; 

f or (p=0 ;p<r_DIM;p + + ) { f or ( q=0 ; q<r_DIM ; q+ + ) IS [p] [q]=-2; J 
IS [0] [0] =p0; 
// Get corners 

INST(0,r__DIMl,uu,vv) ; INST ( r_DIMl , 0 , uu , vv) ; INST ( r_DIMl , r_DIMl , uu , vv) ; 
// Is DIM small ? 
if (r_DIM<=2) 

GUR02 ( ,il,i2,i3,i4,]l, j2, j3, j4, j5, j6, j7, j8,uu,vv} ; 
return ; 

1 

// DIM is >2; do the "chess" work 
pO-IS [0] [0] ; 

if ( p0 = =IS[0] [r_DIMl] ScSc pO = =IS [r_DIMl] [0] pO = = IS [r_DIMl] [r__DIMl] ) 

^ f or (p=0 ;p<r_DIM;p + + ) { f or (q^O ; q<r_DIM; q+ + ) IS [p] [q] =pO ; } 
GUR02 ( ' * ' , il, i2 ; i3 , 14 , j 1, j 2 , j 3 , ]4 , j5, j6 , j 7, j 8 ,uu, vv) ; 
return ; 

} 

q-0; pO-0; 
while (q<r_DIM) 

{ 

f or (p = pO ;p<r_DIM;p + = 2) 
{ 

if ( IS [p] [q] I --2) continue; 
y1 else INST (p , q, uu, vv) ; 

pO = l-pO; q++; 

} 

for (p = l;p<r_DIMl;p + = 2) 

^] ^ if (IS [p-1] [0] ==IS [p] [1] && IS [p-1] [0] ==IS [p+1] [0] ) IS [p] [0] =IS [p-1] [0] ; 
else INST(p,0,uu,vv) ; 

' } 

|:r^^ for (q=l;q<r_DIMl;q+ = 2) 

^ if (IS[0] [q-l]==IS[l] [q] && IS [0] [q-1] -=IS [0] [q+1] ) IS [0] [q] =IS [0] [q-1] ; 
else INST (0 ; q, uu, vv) ; 

for (p= (r_DIMl%2) +1 ; p<r_DIMl ; p+=2 ) 

Q ^ if (IS [p-1] [r_DIMl] = = IS [p] [r_DIMl-l] IS [p- 1] [r_DIMl] =-IS [p + 1] [r_DIMl] ) 

{ IS [p] [r_DIMl] =IS [p-1] [r_DIMl] ; } 
else INST(p,r_DIMl,uu,vv) ; 

} 

for (q= (r_DIMl%2) +1 ; q<r_DIMl ; q+= 2 ) 

^ if (IS [r_DIMl] [q-1] ==IS [r_DIMl-l] [q] IS[r_DIMl] [ q- 1 ] I S [ r_D IMl ] [q+1]) 

{ IS [r_DIMl] [q] -IS [r_DIMl] [q-1] ; } 
else INST (r_DIMl , q, uu, vv) ; 

} 

q=l; pO=l; 
while (q<r_DIMl) 

{ 

for (p=pO+l ;p<r_DIMl ;p+=2) 
{ 

if (IS[p] [q] !=-2) continue; 

if( IS [p-1] [q] =-IS [p + 1] [q] ScSc IS [p-1] [q] = = IS [p] [q-1] 
IS [p-1] [q] = = IS [p] [g+1] ) IS [p] [q] =IS [p-1] [q] ; 

else INST (p, q,uu, vv) ; 

} 

pO=l-pO; q++; 

GUR02 ('*' ,il, i2, 13,14, jl,j2,j3,j4,j5, j6,j7,j8,uu,vv) ; return ; 
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/* 

/* FILLS SQUARE WITH GUR02 INTENSITY: Jl< -r_DIM- > J2 

MASK: -LIGHT 

-AS IN IS' CODE J8 13 14 J3 



J7 



II 

(ix, iy) 
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J4 



J6 



J5 



RETURNS PICTURE 



void RayTracer : :GUR02 (char mask, long il, long i2, long i3, long i4 , 

long jl, long j2, long ]3, long j4, long j5, 
long j6, long j7, long jS, int ix, int iy) 



int x,y , xx,yy ; choix=0 ; 

long al2,a21 , a2 0 , a0 2 , all , aOl , al 0 , aO 0 , pas , pasy , in , debut , kpas , Ipas; 
long kdebut , Idebut , Ipasy ; 
if {mask== ' * ' ) { 
if{il>0) choix=l ; if(i2>0) choix+=10 
if(i3>0) choix+=100; if{i4>0) choix+=1000; 
switch (choix) { 



case 


1 : i 2 


= il 




i3==il ; i4 = il 




if (jl< 


^0) 


jl = 


il; if(j2<=0) 




if (j4< 


= 0} 


j4 = 


il; if(j5<=0) 




if (j7< 


= 0) 


j7 = 


il; if(j8<=0) 




break; 










10: il 


= i2 




i3=i2 ; i4=i2 




if ( jl< 


= 0) 


jl = 


i2; if(j2<=0) 




if (j4< 


= 0) 


34 = 


i2; if(j5<=0) 




if (j7< 


= 0) 


j7 = 


i2; if(j8<=0) 




break; 








case 


11 : i3 


= 11 




i4=i2 ; 




if(jl< 


= 0) 


jl = 


il; if(j2<=0) 




if (j4< 


= 0) 


j4 = 


min ( i 1 , i2 ) ; 




if (j7< 


= 0) 


j7 = 


min ( il , i2 ) ; 




break ; 








e'k^se 


100: il 


= i3 




i2=i3 ; i4=i3 




if (jl< 


= 0) 


jl = 


i3; if(j2<=0) 




if (j4< 


= 0) 


j4 = 


i3; if(j5<=0) 




if (j7< 


= 0) 


j7 = 


13; if(j8<=0) 




break; 








ll(;se 


101: i2 


= il 




i4=i3 ; 




if (jl< 


= 0) 


jl = 


min ( il , i3 ) ; 




if (j4< 


= 0) 




il; if(j5<=0) 




if (j7< 


= 0) 


j7 = 


il; if(j8<=0) 




break; 








case 


110: il 


= (i2+i3 


)/2 ; i4=il ; 




if {jl< 


= 0) 


jl = 


13; if(j2<=0) 




if (j4< 


= 0) 


j4 = 


12; if(j5<=0) 




if (j7< 


= 0) 


j7 = 


12; if(j8<=0) 




break ; 








case 


111: i4 




min(i2,i3) ; 




if (jl< 


= 07" 




mm ( il , i3 ) ; 




if (j4< 


= 0) 


j4=: 


min ( il , 12) ; 




if (j7< 


= 0) 


j7 = 


min ( il , 12 ) ; 



if(j6<=0) j6=il; 



jS^il; 



j 2 = i2 ; 



if (j3< = 0) 
j5=i2; if(j6<=0) 
j 8 = 12 ; 



j2=i2; if(j3<=0) 
if(j5<=:0) j5 = i2; 



j3=i2; 
j6-i2; 



j3=i2; 

if(j6<=0) j6=il; 



if(j8<=0) j8=il; 



j5=i3; if(j6<= 
j 8 = 13 ; 



0 ) j 6 = 1 3 ; 



if(j2<=0) j2=i3; if(j3<=0) j3=i3; 

]5 = il; if(j6< = 0) j6= mind 1,13); 

j 8 = i3 ; 



j 8 = 1 3 ; 



if { j2< = 0) 
if (j5<-0) 
if ( j 8< = 0) 



--0) j3-i3; 



]2=l2; if(j3<=0) j3=i3; 

j5=i2; if(j6<=0) j6= min(il,i3) 

j 8 = 13 ; 



break ; 
case 1000: il=i4 
if (jl< = 0) 
if ( j4< = 0) 
if (j7< = 0) 

break ; 

case 1001: i2=(il+i4)/2 



i2=i4 ; 13=14 ; 
jl=i4; if(j2<=0) j2=i4. 

if(j5<=0) j5=i4j 
if(j8<=0) j! 



j4 = i4 ; 
j7=i4; 



if ( j3< = 0) 
if ( j 6< = 0) 



j3=i4; 
3 6 = i4 ; 



) 8 = i4 ; 



13 = 12 



if ( ji< = 0) 


jl = 


il; 


if ( j2< 


= 0) 


j2=i4; if{j3<=0) 


j3=i4 ; 








if { j4< = 0) 


j4 = 


il; 


if (j5< 


= 0) 


j5=i4; if(j6<=0) 


j6=ll; 








if ( j7<==0) 


j7 = 


11; 


if ( j8< 


= 0) 


j 8 = 14 ; 










break; 




















1010: il=i2 




13 


= i4 ; 














if (jl< = 0) 


jl = 


14 ; 


if ( j2< 


= 0) 


j 2= mm ( i2 , 14) ; 


if ( j3< = 


0) 


J3 = 


14 ; 


if ( j4< = 0) 


j4 = 


12; 


if ( j5< 


= 0) 


j 5= mm (12,14) ; 


If ( j6< = 


0) 


j6 = 


12 ; 


if (j7< = 0) 


j7=: 


12; 


if (j8< 


= 0) 


j8-i4; 











break; 
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min ( 1 1 , 



14) ; 
jl=il; if(j2<-0) 

j 4= min ( il ; i2 ) ; 

j 7= min ( il , i2) ; 



j2= min(i2, i4) ; if ( j3< = 0) 

if (j5< = 0) j5= min(i2,i4) ; 

if(j8<=0) j8=i4; 



j3 = i4 ; 
if ( j6< = 0) 



j 6 = i 1 ; 



i2=i4 ; 
jl=i3; if(j2<=0) 
j4=i4; if(j5<=0) 
j7=i3; if(j8<-0) 



j2=i4; if(j3<=0) 
j5=i4; if(j6<=0) 
j 8= min ( i3 , i4 ) ; 



if(j2<=0) j2=i4; 
j5=i4; if(j6<=0) 
j 8= min (i3 , i4 ) ; 



j 3= min 

j6 = i3 ; 



:i3,i4) 



if ( j3< = 0) j3= min(i3 , i4) 

j 6= min (il , i3) ; 



case 1011: i3: 

if ( jl<=0) 
if ( j4<-0) 
if (j7< = 0) 
break; 
case 1100: il=i3 
if {jl<-0) 
if ( j4< = 0) 
if (j7< = 0) 
break; 

case 1101: 12= min(il,i4) ; 

if ( j 1< = 0) j 1= min ( il , 13) ; 

if(j4<=0) j4=il; lf(j5<=0) 
if(j7<=0) j7=il; if(j8<=0) 
break; 

case 1110: 11= min(i2,i3) ; 

if(jl<=0) jl=l3; if(j2<=0) 

if(j4<=0) j4=i2; if(j5<=0) 

if(j7< = 0) j7 = l2; if(j8< = 0) 

break ; 
default : return; 

} /* end of switch */ 

a00 = 4*il*r_DIM3 ; al 0= ( - 3 * 1 1 + 5 * 1 2 - j 7 - j 4 ) *r_DIM2 ; aO 1= ( - 3 * 1 1 + 5 ^ 1 3 - j 1 - j 6 ) *r_D IM2 

a02= (-Il-i3 + jl + j6) *r_DIM ; a20 = ( - 1 1 - 12 + j 4 + j 7) *r_D XM ; 

a21 = ll + l2-l3-i4+j3-j4-j7 + j8 ; al2 = 11 - 12 + 13 - 14 - j 1 + j 2 + j 5 - j 6 ; 

all= (2*11-4*12-4*13 + 6*14 + ] 1-j 2- j3 + j4-j5 + j 6 + ] 7- j 8) *r_DIM ; 

pas=a02+a01 ; kpas=2*al2 ; lpas=a2 l+al2+all ; 

debut=a00 ; kdebut=2*a20 ; Idebut=al0+a20 ; 

lSsy=2* (al2+a02) ; 

fS (x=0,xx=lx;x<r_DIM;x++,xx + +) { 
p^y=pas ; in=debut; 

y;Sf or (y=0 ,yy=r_HI-iy;y<r_DIM;y++,yy--) { 

Cj If (IS[x] [yl >0) 



j 2 = min (12 , 

j 5= min ( 12 , 

j 8= min (13 , 



14) 
14) 
14) 



If (j3< = 
if (j6<^ 



j 3= min ( 13 , 14 ) 

j6 = i3 ; 



int pix=in/BD; 

r Screen->SetPlxel (xx.yy , pix) 



ln+=pasy ; 
^' pasy+ = lpasy; 
p|fs + = kpas*x+lpas ; 
d|lut+=kdebut*x+ldebut ; 



return; 



} /* end of mask= ' * ' 



e'^'^e { 

p(jl< = 0) jl= mln(il,i3); lf(j2< = 0) j2= min(i2,l4); if(j3< = 0) 

l4(j4< = 0) j4=_min(ll, 12) ; lf(j5< = 0) j 5=_mln ( 12 , 14 ) ; if(j6< = 0) 
if(j7<=0) j7= mln(ll,l2); lf(j8<=0) j8= min(i3,l4) 

a00=4^11*r_DIM3 ; al0= ( -3 *il+5*i2 - j 7- j 4 ) *r_DIM2 ; a01= 

a02=(-ll-l3+jl+j6) *r_DIM ; a2 0= ( - 11 - 12+ j 4 + j 7 ) *r_DIM ; 

a21 = il + i2-l3-i4 + j3-j4-j7 + j8 ; al2 = ll-l2 + i3 - 14 - j 1 + j 2 + j 5 - j 6 

all=(2*il-4*l2-4*i3+6*i4+jl-j2-j3+j4-j5+j6+j7-j8) *r_DIM ; 

pas=a02+a01 ; kpas=2*al2 ; lpas=a2 l+al2+al 1 ; 

debut=a00 ; kdebut=2*a20 ; ldebut=al 0+a20 ; 

lpasy=2* (al2+a02) ; 

int lmax=4*r_DIM3* max ( max ( il , 12) , max ( 13 , 14) ) /BD; 

int imin^4*r_DIM3* min ( rain ( il , 12) , min (i3 , 14) ) /BD; 

for (x=0 , xx=ix;x<r_DIM;x++ ,xx++) { 
pasy=pas ; in=debut ; 

for (y=:0 ,yy=r_HI -iy ;y<r_DIM;y++ ,yy- - ) { 
int pix=in/BD; 

lf(plx>imax) plx^imax; else if(plx<lmln) pix=imin; 
r_Screen->SetPlxel (xx,yy,plx) ; 

in+=pasy ; 

pasy+=lpasy; } 
pas+=kpas*x+lpas ; 
debut+=kdebut*x+ldebut ; 

} 



j 3= min (i3 , i^. ) 

j 6= min (13 , 11) 



3*il+5*l3-jl-j6) *r_DIM2 



return ; 

} /* end of case mask !: 
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* 

* Set voxel scaling 



******************************************* 



bool RayTracer: :SetVolumeScales (double sx, double sy, double sz) 

double smin= min(sx, min(sy, sz) ) ; 

double smax= max(sx, max{sy,sz)) ; 

if ( srain<=0 ) 

sprintf (r__error , "Non-positive volume scale"); 
return false; 

) 

const int maxscale=64 ; 
double coef =maxscale/ smax ; 

r_ALscale [1] = max(l, (int) min (raaxscale , sx*coef +0 . 5 ) ) 

r_ALscale [2] = max ( 1 , ( int) min (maxscale, sy*coef + 0 . 5) ) 

r_ALscale [3] = max ( 1 , (int) min (maxscale , sz *coef +0 . 5 ) ) 

return true; 



/ 



* J;[ Set observer's eye position 

^ ^^*^* + ^^ + **********************************************************/ 

v<ard RayTracer :: SetEyePosition (double x, double y, double z) 

3=? r_Leye [1] =x; 

i-l": r_Leye [2] =y; 

Fh : r_Leye [3 ] = z ; 

/ 



Set observer's eye position, where 
deg_hor and deg_ver are angles in radians 



vf5'id RayTracer :: SetEyePositionOnSphere (double deg_hor, double deg_ver) 
double c=cos (deg_ver) ; 

SetEyePosition(c*cos (deg__hor) , c* sin (deg_hor ) , sin(deg_ver) ) ; 

} 

* Set tracing granularity 
★ 

void RayTracer : :SetGranularity( int gr) 
{ 

r_DIM=gr ; 

if (r_DIM>16) r_DIM=16 ; 

else if(r_DIM<2) r_DIM=2; 

} 
* 

* Set isosurface level to be visualized 

ie 

^^^^^^^*^^*^**************+***************************^******+*******'^^/ 

void RayTracer : :SetSurfaceLevel( int lev) { r_LEV=lev; } 

* Set max and min body color 



15 



RayTracer . cpp 



10/27/00 



*********************** 

void RayTracer : :SetBodyColor (int cmin, int cmax) 

{ 

cmin= max(cinin,0) ; 

if ( cmin>cmax) 

{ 

int t=cmin; cmin=cmax ; cmax=t; 
r COLb=cmin; // body minimum 

r_COLf=__max(l,cmax-cmin) ; // body range: r_COLf = ( f oreground-r_COLb) 

} 

/*********************************************************************** 
* 

* Return VOXEL value 
* 

***********************************************************************/ 



int RayTracer :: F (int x, int y, int z) 
{ 

h 

switch(r Rot ationCode) 



case 


001 


return 


F_ 


_XpYpZm 


(X 




z) ; 


case 


010 


return 


f" 


'xpYmZp 


(X 




z) ; 


case 


oil 


return 


F_ 


_XpYmZm 


(X 




z) ; 


case 


100 


return 


f] 


"XmYpZp 


(X 


,y > 


z) ; 


c a"S:e 


101 


return 


f' 


_XmYpZm 


(X 




z) ; 


c^'e 


110 


return 


f" 


_XmYmZp 


(X 


,y , 


z) ; 


c^^e 


111 


return 


f" 


_XmYmZm 


(X 




z) ; 


dSault : 


return 


r 


Vo 1 ume 


- >GetVox 



return ( this->*F__XYZ) (x,y,z) 



/ f I* *********************************************************** **** * 

* 1 "iS 

*p Functions to obtain voxel value for 
*L£.. different volume orientation. 
*Jr.r.; Array r_N[] must be already modified 
* ---^ 

*i|*****************************************************************'^**/ 

iM RayTracer : :F_XpYpZp( int x, int y, int z) 



{^^ return r_Volume- > Get Voxel 
iht RayTracer :: F_XmYpZp { int x 
{£| return r_Volume- >GetVoxel 
int RayTracer : :F_XpYmZp (int x 
{ return r_Volume- >GetVoxel 
int RayTracer : :F_XmYmZp( int x 
{ return r_Volume- >GetVoxel 
int RayTracer F_XpYpZm ( int x 
{ return r_Vo 1 ume -> Get Voxel 
int RayTracer : :F_XmYpZm( int x 
{ return r_Volume - >GetVoxe 1 
int RayTracer : :F_XpYmZm( int x 
{ return r_Volume -> Get Voxel 
int RayTracer :: F_XmYmZm ( int x 
{ return r Volume -> Get Voxel 



X , y , z J ; 

int Y, int z) 
r_M [2] ~x, z) ; 

int y, int z) 
r_N [1] -y,x, z) ; 

int y, int z) 
r_N [1] -X, r_N [2] -y, z) ; 

int y, int z) 
y , X , r_M [ 3 ] - z ) ; 

int y, int z) 
r_N [1] -x,y, r_N [3] -z) ; 

int y, int z) 
x,r_N[2] -y,r_M[3] -z) ; 

int y, int z) 
r_N[l] -y,r_N[2] -x,r_N[3] -z) ; 
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// Volume, cpp: implementation of the Volume class. 
// 



#include "Volume. h 

llllllllllllllllll 
II Construction/Destruction 



Volume : : Volume ( ) 

{ 

m Fmax=-3 0000; m Fmin=3 0000; 



Volume : : -Volume ( ) 
{ 



■k 

* Functions returning volume dimensions - OVERRIDE (virtual) 

int Volume; :GetXSize() { return 40; } 
int Volume: :GetYSize() { return 40; } 
int Volume: :GetZSize() { return 40; } 

^^^11+^^*******^**^ **************************************** ********** 

* . 

*!:: Function returning voxel - OVERRIDE (virtual) 

* y - 

^^1^^**************** ***************************** ******************/ 

iik Volume : :GetVoxel (int x, int y, int z) 

return ((x-20)*(x-20) + (y-20)*(y-20) + (z-20)*(z-20)-50 0)/3; 
^ //return (x+y+z) ; 

/■t*****************************************************"*****'^******* 
*f'| Find min and max voxel values 



*y| *********************************************************** 
vtsid Volume : : FindMinMax ( } 

^Zt if (m_Fmax>m_Fmin) return; // already found 
int i , j , k, vox; 

m_Fmax=m_Fmin=GetVoxel (0,0,0) ; 
for(i^0; i<GetXSize ( ) ; i++) 

for(j=0; j<GetYSize() ; 
{ 

for(k=0; k<GetZSize(); k++) 

{ 

vox=GetVoxel ( i , j , k) ; 

if (vox>m_Fmax) m_Fmax=vox; 

else if (vox<m_Fmin) m_Fmin=vox; 

} 

} 

if (ra_Fmax<=m_Fmin) m_Fmax=m_Fmin+l ; 

} 

/*********^ ********************************************************** 
* 

* Return min and max voxel values 
* 

********************************************************************/ 
void Volume : :GetMinMax ( int &fmin, int &fmax) 

{ 

FindMinMax ( ) ; 
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fTnin=m_Fmin; f Tnax=Tn_FTnax ; 

} 
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// Volume. h: interface for the Volume class. 

////////////////////////////////////////////////////^//////^^//^//^^// 

#if Idef ined(AFX_^VOLUME_H_lFBBBEll_9D18_llD3_814 0_000000000000_INCLUDED_) 

#def ine AFX_VOLUME_H 1FBBBE11_9D18_11D3_814 0_00 00 00 0 000 0 0 INCLUDED_ 

#if _MSC_VER > 100 0 
#pragma once 

#endif // _MSC_VER > 1000 



class Volume 

{ 

public : 

void GetMinMax ( int& fmin, int& fmax) ; 
virtual int GetVoxel(int x, int y, int z) ; 
virtual int GetZSizeO; 
virtual int GetYSizeO; 
virtual int GetXSizeO; 
Volume ( ) ; 

virtual -Volume ( ) ; 



private : 

void FindMinMax 0 ; 
int m_Fmin, ra_Fmax; 

}; 

#endif // !def ined(AFX_VOLUME_H__lFBBBEll_9D18_llD3_8140_000000000000__INCLUDED 



// pixels. h 

////////////////////////////////////////////////////////////////////// 

#if I defined {AFX_PIXELS_H INCLUDED„} 

#def ine AFX_PIXELS_H INCLUDED.. 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
#include " . . \dicom.hpp" 

#include " . . \cctypes .h" // Added by CI ass View 

////////////////////////////////////////////////////////////////////// 
// 

// RawPixelDecoder class. 

////////////////////////////////////////////////////////////////////// 
class RawPixelDecoder 

{ 

public : 

bool Load_Pixels (FILE* inf ile) ; 

bool Load_Pixels(BYTE* data, UINT32 data_size) ; 

long GetPixelMinimumO { return m_PixMin; }; 

long GetPixelMaximumO { return m_PixMax; }; 

inline long GetBuf feredPixel Sample (UINT3 2 n) ; 

inline long GetBuf feredPixel (UINT32 n) ; 

RawPixelDecoder {UINT3 2 npixels, int bits_alloc, 

int bits_stored, int high_bit, 

int samples_per_pixel, int endian=l) ; 

virtual -RawPixelDecoder ( ) ; 

private : 

5f bool m_ReleaseBuf ferMemory; 

01 BYTE* nupBuffer; 

J% int m„Sampl es Per Pixel; 

r"^ int m_PixShif t; 

"H int in_LitEndian; 

4% int ituBytesPerPixel ; 

7;5^ long ra_PixMin, m_PixMax; 

f ^ UINT3 2 m_nSamp 1 e s ; 

nJ UINT32 nuPixMask; 

UINT32 m_nBytes; 

UINT32 m_nPixels ; 

p=:; void Digest ( ) ; 

5': void ReleaseBuf ferO ; 

IIJ void Initialize (UINT32 npixels, int bits_alloc, 
\J int bits_stored, int highjDit, 

int samples_per..pixel, int endian=l) ; 
^ bool SetPixelMask(int bits_allocated, 
fj int bits_stored, int high_bit) ; 

bool ValidO; 

* 

* Get sample and pixel #n in little endian 
* 

inline long RawPixelDecoder :: GetBuf f eredPixelSample (UINT32 n) 

if (n>=m_nSamples) n=m_nSamples-l; // safe 

n *= ra_BytesPerPixel; // map to array byte address 

long p=ra_pBuf f er [n] ; 

switch {m_BytesPerPixel ) 

{ 

case 2 : 

p:=p I ( ( (UINT32)m_pBuf fer [n+1] )«8 ); 
break; 
case 3 : 

p=p I ( ( (UINT32)m_pBuffer[n+ll )«8 ); 
p:=p I { ( (UINT32}m_pBuffer [n+2] )«16 ); 
break; 
case 4: 



p=p 
P=P 
P==P 
break; 



( ( (UINT32)m_pBuf fer [n+1] ) «8 ); 
( ( (UINT32)m_pBuffer[n+2] )«16 ); 
( ( (UINT32)m_pBuf fer[n+3] )«24 ); 
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) 

return {p»m_PixShif t) &m_PixMask; 

inline long RawPixelDecoder : :GetBuf f eredPixel (UINT32 n) 
{ 

if (ia_SamplesPerPixel==l) 

return GetBuf f eredPixelSample (n) ; 

} 

else 
{ 

n *= m_S ampl es Per Pixel; 

long p=GetBufferedPixelSample{n} ; 

for{int i=l; i <m_Sainples Per Pixel ; i++) 

{ 

n++; 

p += GetBuf f eredPixelSample (n) ; 

} 

p l~ m„SamplesPerPixel; 
return p; 

} 

} 

////////////////////////////////////////////////////////////////////// 
// 

// RawPixelEncoder class. 

////////////////////////////////////////////////////////////////////// 
class RawPixelEncoder 

{ 

public: 

Q void TransferDataToVR(VR *vr) ; 

bool SetSize (UINT32 size) ; 

UINT32 AddData(BYTE* buf, UINT32 buf_size, 
yii UINT32 fliprawbytes=0) ; 

RawPixelEncoder { ) ; 

virtual -RawPixelEncoder {) ; 

pjfivate ; 

J! bool m__ReleaseBuf ferMemory; 

nj BYTE* nt_pBuffer; 

UINT32 m_Buf f erPtr ; 

UINT32 m_Size; 

r=7: void ReleaseBuffer () ; 

f^dif // !defined{AFX_PIXELS_H_2A361EE3_CEAB_llD3_AF48_000000000000_INCLUDED_) 
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// pixel s.cpp 

///////////////////////////////////////////////////////////////^/////^ 
#include "pixels. h" 

Iflllllllinilllllllllllllllfllinillllllllllllllllll^^ffl'^f'f^^'^^^f 
II Construction/Destruction 

i/i/iiiiiiii/iiififiiiniJi/iiniff(ininnin^iffffff^fff^^ff^^f^^^^ 

RawPixelDecoder: :RawPixelDecoder(UINT32 npixels, int bits_alloc, 

int bits_stored, int high_bit, 
int samples_per_pixel, int endian/*=l*/ ) 

{ 

m_BytesPerPixel=0 ; 
m_LitEndian=l ; 

m_nBytes=m_nPixels=m_nSainples=m_SamplesPerPixel=0; 
m_pBuf fer=NULL; m_ReleaseBuf ferMeraory= false ; 
m_PixMask=m_PixShif t-0 ; 

Initialize ( npixels, bits_alloc, bits_stored, high_bit, 
samples _per_pixel , endian ) ; 

RawPixelDecoder : : -RawPixelDecoder { ) { ReleaseBuf f er ( ) ; } 

***************************************************** *********** 

* 

* Initialize buffer parameters 

*************************************************** ***************/ 
void RawPixelDecoder: : Initialize (UINT32 npixels, int bits_alloc, 

int bits_stored, int high_bit, 
int samples jer_pixel, int endian/ *=1* / ) 

m ReleaseBuf ferMemory=false; . . n i 

-.r- mlnPixels^npixels; // number of pixels to read; one pixel may have several samples 
2^^ m_BytesPerPixel=(bits_alloc+7)/8; // number of bytes per pixel 
y"^ m_SamplesPerPixel=samples_per_j>ixel; // samples per pixel 

m_nSamples=m_nPixels*m_SamplesPerPixel ; 

m_LitEndian=endian; // endian type 

m_nBytes=ra_nSamples*m_BytesPerPixel; // total number of bytes ^ 

if { lSetPixelMask(bits_alloc, bits„stored, high_bit) ) m_BytesPerPixel = 0; 

Hi 

/S> ************************************************************** *********** 
*r , Validate current parameter values 

^g,********************************** *************************** ************/ 
lK>pl RawPixelDecoder : : Valid { ) 

^^^i if{ m_BytesPerPixel<=0 M m_BytesPerPixel>4 M 

^ ni_SamplesPerPixel<=0 | | m_SamplesPerPixel>4 | | 

m_nPixels<=4 | | m_nSamples<=4 | | m_nBytes<=4) 

Q { 

return false; 

} 

else return true; 

J*************************************************************************** 
* Compute pixel mask parameters 

!***************************************************************************/ 

bool RawPixelDecoder: :SetPixelMask( int bits_allocated, int bits_stored, int high_bit) 

if( bits_allocated<bits_stored M bits_allocated<high_bit || 
bits_allocated<=0 | | bits_stored<=0 ) return false; 

m_PixMask=l; 

for (int i=l; i<bits_stored; i++) 

m_PixMask = {m_PixMask«l) +1; 

m_PixShi f t =high_bi t -bi t s_s tor ed+ 1 ; 
return true; 

} 

^******************************* ***************************** *************** 
* 

* Load pixel data, in bytes, from the input file or buffer 
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********************* ******************************* 

bool RawPixelDecoder: :Load_Pixels (FILE * infile) 

if(iValid()) return false; 

ReleaseBuf ferO ; 

try 

^ m_pBuffer=new BYTE [in_nBytes] ; // pixel buffer 
if { inupBuf fer) return false; // out of memory 

catch (...) { return false ; } 
memset (m_pBuf f er , 0 ,m„nBytes) ; 
m_ReleaseBufferMemory=true; 

if {fread(mjBuffer,l,ra_nBytes, infile) < m_nBytes) return false; 
Digest 0 ; 
return true; 

bool RawPixelDecoder: :Load„Pixels (BYTE *data, UINT32 data_size) 

^ ifdValidO) return false; 

ReleaseBuffer {) ; -, ^ ^ 

if {m_nBytes>data_size) return false; // incomplete data 
m_ReleaseBuf ferMemory=false; 
m_pBuf fer=data; 
Digest 0 ; 
return true; 

} 



/li********** *************************************************** ************ 

*y 

*;!] Process loaded pixel bytes. Return pixel range 

*'^4********* ******************************************************* *********/ 
^fSkd. RawPixelDecoder: : Digest 0 

UINT32 i; 

//If not little endian - go swap bytes 
^ , if ( Im_LitEndian) 

r1 ^ : :SwitchEndian(m^Buffer, irunBytes, iti^BytesPerPixel) ; 

m } 

^1 // Find min and max pixel SAMPLE values 
Pii long p? 

I:; m_PixMin=GetBuf f eredPixelSample ( 0 ) ; 
O m_PixMax=in_PixMin+l; 

for(i=l; i<m_nSamples; i++) 

{ 

p=GetBuf f eredPixelSample (i) ; 
if (p>m_PixMax) m_PixMax=p; 
else if (p<m_PixMin) m_PixMin=p; 

} 

} 

/^****************************************************** ******************** 
* 

* Release allocated buffer memory 

*^********* *****************************************************************/ 
void RawPixelDecoder: :ReleaseBuf f er ( ) 

if (m_ReleaseBuf f erMemory) 
{ 

if {m_pBuf f er) 

delete [] m_^Buffer; 
m_pBuf f er=NULL ; 

} 

m^ReleaseBuf ferMemory=false; 

} 

} 
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int nXpos = 0; 

int nYposl = nTop + 1; 

int nYpos2 = nBottom - 2; 

for (int i = 0; i < nNumBands; 

^ nXpos - nAdjust + (i * IMD_BAND_WIDTH) ; 

pDC->SelectObject ( &m_penColorDarker ) ; 
pDC->MoveTo (nXpos + 1, nTop) ; 
pDC->LineTo (nXpos + nHeight, nBottom); 

pDC->SelectObj ect ( &m_penColorDark) ; 
pDC- >MoveTo (nXpos + 2, nTop) ; 
pDC->LineTo (nXpos + nHeight + 1, nBottom); 
pDC->MoveTo (nXpos + 10, nTop); 
pDC->LineTo (nXpos + nHeight + 9, nBottom); 

pDC->SelectObj ect ( &m_penColor ) ; 

pDC->MoveTo (nXpos + 3, nTop); 

pDC->LineTo (nXpos + nHeight + 2, nBottom); 

pDC->MoveTo (nXpos + 9, nTop); 

pDC->LineTo (nXpos + nHeight + 8, nBottom); 

pDC->SelectObject ( &m_penColorLight ) ; 
pDC->MoveTo (nXpos + 4, nTop); 
pDC->LineTo(nXpos + nHeight + 3, nBottom); 
pDC->MoveTo (nXpos + 8, nTop); 
pDC->LineTo (nXpos + nHeight + 7, nBottom); 

pDC->SelectObject (&m_penColorLighter ) ; 

pDC- >MoveTo (nXpos + 5, nTop); 

pDC->LineTo(nXpos + nHeight + 4, nBottom); 

pDC->MoveTo (nXpos + 1 , nTop) ; 

pDC->LineTo (nXpos + nHeight + 6, nBottom); 
} // for the number of bands 
} //if indeterminate 
else 
{ 

int nRight = rect. right; 

pDC->MoveTo (nLef t + 2, nBottom - 4); 
pDC->LineTo (nRight - 2, nBottom - 4); 
pDC->MoveTo(nLef t + 2, nTop + 2) ; 
pDC->LineTo (nRight - 2, nTop + 2); 

pDC->SetPixel (nLef t + 1, nBottom - 3, m_crColorLight) ; 
pDC->SetPixel(nLef t + 1; nTop + 1, m_crColorLight) ; 

pDC->SelectOb3ect { Scm_penColorLighter ) ; 
pDC->MoveTo (nLef t + 2, nBottom - 5); 
pDC->LineTo (nRight - 3, nBottom - 5); 
pDC->LineTo (nRight - 3, nTop + 3); 
pDC->LineTo (nLef t + 1, nTop + 3); 

pDC->SetPixel (nLef t + 1. nBottom - 4, m_crColorLighter ) 
pDC->SetPixel (nLef t + 1. nTop + 2, m_crColorLighter) ; 

pDC->SelectObj ect ( &m_penColor ) ; 
pDC->MoveTo (nLef t , nBottom - 1); 
pDC->LineTo (nLef t , nTop); 
pDC->LineTo (nLef t + 2, nTop); 

pDC->SetPixel (nLef t + 1, nBottom - 2, m_crColor) ; 
pDC->MoveTo (nLef t + 2, nBottom - 3); 
pDC- >LineTo (nRight - 2, nBottom - 3); 
pDC->MoveTo (nLef t + 2, nTop + 1); 
pDC->LineTo (nRight - 1; nTop + 1); 

pDC->SelectObj ect ( &m_penColorDark) ; 
pDC->MoveTo (nLef t + 2, nBottom - 2); 
pDC->LineTo (nRight - 2, nBottom - 2); 
pDC->LineTo (nRight - 2, nTop + 1); 
pDC->MoveTo (nLef t + 2, nTop); 
pDC->LineTo (nRight , nTop) ; 

pDC->SetPixel (nLef t + 1, nBottom - 1. m_crColorDark) ; 
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pDC->SelectObj ect ( &m_penColorDarker ) ; 
pDC->MoveTo (nLef t + 2, nBottom - 1) ; 
pDC->LineTo (nRight - 1, nBottom - 1); 
pDC->LineTo (nRight - 1, nTop) ; 

pDC->SelectObj ect ( &m_penShadow) ; 
pDC->MoveTo (nRight , nTop) ; 
pDC- >LineTo {nRight , nBottoTti) ; 

pDC->SelectObj ect ( S:ra_penLiteShadow) ; 
pDC->MoveTo (nRight + 1^ nTop) ; 
pDC->LineTo (nRight + 1, nBottom); 
} // if not indeterminate 

pDC->SelectObj ect (pOldPen) ; 
] II DrawHorizontalBar 

// 

void CMacProgressCtrl : :DrawVerticalBar (CDC *pDC, const CRect rect) 
// 

// Return Value: None. 

II ^- . 

II Parameters : pDC - Specifies the device context object. 

II rect - Specifies the rectangle of the progess bar. 

// 

// Remarks : Draws a vertical progress bar. 

// 

{ 

t'\ int nHeight = rect . Height () ; 
if ( 1 nHeight) 
retum,' 

u": int nLeft = rect. left; 

Z\ int nTop = rect. top; 

int nRight = rect. right; 

4"j int nBottom = rect. bottom; 

CPen *pOldPen = pDC- >SelectObj ect ( S:m_penColor ) ; 



IND_BAND_WIDTH) + 2; 
+ 1; 



int nAdjust = nBottom - m_nlnd0f f set ; 

int nXposl = nLeft; 

int nXpos2 = nRight + 1; 

int nYpos = nTop + 1; 

for (int i 0 ; i < nNumBands; i + + ) 

nYpos = nAdjust - (i * IND_BAND_WIDTH) ; 

pDC->SelectObject ( &m_penColorDarker ) ; 
pDC->MoveTo (nXposI , nYpos); 
pDC->LineTo (nXpos2 , nYpos + nHeight); 

pDC->SelectObject ( &m_penColorDark) ; 
pDC->MoveTo (nXposI , nYpos + 1); 
pDC->LineTo (nXpos2 , nYpos + nHeight 
pDC->MoveTo (nXposI , nYpos + 9); 
pDC->LineTo (nXpos2 , nYpos + nHeight 

pDC->SelectObj ect ( &m_penColor ) ; 
pDC->MoveTo (nXposI , nYpos + 2); 
pDC->LineTo {nXpos2 , nYpos + nHeight 
pDC->MoveTo (nXposI , nYpos + 8); 
pDC->LineTo (nXpos2, nYpos + nHeight 

pDC->SelectObject ( &m_penColorLight ) ; 
pDC->MoveTo (nXposI , nYpos + 3); 
pDG- >LineTo (nXpos2 , nYpos + nHeight + 3); 
pDC->MoveTo (nXposI , nYpos + 7); 



if (m_blndeterminate) 

int nNumBands = (nHeight / 
int nHeight = rect. Width () 



+ 1) ; 
+ 9) ; 



+ 2) ; 
+ 8) ; 
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pDC->LineTo (nXpos2 , nYpos + nHeight + 7) ; 

pDC~>SelectOb j ect ( ScinjenColorLighter ) ; 

pDC- >MoveTo (nXposl , nYpos + 4); 

pDC->LineTo (nXpos2 , nYpos + nHeight + 4); 

pDC->MoveTo (nXposl , nYpos + 6); 

pDC->LineTo (nXpos2 , nYpos + nHeight + 6); 
} // for the number of bands 
} // if indeterminate 
else 

{ 

if (nHeight > 3) 
{ 

pDC->MoveTo (nLef t , nTop + 1); 

pDC->LineTo (nLef t , nTop) ; 

pDC->LineTo (nRight , nTop) ; 

pDC->MoveTo (nLef t + 1, nBottom - 2); 

pDC->LineTo (nLef t + 1, nTop + 1); 

pDC- >MoveTo (nRight - 3, nBottom - 3); 

pDC- >LineTo (nRight - 3, nTop + 1); 

pDC- >SetPixel (nRight - 2, nTop + 1, m_crColor) ; 

pDC->SelectObj ect ( &m__penColorLight ) ; 
pDC->MoveTo (nLef t + 2, nBottom - 3); 
pDC->LineTo (nLef t + 2, nTop + 1) ; 
pDC->MoveTo (nRight - 4, nBottom - 3); 
pDC->LineTo (nRight - 4, nTop + 1) ; 

pDC->SetPixel (nLef t + 1, nTop + 1, m_crColorLight ) ; 
pDC->SetPixel (nRight - 3, nTop + 1, m_crColorLight ) ; 

'f, pDC->SelectObj ect ( &m_penColorLighter ) ; 

pDC->MoveTo (nLef t + 3, nBottom - 3); 

pDC->LineTo (nLef t + 3, nTop + 1); 
^ pDC->MoveTo (nRight - 5, nBottom - 3); 

7'i pDC->LineTo (nRight - 5, nTop + 1); 

pDC->SetPixel (nLef t + 2, nTop + 1, m_crColorLighter) ; 
V^J pDC->SetPixel (nRight - 4, nTop + 1, m_crColorLighter) ; 

;"M pDC->SelectObject (&m_penColorDark) ; 

' pDC->MoveTo (nLef t , nBottom - 1); 

pDC->LineTo (nLef t , nTop + 1); 

pDC->MoveTo (nLef t + 2, nBottom - 2) ; 
f% pDC->LineTo (nRight - 2, nBottom - 2); 

!:! pDC->LineTo (nRight - 2, nTop + 1) ; 

pDC->SetPxxel (nRight - 1, nTop + 1, m_crColorDark) ; 

pDC- >SelectObj ect (£cm__penColorDarker) ; 
i:: pDC->MoveTo (nLef t + 1, nBottom - 1); 

pDC->LineTo (nRight - 1, nBottom - 1); 
pDC->LineTo (nRight - 1, nTop + 1); 

} 

else 

{ 

CBrush br (m_crColor) ; 

CBrush *p01dBrush = pDC- >SelectObj ect ( &br ) ; 
pDC->SelectObj ect (&m_penColorDark) ; 
pDC->Rectangle (rect) ; 
pDC->SelectObj ect (pOldBrush) ; 

} 

} // if not indeterminate 

pDC- >SelectObj ect (pOldPen) ; 
) // DrawVerticalBar 



// 
// 

BOOL CMacProgressCtrl : lOnSraseBkgnd (CDC^ pDC) 
// 

// Return Value: Nonzero if it erases the background; otherwise 0. 
// 

// Parameters : pDC - Specifies the device - context object. 
// 

// Remarks : The framework calls this member function when the 

// CWnd object background needs erasing (for example. 
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// when resized) . It is called to prepare an invalidated 

// region for painting. 

// 

{ 

return TRUE; 
} // OnEraseBkgnd 

// 

// 

void CMacProgressCtrl : :GetColors() 
// 

// Return Value: None. 

// 

// Parameters : None. 
// 

// Remarks : Calculates the lighter and darker colors, as well as 

// the shadow colors. 

// 

{ 

m_crColorLight = LightenColor (m_crColor , 51); 
ni_crColorLighter = Lightened or (rci^crColorLight , 51); 
m_crColorLightest = LightenColor (m_crColorLighter , 51); 
m_crColorDark = DarkenColor (m_crColor , 51); 
rii_crColorDarker = DarkenColor (m_crColorDark , 51); 
m_crDkShadow = : :GetSysColor (C0L0R_3DDKSHAD0W) ; 
m_crLiteShadow = : : Get SysColor ( C0L0R_3DSHAD0W) ; 

// Get a color halfway between C0L0R_3DDKSHAD0W and C0L0R_3DSHAD0W 

BYTE byRedSDDkShadow = GetRValue (m_crDkShadow) ; 
Q BYTE byRed3DLi teShadow = GetRValue (m_crLi teShadow) ; 

BYTE byGreen3DDkShadow = GetGValue (m_crDkShadow) ; 
::Z BYTE byGreen3DLiteShadow = GetGValue (m_crLiteShadow) ; 

BYTE byBlueSDDkShadow = GetBValue (m_crDkShadow) ; 

BYTE byBlue3DLiteShadow = GetBValue (m_crLiteShadow) ; 

m__crShadow = RGB (byRedSDLiteShadow + ( (byRed3DDkShadow - byRed3DLi teShadow) >> 1) , 
^"Z byGreen3DLiteShadow + ( (byGreen3DDkShadow - byGreen3DLi teShadow) >> 1) , 

"CJ byBlue3DLiteShadov/ + ( (byBlue3DDkShadow - byBlue3DLiteShadow) >> 1)); 

}fU // GetColors 

/y 

vBid CMacProgressCtrl :: SetColor (COLORREF crColor) 
/Si 

/'J'"' Return Value : None . 

/2"^ Parameters : crColor - New color. 

/J' Remarks : Sets the progress bar control's color. The lighter 

// darker colors are recalculated, and the pens recreated. 

// 

( 

m_crColor = crColor; 
GetColors ( ) ; 
CreatePens { ) ; 
RedrawWmdow ( ) ; 
} // SetColor 

// 

// 

COLORREF CMacProgressCtrl: :GetColor() 
// 

// Return Value: The current color. 

// 

// Parameters : None. 

// 

// Remarks : Returns the progress bar control's current color. 

// 
{ 

return m_crColor; 
) // GetColor 

// 

// 



7 



MacProgressCtrl . cpp 



10/27/00 



void CMacProgressCtrl : : Create Pens ( ) 

// 

// Return Value: None. 

// 

// Parameters : None. 
// 

// Remarks : Deletes the pen objects, if necessary, and creates them. 

// 
{ 

DeletePens ( ) ; 

m_penColorLight . CreatePen ( PS__SOLID , 1, m_crColorLight) ; 
m_penColorLighter , CreatePen (PS_SOLID, 1, m__crColorLighter) ; 
Tn_penColor . CreatePen ( PS_SOLID , 1, m_crColor) ; 
m_penColorDark.CreatePen (PS__SOLID, 1, ra^crColorDark) ; 
m_penColorDarker . CreatePen (PS_SOLID, 1, m_crColorDarker) ; 
m_penDkShadow . CreatePen (PS_SOLID , 1, m_crDkShadow) ; 
m_penShadow. CreatePen (PS_SOLID, 1, m_crShadov/) ; 
m_penLiteShadow. CreatePen (PS_SOLID, 1, m_crLiteShadow) ; 
} // CreatePens 

// 

// 

void CMacProgressCtrl : ; DeletePens ( ) 
// 

// Return Value: None. 

// 

// Parameters : None. 

// 

//'"^Remarks : Deletes the pen objects. 

/J] 

if {m_penColorLight . m_hObj ect ) 
^=11 m_penColorLight . DeleteObj ect ( ) ; 

i; if (m_penColorLighter . m_hOb j ect ) 

m_penColorLighter . DeleteOb j ect ( ) ; 
if (Tn_penColor . m_hObj ect ) 

m_penColor . DeleteObj ect ( ) ; 
nij if (m_penColorDark . m_hObj ect ) 

m_penColorDark . DeleteObj ect ( ) ; 
if (m_penColorDarker . m_hOb j ect ) 
y^- m_penColorDarker - DeleteObj ect ( ) ; 

rj: if (m__penDkShadow.m_hOb j ect ] 

m_penDkShadow. DeleteOb j ect ( ) ; 
if {m_penShadow . m_hObj ect ) 
"^■| in_penShadow. DeleteObj ect {) ; 

rii if (mjenLiteShadow. m_hObj ect ) 

m_penLiteShadow, DeleteOb] ect ( ) ; 
I";;: // DeletePens 

// 
// 

void CMacProgressCtrl :: Set Indeterminate (BOOL bindeterminate ) 
// 

// Return Value: None. 
// 

// Parameters : bindeterminate - Specifies the indeterminate state. 

// 

// Remarks : Sets the indeterminate flag. 

// 
{ 

m_blndeterminate = bindeterminate; 
if (m_blndeterminate) 

{ 

CRect rect; 
GetClientRect (rect ) ; 
m_nlnd0ffset = 0; 

RedrawWindow ( ) ; 

SetTimer ( IDT_INDETERMINATE, 25, NULL) j 

] 

else 

{ 
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KillTimer (IDT_INDETERMINATE) ; 
RedrawWindow ( ) ; 

} 

} // Setlndeterminate 

// 

// 

BOOL CMacProgressCtrl : : Getlndetermmate ( ) 
// 

// Return Value: m_blndeterminate . 
// 

// Parameters : None. 
// 

// Remarks : Returns m_blndeterminate . 

// 

{ 

return m_blndeterminate ; 
} // Getlndeterminate 

// 

// 

void CMacProgressCtrl : rOnTimer (UINT nIDEvent) 
// 

// Return Value: None. 

// Parameters : nIDEvent - Specifies the identifier of the timer. 

// Remarks : The framework calls this member function after each 

II interval specified in the SetTimer member function used 

I to install a timer. 

/^5 

// Increment the indeterminate bar offset and redraw the window. 
=ni if (nIDEvent == IDT_INDETERMIMATE) 
{ 

KillTimer (nIDEvent ) ; 

if (++m_nlnd0f f set > IND_BAMD_WIDTH - 1) 
p/. m_nIndOffset = 0; 

'' RedrawWindow ( ) ; 

hh SetTimer ( IDT_INDETERMINATE, 25, NULL) ; 

// OnTimer 



/f-:OProgress Class 



// Construction/Destruction 



OProgress : rOProgress ( ) 

{ 



OProgress : : -OProgress ( ) 



* 

* Initialize progress control 

* and insert it in the main frame window status bar 

bool OProgress :: Initialize ( ) 

CMDIFrameWnd* mf = ( CMDI FrameWnd* ) Af xGetMainWnd ( ) ; 
if ( !mf ) 

^ AfxMessageBox ( "Failed to create progress control"); 
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return false; 

} 

CStatusBar* main_status_bar= ( CStatusBar * ) (mf - >GetMessageBar ( ) ) ; 
if ( !Tnain__status_bar) 

{ 

AfxMessageBox (" Failed to create progress control"); 
return false; 

} 

RECT rc; main__status_bar->GetItemRect (1, &rc) ; 

if {! Create (WS_CHILD | WS_VISIBLE, rc, main_status_bar , 1)) 

{ 

AfxMessageBox (" Failed to create progress control") ; 
return false; 

} 

SetRange (0,100) ; SetPos(O) ; SetColor (RGB ( 0 , 10 , 0 ) ) ; 

return true; 

} 

* Show progress with optional message string 

* in the main frame window status bar 
* 

void OProgress : : ShowProgress ( int percent, char *info /*=NULL*/) 
{ 

if (GetSafeHv/ndO ==NULL} return; 

if (percent<=0 ) percent-0; 

else if (percent>100) percent=100; 

SetPos (percent ) ; 
„fi if {percent==0 || percent== 100 ) info= "Ready " ; 
^ if (info) 

tj CMDIFrameWnd* mf = (CMDIFrameWnd*) Af xGetMainWnd () ; 

%j if ( !mf ) return; 

CStatusBar* main_status_bar= (CStatusBar*) {mf ->GetMessageBar ( ) ) 
•^■f if ( ! mairL_status_bar) return; 

main status bar->SetPaneText ( 0 , inf o) ; 
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// lEToolBar.h: interface for the lEToolBar class. 
// 

1 1 { i N 1 1 n f 1 1 1 1 ( 1 1 1 1 1 1 1 { 1 1 1 1 1 1 1 1 f I f f I /! I ! 1 1 1 1 1 f f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ( 1 1 1 1 

#if (defined ( AFX_rETOOLBAR_H 4 6 7C4 5 3D_E94 3_11D3_9 7 7E_0 0105A217 74F INCLUDED_) 

#def ine AFX_IETOOLBAR_H 4 6 7C4 53D_E94 3_11D3_9 77E_00105A21 774F INCLUDED_ 

#if _MSC__VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
#include <afxext.h> 

class lEToolBar : public CToolBar 

{ 

public : 

void Set InsertedControlText (CString s) ; 

bool TrackDropDownMenu (UINT buttonID, CWnd* pParent); 

bool AttachDropDown (UINT buttonID, UINT menuID, UINT menuItemlD) ; 

bool MakeCStatic (UINT id) ; 

BOOL CreateIE( CWnd* pParentWnd, UINT img_width, 
UINT img_height, UINT resource ) ; 

lEToolBar 0 ; 
-lEToolBar 0 ; 
private : 

UINT m_lTnageWidth, m_ImageHeight ; 

UINT* menuIDs; 
UIWT'*^ menuItemlDs; 
CStatic* m_Static; 

void SetButtonsIE () ; 

j'^n bool InsertControl ( int ctrl_type, UINT nID, CString title="");- 

Z:": CMenu* GetSubmenuFromID ( CMenu* menu, UINT id); 

fte^ndif // I defined (AFX lETOOLBAR H 467C453D E943 11D3 977E 00105A21774F INCLUDED_) 
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// lEToolBar . cpp ; implementation of the lEToolBar class. 
// 

1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

#include "stdafx.h" 
#include " lEToolBar . h" 

1 1 1 fi I f n 11 1 11 If 1 1 } I H I / 1 f n 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 f ! 1 1 1 / 1 1 1 1 1 11 1 1 1 1 11 1 1 1/ / 1 

// Construction/Destruction 

1 1 1 1 1 1 1 } I ! I n 1 1 1 1 { f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 } 1 1 1 1 1 1 1 } 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 

lEToolBar : : lEToolBar ( ) 

{ 

m_Static=NULL; 

menuIDs=NULL; 

menuItemIDs=NULL; 

} 

lEToolBar : : -lEToolBar ( ) 

{ 

if (m_Stat ic ) delete m_Static; 

if (menuIDs) delete [] menuIDs; 

if (menuItemlDs) delete [] menul temlDs ; 

} 

* Creating toolbars with IE style 

BOOL lEToolBar : :CreateIE (CWnd *pParentWnd, UINT img_width, 

O UINT img_height, UINT resource) 

^1 m_Static=NULL; menuIDs^NULL ; menul temIDs=NULL ; 

'"t- Tn_ImageWidth=iTiag_width; m_ImageHeight = img_height ; 

i|J if (CToolBar ; :CreateEx (pParentWnd, TBSTYLE_FLAT , 

%A WS_CHILD I WS_VISIBLE ] CBRS_ALIGN_TOP | 

,,4 CBRS_TOOLTIPS | CBRS_FLYBY | CBRS_SIZE_DYWAMIC) ==FALSE) 

U^li AfxMessageBox (" Failed to create toolbar"); 

nil return FALSE; 

} 

if (LoadToolBar (resource) ==FALSE) 
{ 

r] AfxMessageBox (" Failed to load toolbar"); 

return FALSE; 

} 

■"^ SetButtonsIE ( ) ; 

II TODO : ReTtiove this if you don't want tool tips or a resizeable toolbar 
SetBarStyle(GetBarStyle() | CBRS__TOOLTI PS | CBRS_FLYBY | CBRS_SIZE_DYNAMIC) 
// Support for dropdown arrows 

GetToolBarCtrl 0 . SetExtendedStyle ( TBSTYLE_EX_DRAWDDARROWS ) ; 
menuIDs = new UINT [GetCount ( ) +5] ; 
menuItemlDs = new UINT [GetCount () +5] ; 

for(int 1 = 0; i < GetCount () +5 ; i + -f) menuItemlDs [ i ] =menuIDs [ i ]= 0 ; 
return TRUE; 

} 

* Set IE-like flat buttons with text 
void lEToolBar :: SetButtonsIE ( ) 

{ 

// Add text to each button 
int tlength=5; 

for(int i = 0; i < GetCount (); i++) 
{ 

UINT id = GetltemlD(i) ; 

CString s; if ( ! s . LoadString ( id) ) continue; 
int j = s . Find ( ' \n ' ) ; 
if(j < 0) continue; 
else s=s , Mid ( j +1) ; 
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if ( s . Get Length ( ) >t length) s=s . Lef t (t length) ; 
SetBut tonText ( i , s) ; 

} 

// Resize buttons to include text 
CRect rect; 
GetltemRect (0 , &rect) ; 

SetSizes (rect . Size ( ) , CSize (m_ImageWidth,Tn_lTnageHeight ] ) ; 

} 

* Associate given id with CStatic control 

bool lEToolBar : :MakeCStatic (UINT id) 
{ 

return InsertControl ( 1 , id, " 0 " ) ; 

} 

* Insert a control instead nID button 

bool lEToolBar :: InsertControl ( int ctrl_type, UINT nID, 

CString title /* */) 

{ 

DWORD dwStyle = WS_CHILD | WS_VISIBLS; 
CWnd* pCtrl=NULL; 
CRect rect; 

// Make sure the id is valid 
^'j; int index = CommandTo Index ( nID ); if(index<0) return false; 
M^:^ Get I temRect ( index , rect ) ; rect. left += 15; 

SetButtonInfo( index, nID, TBBS^SEPARATOR, rec t . Width ()) ; 

// Insert the control 
^iri- switch ( ctrl_type) 

i ' case 1 : // CStatic 

r , if (m_Static) return false; 

"""" m^Static = new CStaticO; if ( 1 m_Stat ic) return false; 

O dwStyle |= SS_CENTER; 

if ( lTn_Static->Create (title , dwStyle, rect; this, nID) ) 

;:■ { 

- delete m_Static; m_Stat ic=NULL ; return false; 

C:: } 

pCtrl=m__Stat ic ; 
break; 

default: return false; 

) 

Get I temRect ( index, srect ); 

pCtrl->SetWindowPos (0 , rect. left, rect. top, 0, 0, 

SWP_NOZORDER [ SWP_NOACTIVATE | SWP_NOSIZE | SWP^NOCOPYB I TS ) 
pCtrl->ShowWindow ( SW_SHOW ) ; 
return true ; 

} 

* rf a control was inserted into the toolbar 

* set it text to a given string 

void lEToolBar :: Set InsertedControlText (CString s) 

{ 

if (m_Static) in_Stat ic - >SetWindowText ( CString (" \n" ) +s ) ; 

} 

■k 

* Attach dropdiwn arrow and menu to a given button 
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bool lEToolBar : :AttachDropDown(UINT buttonID, UINT menuID, UINT menuItemID) 

// Make sure the id is valid 
int index = CommandToIndex (but tonID) ; 
if(index<0 |1 index> = GetCount ( ) ) return falser- 

DWORD dwStyle = GetButtonStyle ( index) ; 
dwStyle |= TBSTYLE_DROPDOWN ; 
SetButtonStyle (index, dwStyle) ; 
menuIDs [index] =menuID; 
menuItetmlDs [index] =^menul teralD ; 
return true; 

} 



A- 



* Display dropdown menu 



bool lEToolBar : :TrackDropDownMenu (UINT buttonID, CWnd *pParent) 

// Make sure tlrie id is valid 

int index = CommandToIndex (but tonID) ; 

if(index<0 |1 index>=GetCount ( ) ) return false; 

// Find menu ID 

UINT menuID=menuIDs [index] ; 

if (menuID= = 0) return true; // no menu attaclied 

// Load and display popup menu 

CMenu menu; menu . LoadMenu (menuID) ; 

CMenu* pPopup=GetSubmenuFromID ( &menu,menuItemIDs [ index] ) ; 

if ( IpPopup) return true; // no such submenu 
"""" CR.ect rc* 

this->SendMessage (TB_GETRECT, buttonID, (LPARAM) &rc) ; 
sfl this->ClientToScreen (&rc) ; 

G pPopup->TrackPopupMenu( TPM_LEFTAL IGN | TPM_LEFTBUTTON | TPM_VERTICAL , 
rc.left, rc. bottom, pParent , &rc) ; 
return true; 

*H Find submenu which contains given menu id 

+ g|** ************************************* ************* ******** 

Cliynu* lEToolBar : :GetSubmenuFromID (CMenu* menu, UINT id) 
{H 

f% CMenu* sub; 

SI if (Imenu) return NULL; 

UINT c = menu->GetMenuItemCount ( ) ; 

if (c<=0) return NULL; 

for(UINT 1=0; i<c; i++) 

if (menu->GetMenuItemID (i) ==id) return menu; 
sub = menu->GetSubMenu ( i) ; 
if ( I sub) continue; 
sub=GetSubmenuFromID (sub, id) ; 
if (sub) return sub; 

} 

return NULL; 
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// RayTracer. h: interface for the RayTracer class, 
// 

I ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 { I ! 1 1 1 1 1 1 1 1 1 1 { 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

#if I defined (AFX_RAYTRACER_H 9 741FB4F_8B17_11D3_9 72 0_0 0105A217 74F INCLUDED_ 

#def ine AFX_RAYTRACER_H 9 741FB4F_8B17_11D3_9 720_00105A21774F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // __MSC_VER > 1000 

#include <stdlib.h> 
^include <stdio.h> 
#include <conio.h> 
#include <math.h> 
#include <time.h> 
#include "RTScreen.h" 
#include " Volume. h" 

class RayTracer 



publ ic : 
void 
void 
void 
void 
void 
bool 
char 



SetBodyColor ( int cmin, int cmax) ; 
SetSurf aceLevel ( int lev) ; 
SetGranulari ty ( int gr) ; 

SetEyePosit ion (double x, double y, double z) ; 
SetEyePositionOnSphere (double deg_hor, double deg_ver) 
SetVolumeScales (double sx, double sy, double s2) ; 
r error [64 ] ; 



.p. double DoTracingO ; 

Ray Tr a c B r ( Vo 1 UTTie * v, RTScreen* rts) 
virtual -RayTracer () ; 



p^Jvate : 

signed char IS[16] [16] , AX,AY,A2, r_OX, r_OY; r_OZ; 

int r_ALscale[4] ,r_N[4] ,Na[4] ,NX[14] ,IED[4] ,IL[4] ,P[4] ,T0P[4] ; 

^ int r_COLb , r_COLf , r_COLc , r_COLl , r_LE , r_HI , r_MAXX , r_MAXY, r_DIM, r_DIMl ; 

Fj int Fmax, Fmin, r_LEV; 

int r_Rotat ionCode ; 

: _ long BD, IL12, IL13 , IL23 , DLl , DL2 , PE , QE , AA, r_DIM2 , r_DIM3 ; 

double r_Leye[4] ,LL[4] ,AP[4] ,B1,B2,FIL; 

C5 double DOWN, CUl , CU2 , CVl , CV2 , CV3 , CFl , CF2 , CF3 ; 

Si" double LLL,Dl,D2,Fk; 

RTScreen* r_Screen; 

Volume* r_Volume; 

void EDGEO ; 

void INST (int p.int q.int u,int v) ; 

bool PICTURE (char how) ; 

char TEST (int wl,int w2,int w3,int w4 ) ; 

int Q_JUMP { ) ; 

double FUNC(long x.long y.long 2) ; 

double JUMP (double t); 



// inline finctions 

inline void CHESS (int uu^int vv.int il,int 12, int 13, int i4 , int j 1 , int j2, 

int j 3 , int j4,int j5,int j 6 , int j7,int j8 ); 
inline void GUR02{char mask, long il,long i2,long i3,long 14 , long jl,long j2, 

long ] 3, long j 4, long j 5 , long j 6 , long 3 7, long j 8 , int ix,int iy) 
CUBESIGM{int al,int a2,int a3,int a4 , int a5,int a6 , int a7,int a8); 
IMTENS (double a, double b, double c, double d, double t); 
F ( int X, int y, int z) ; 

int z) 



inline 
inline 
inline 
inline 
inline 
inline 
inline 
inline 
inline 
inline 
inline 



bool 
mt 
int 
int 
int 
int 
int 
int 
int 
int 
int 



F_XpYpZp(int X, int y, 

F_XmYpZp(int x, int y, int z) 

F_XpYmZp(int x, int y, int z) 

F_XmYmZp ( int x, int y, int z) 

F^XpYpZm ( int x, int y, int z) 

F_XmYpZm ( int x, int y, int z) 

F^XpYmZm { int x, int y, int z) 

F_XmYmZtia(int x, int y, int z) 



#endif // Idef ined (AFX RAYTRACER_H 9 741FB4F_8B17_11D3_9 72 0_0 0105A217 74F INCLUDED 
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// RayTracer . cpp : implementation of the RayTracer class. 
// 

////////////////////////////////////////////////////////////////////// 
#include " RayTracer . h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DSBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
RayTracer :: RayTracer (Volume* v, RTScreen* rts) 

{ 

r_Volume=v; r_Screen=rt s ; 
Set Volume Scales (1,1,1) ; 
SetEyePosit ion ( 1 , 1 , 1) ; 
SetGranularity (4 ) ; 
SetSurf aceLevel (0) ; 
SetBodyColor (10 , 255) ; 

} 

RayTracer :: -RayTracer ( ) { } 

int (RayTracer :: *F_XYZ) (int int y, int z); 



* 13 "i 

* Ray tracing; returns tracing time 

ddtUble RayTracer :: DoTracing ( ) 
{ Jn 

ini;, i , j , j 0 , j 1 , m, ml ,m2 , lef ,mid, rig , idim, ] dim; 

irit^ jfO, jf 1, jlO, jll, jmO, jml,]min, jmax,p0,pl,p2,p3, j jl, j j2, j j5, j j6,wd[4] [500] ; 

double ul , u2 , vl , v2 , v3 , du , unl , un2 , vnl , vn2 , vn3 , a , b , hi , h2 , el , e2 , e3 , e4 ; 

dc^ujDle xO.yO, zO, t,ddt,dt [4] ; 

d^hlQ X [4] , td [3] [500] ; 
ci%bl<:_t cloclc_start , cloc]<:_end; 

RAY TRACING PARAMETERS */ 
//^blume sizes in (x,y,z) 
r_gi[l] -r_VoluTue->GetXSize 0 ; 
r_N [2] =r_Volume->GetYSize ( ) ; 
r_N [3] =r_Volume->GetZSize ( ) ; 

// int Axes numbers, to account for views from any octant 
r_OX=l; r_0Y=2; r_0Z=3 ; 
// int Colors 

r_COLc = 10; // non-body bacltground 

r_C0Ll=5 ; // color to draw the volume frame */ 
r_MAXX=800 ; r_MAXY=700; // max screen sizes for traced picture 

r_LE=r_MAXX- 10 ; r_HI =r_MAXY- 1 0 ; // actual screen sizes for traced picture 

f -k -k -k -k -k -k -k -k i( -k -k -k -k -k -k -k -k Do we need scaling ? */ 

r_Volume- >GetMinMax ( Fmin, Fmax) ; 

PE=Fmax-Fmxn; 

if (r_LSV<Fmin || r__LEV>Fmax) 

( 

sprintf (r_error , "Chosen level must be in [%d,%d] interval Fmin , Fmax) ; 
return -1,0; 

} 

if (PE>500) 

! 

F]c= (double) (500. /PE) ; 
r_LEV=(int) ( r_LEV*F]c+0 . 5 ) ; 

sprintf (r_error , "Data needs to be scaled, current range is [ %d , %d] " , Fmin , Fmax ) 
return -1.0; // Need F(i,j,]^) -> {F[i] [j] [Ic] -Fmin) *F]^ 
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else Fk=l . ; 

FIL= (double) (10 0 00*sqrt { 5 . / (Fk* ( Fmax- Fmm+l ) ) ) ) ; 

+ + Compute picture parameters */ 

if (! PICTURE ('Y')) return -1,0; 
AX=1; AY=2; AZ=3; 

ul-CUl; U2=CU2; 
vl=CVl; v2=CV2; v3=CV3; 

du=AP[l] ; unl=AP[2]; un2=AP[3]; 
vnl=CFl; vn2=CF2; vn3=CF3; 
ml=r_DIMl; m2=r_DIM2 ; 

/ ic -k -k -k -k -k -k -k -k :k -k -k -k -k -k -k Accomodate different quadrants */ 
r_RotationCode=0 ; 

if (r_Leye [1] <0) r_Rotat ionCode += 1; 
if (r__Leye [2] <0) r_Rotat ionCode 10; 
if (r_Leye [3] <0) r_Rotat ionCode += 100; 
switch (r__Ro tat ionCode) 

{ 

case 001: 

F_XYZ= (this->F_XpYpZm) ; 
break; 
case 010: 

F_XYZ= (this->F_XpYmZp) ; 
break; 
case Oil : 

F_XYZ= (this->F_XpYTnZm) ; 
break; 
c^-|^ 100: 

F_XYZ= ( this->F_XmYpZp) ; 
■^Jf break; 
cMh 101: 

4j F_XYZ= (this->F__XmYpZm) ; 
C\ break; 
cas% 110 : 

F_XYZ= ( this->F__XmYmZp) ; 
Jj break; 
cs^fp 111: 

3 4,; F_XYZ= ( this->F_XmYmZm) ; 
break; 
d4=§-ault : 

r-^ F_XYZ= ( this->F_XpYpZp) ; 
break; 

if-(AZ<0) { if( (AX- = 2) I I (AX-=-2) ) { pl = r_N[2]; p2 = r_N[l]; } 

else { pl=r_N[l]; p2=r_N[2]; } 

f c&(]c=0;k<= (r_N-[3] -1) /2;k++) { p3 -r^N [ 3 ] - k ; 
for [i=0;i<-pl;i++) { f or ( j =0 ; j < =p2 ; j ++ ) { 
p0 = F(i,j,k); F(i. j .k) =F[i] [j] [p3] ; F [ i ] [ j ] [p3 ] =p0 ; } } 
} // next k 
} // end if 
switch (AX) { 
case -1: pl = r__N [1] /2 ; 

for (k=0;k<=r_N[3] ;k++) { f or ( i=0 ; i<=pl ; i++ ) { 
for (j=0; j<=r_N[2] ;j++) { 

p0 = F(i,j,k) ; F(i,j,k)-F[r_N[l] -i] [r_N[2] - j] [k] ; F[r_N[l] -i] [r__K[2] - j] [k]=p0. 
} // next k 

break ; 

case 2: pl=max ( r_N [ 1 ] , r_N [ 2 ] ) ; 
for (k=0;k<=r_N [3] ;k++) { 

for (i=0;i<= (r_N[2] -1) /2;i++) { f or ( j =0 ; j <=r_M [ 1] ; j ++) { 

p0-F(i,j,k); F(i,j,k)=F[r_N[2] -i] [j] [k] ; F [r_N [ 2 ] - i] [ j ] [k] =pO ; } } 
for (i=0;i<=pl;i++) { f or ( j =0 ; j <i ; j ++) { 
pO = F(i,j,k); F(i, j ,k) =F[j] [i] [k] ; F [ j ] [ i ] [k] =p0 ; } } 

} // next k 

break; 

case -2: pl=max ( r_N [ 1 ] , r_N [ 2 ] ) ; 
f or (k-0;k<=r__N [3] ;k++) { 

for {i=0;i<=r_N[2] ;i++) { f or ( j = 0 ; j < = ( r_N [ 1 ] - 1 ) /2 ; j ++ ) { 
pO=F(i,j.k); F(i,j,k)=F[i] [r_N[l] -j] [k] ; F [ 1 ] [r_N [ 1 ] - j ] [ k] =p0 ; } } 

for (i=0; i<=pl; i++) { f or ( j = 0 ; j < i ; j ++ ) { 
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pO = F(i,j,k); F(i, j ,k) =F[j] [i] [k] ; F [ j ] [ 1 ] [ k] =pO ; } } 
} // next k 

break; 

} // end switch 

*/ 

DRAW AND FILL POLIGON */ 

1 1 W Draw frame ? 

if (r_COLci=0) {setf illstyle (SOLID__FILL,r_COLc) ; f illpoly (6 ,NX) ; } 

setcolor (r_COLl) ; drawpoly ( 7 , NX) ; 

line(-unl,r_HI+vnl+vn2,NX[0] ,NX[1] ) ; 

line (-unl,r_HI+vnl+vn2,NX[4] ,NX[5] ) ; 

line {-unl,r_HI+vnl+vn2,NX[8] ,NX[9] ) ; 

*/ 

clock_start = clock { ) ; 

y ************** * * PREPARATIONS: */ 
hl=vl/ul ; h2=v2/u2 ; 

IL12=IL[1] ; IL13=IL[1] ; IL23=IL[2] ; 
IL12*=IL[2] ; IL13*=IL[3] ; IL23*=IL[3] ; 

r_DIMl=:r_DIM-l ; r_D IM2 = r_D IM*r_D IM ; r_DIM3=r_DIM2 *r_DIM ; 

for(i = l;i<4;i + + ) { dt [i] =r_Leye [i] *r_Leye [i] ; AP [i] = (double) ( 0 . 5-r_N [i] * (double) ( IL [i] )) ; } 
DL1=-2*IL [1] ; DL2=-2*IL [2] ; 

Dl= (double) (0.25/IL12) ; D2= (double) ( - 0 . 5 *D1/ IL [3 ] ) ; 

a= (double) ( min{ 30000 , 1000000000. /(13. *r_DIM3+43*r_DIM2+10*r_DIM) ) ) ; 

i= (int) (a/ ( r_COLb+r_COLf ) ) ; 

D0WM=2*du*LLL ; B2 = i *r__COLf *DOWN ; DOWN*=DCWN ; 
Bl- (double) (i*r_COLb+0. 5) ; BD=4*i* (long) (r_DIM3) ; 

b= (double) (Na [1] +Na [2] +Wa [3] ) ; a= (double) { 0 . 001*du*ml/2) ; du*=0.999 ; 

CUtpNa [1] * (ul*ul+vl*vl) +Na [2] * vl * v2 -b*r_Leye [1] +ul*a; CF1= (Ma [1] -CFl) *LL [1] *LLL; 

CPSpNa [1] * (ul*u2+vl*v2) +Na [2] *v2*v2 -b*r_Leye [2] +u2*a; CF2- (Ma [2] -CF2) *LL [2] *LLL; 

C#=v3* (Ma [1] *vl+Na [2] *v2) -b*r_Leye [3] ; CF3= (Ma [3] -CF3) *LL [3] *LLL; 

CIM^5=-LL [1] *ul*du*LLL/r_DIM; CU2 = -LL [2] *u2 '^du*LLL/r_DIM ; CV1=-LL [1] *vl *du*LLL/r_DI (VI ; 

C¥i|=-LL [2] *v2*du*LLL/r_DIM; CV3 = -LL [3] ^v3 *du*LLL/r_DIM; 

eir=;;(vn3 -vn2 ) /r_DIM ; e2= (unl *h2 - vnl -vn2+vn3 ) /r_DIM ; 

e3=||-vn2/r_DIM ; e4 = -un2*hl/r_DIM; 

xdfibFl ; y0=CF2 ; zO=CF3 ; 

uigCUl*r_DIM ; u2=CU2*r_DIM ; vl=CVl*r_DIM ; v2=CV2*r_DIM ; v3 =CV3 *r_D IM ; 
f G^( i = l;i<4;i + +) r_Leye [ i] / = r_ALscale [i] ; 

y^it*"^'* ************** MAIN LOOP: */ 
rfg=0 ; 

fcks: ( i = 0 , idim=0 ; i< = ml ; i + + , idim+ = r_DIM) { 
printf ( "%3d%" , (int) (100*i/ral) ) ; 

j tt(int) ( min(el , e2) +0 . 99) ; j 0= (int) ( max (e3 , e4 ) ) ; 

ei¥=hl ; e2+=h2 ; e3+=h2 ; e4+=hl ; 

X i^lj] =xO + j 0*vl ; X [2] =yO + j 0*v2 ; x [ 3 ] =z 0 + j 0 *v3 ; 

P^or (j=j0; j< = jl; j+ + ) { 



/* GO INTO CUBE: */ 

t= max( max(x[l] ,x[2] ) ,x[3] ) ; ddt=0. ; 

for (k=l;k<4;k++) { 
if(t===x[k]) { NX [k] =r_N [k] ; P[k]=-IL[k]; IED[k]=k; TOP [k] =r_N [k] - 1 ; } 
else { a=AP[k] +x[k] -t; if(a<0.5) { td [r ig] [ j ] = - 1 ; gotonextj ; } 

AA=(long)a; a-=AA+0.5; NX [k] -AA/ ( - IL [k] ) ; P [k] =AA+ ( long) (NX [k] ) * XL [k] ; 
if(P[k]= = 0) { if(NX[k]= = 0) { ddt + = (a-1) *dt [k] ; P[k]=l; 

IED[k]=0; TOP[k]=0; } 

else { ddt+=a*dt [k] ; P[k]=-IL[k]; 
IED[k]=k; TOP [k] =NX [k] -1 ; } 

} 

else { IED[k]=0; TOP [k] =NX [k] ; ddt+=a*dt [k] ; } 
} 

} /* next k */ 
td[rig] [ j ] =JUMP ( t+ddt) ; /* WE'VE FOUND THE BODY */ 

next j : x[l]+=Vl ; X[2]+=V2 ; x[3]+=v3 ; 
} /* next j */ 

for(j=0; j<jO; j++) td[rig] []]=-l; 

f or ( j =] 1 + 1 ; j <=m2 ; j + + ) td [rig] []]=-!; 

/* END OF FINDING ROOTS, LET'S DRAW: */ 
if (i==0) {jll=jl; jlO=jO; rig=l; mid=0; goto nexti; } 
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if(i==l) { 

if (jlO< = 0) 

wd[0] [0]=INTEMS(-l,td[0] [ 1 ] , t d [ 1 ] [ 0 ] , - 1 , td [ 0 ] [ 0 ] ) ; 
else 

wd[0] [jlO] =INTENS (-1, td[0] [ j 1 0 + 1 ] , td [ 1 ] [jlO] ,td[0] [ j 10 - 1 ] , td [ 0] [jlO] ) ; 
/* putpixel (0,r__HI-jlO*r_DIM,wd[0] [jlO] ) ; */ 
f or ( j = j 10 + 1 , jdim=r_HI- ( j 10 + 1) *r_DIM; j < = j 11 ; j ++ , j dim- = r_DIM) { if ( j<m2) t = td [0] [ j+1] ; 

else t=-l; 
Wd[0] [j] = INTENS(-l,t, td[l] []] ,td[0] [j-1] ,td[0] [j] ) ; 
/* putpixel { 0 , jdira, wd [0] [j]); */ 
} 

for (j=:0; j<jl0; j++} { Wd[0][j]=0; } f or ( j = j 1 1 + 1 ; j < =m2 ; j + + ) { wd [ 0 ] [ j ] = 0 ; } 

jmO=jO; jml=jl; lef=0; mid^l; rig=2; pO=0; 
goto nexti ; 

} /* end of case i==l */ 

ifCi==2) { 
if ( jmO<=0) 

wd[l] [0] =INTENS(td[lef ] [0] ,td[mid] [1] ,td[rig] [0] ,-l,td[mid] [0] ) ; 
else 

wd[l] [jmO] =INTENS ( td [lef ] [jmO] , td [mid] [jmO + 1] , td [rig] [jmO] , 
td[mid] [jmO-1] , td[Tnid] [jmO] ) ; 
/* putpixel (r_DIM,r_HI-jmO*r_DIM,v;d[l] [jmO] ) ;*/ 
for{j=jmO + l,j dim=r_HI- ( jmO + 1) *r_DIM; j< = jml;j++,j dim- = r_DIM) { 
if {j<m2) t = td[mid] [j+1] ; 
else t=-l; 

wd[l] [j] =INTENS(td[lef] [j] ,t,td[rig] [j] ,td[mid] [j-1] , td [mid] [j] ) ; 

/* putpixel (r_DIM, jdim.wd [1] [j]);*/ 
} /* next j */ 

^";ffor ( j=0; j<jmO; j+ + ) { wd[l][j]=0; } for ( j = j ml + 1 ; j < =m2 ; j ++ ) { v/d [1] [ j ] =0 ; } 
iOjfO=jlO ; jfl=jll ; jlO=jmO ; jll=jml ; jmO=jO ; jml=jl ; 
5'^m=lef; lef=mid; mid=rig; rig^m; 

.r,pl = l; goto nexti; 
^"^-j } /* end of case i = = 2 */ 

3 (i==3) { 
'-^-'if ( jmO<^0 ) 

n^^d[2] [0] =IMTEMS (td[lef ] [0] , td [mid] [1] ,td[rig] [0] ,-l,td[mid] [0] ) ; 
a else 

iwd[2] [jmO] =IKTENS (td [lef ] [jmO] ,td[mid] [jmO + 1] ,td[rig] [jmO] , 
]Z td[mid] [jmO-1] , td [mid] [jmO] ) ; 

/* putpixel (idim-r_DIM,r_HI-jmO*r_DIM,wd [2] [jmO]);*/ 
Ojf or ( j = jmO + 1 , j dim=r_HI - ( jmO + 1 ) *r_DIM; j< = jml;j++,j dim- = r_DIM) { 
\l if(j<m2) t = td [mid] [j +1] ; 

else t=-l; 

O wd [2] [ j] =INTENS (td [lef ] [j ] , t , td[rig] [ j ] , td[mid] [j-1] , td [mid] [j ] ) ; 
Q /* putpixel {idim-r_DIM, jdim,wd [2] [j ]) ; / 

} 

for ( j =0 ; j < jmO ; j ++) { wd[2][j]=0;} for ( j = j ml+1 ; j < =m2 ; j ++ ) { wd[2][j]=0;} 

j min= min ( j f 0 , j 1 0 ) ; j max= max ( j f 1 , j 1 1 ) ; 

f or ( j = jmin^ j dim= jmin*r_DIM; j<=jmax-l; j ++ , j dira+=r_DIM) { 

if(j=-0) { j j5 = 0; j j6 = 0; } else { j j 5 = wd [ 1 ] [ ] - 1 ] ; j j 6 = wd [ 0 ] [ j - 1 ] ; } 

if (j==m2-l) { j jl = 0;] j2 = 0; } else {j]l=wd[0] [j+2] ; j j2 = wd[l] [j+2] ; } 

switcli{TEST(wd[0] [j] ,wd[l] [j] ,wd[0] [j+1] ,wd[l] [j+1] ) ) { 
case ' ? ' : 

CHESS(0, jdim,wd[0] [j] ,wd[l] [j] ,wd[0] [j+1] ,wd[l] [j+1] , 
j jl, j j2,wd[2] []+l] ,wd[2] [j] . jjS, j j6,0,0) ; 
brea]<: ; 

case ' 1 ' : 

GUR02 ( ' - ' ,wd[0] [j] ,wd[l] [j] ,v/d[0] [j+1] ,wd[l] [j+1] . 
j jl, j j2,wd[2] [j+1] ,wd[2] [j] , jj5,j]6, 0,0,0, j dim) ; 
break ; 

} 

} /* next j */ 
jfO=jlO ; jfl=jll ; jlO=jmO ; jll^jml ; jmO=jO ; ]ml=jl ; 
m=lef; lef=mid; mid=rig; rig=ra; 
p2=2 ; p3=3 ; goto nexti ; 

} /* end of case i==3 */ 

else { /* i>3 */ 
if ( jmO<=0 ) 
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wd[p3] [0] =INTENS (td [lef ] [0] ,td[mid] [1] ,td[rig] [0] , -1, td[mid] [0] ) ; 
else 

wd[p3] [jmO] =INTENS (td[lef 1 [jmO] ,td[mid] [jmO + l] ,td[rig] [jmO] , 
td[mid] [jmO-1] , td [mid] [jmO] ) ; 

/ putpixel (idim-r_DIM, r_HI- jmin*r_DIM, wd [p3] [ jmO] ) ; */ 
for(j=jmO + l,j dim=r_HI- { jmO + 1) *r_DIM; j <=jml ; j ++, j diTn-=r_DIM) { 
if (j<m2) t = td[mid] [j-fll ; 
else t=-l; 

wd[p3j [j J =INTENS (td[lef ] [j] ,t,td[rig] [j] ,td[mid] ,td[mid] [j] ) ; 

/* putpixel (idim-r_DIM, jdim, wd [p3] [ j ] ) ; */ 

! 

f or C j =0 ; j < jmO ; j + + ) { wd [p3] [ j ] =0 ; } f or ( j = jml + 1 ; j <=m2 ; j ++) { wd [p3 ] [ j ] = 0 ; } 
jinin^ min(jfO,jlO) ; jmax= ^max ( j f 1 , j 11] ; 

f or ( j = jmin, j dim= jmin*r_DIM; j<=3max-l; j ++ , j dim+=r_DIM) { 

if(j= = 0) { j j5 = 0; j j6 = 0; } else { j j 5 = wd [p2] [ j - 1] ; j j €=vjd [pi] [ j -1] ; } 

if{j==m2-l) {j jl = 0; j j2 = 0; } else { j j l = v;d [pi] [ j +2] ; j j 2=wd [p2] [ j +2] ; } 

sV7itch(TEST(wd[pl] [ j ] ,wd[p2] [j] ,wd[pl] [j + 1] ,wd[p2] [j+1] ) ) { 
case ' ? ' : 

CHESS ( {i-3) *r_DIM, jdim,wd[pl] [j] ,wd[p2] [j] ,wd[pll [j+1] ,wd[p2] [j+1] , 
j jl, jj2,wd[p3] [j+1] ,wd[p3] [j] , j j5, j j6 ,wd[pO] [j] ,wd[pO] [j+1] ) ; 
brealc ; 

case ' 1 ' : 

GUR02( ,wd[pl] [j] ,wd[p2] [j] ,wd[pl] [j+1] ,wd[p2] [j+1] , 
j jl. j j2,wd[p3] [j+1] ,wd[p3] [j] , j j5, j j6,wd[p0] [j] , 
wd[pO] [j+1] , (i-3) *r_DIM, jdim) ; 
breaJc ; 

} 

} /* next j */ 

jfO-jlO ; jfl = jll ; jlO = jTnO ; jll = jma jmO = jO ; jml = jl ; 
.PVm=lef; lef=mid; mid=rig; rig=m; 

m=pO ; pO = pl ; pl = p2 ; p2 = p3 ; p3=ni \ 
'■^^ } /* end of case i>3 */ 

||(i=:=ml) { 
if ( jTnO< = 0) 

#d [p3] [0] =INTENS (td [lef] [0] , td[mid] [1] , -1, -1, td [mid] [0] ) ; 
else 

Jwd[p3] [jraO] =INTENS{td[lef ] [jmO] , td [mid] []mO + l] , -1, td[mid] [jmO-1] , 
tdlmid] [jmO] ) ; 

/* putpixel (idim, r_HI - jmin*r_DIM, wd [p3] [ jmO] ) ; */ 
L&f or ( j =jmO + l , j dim=r_HI - ( jmO + 1) *r_DIM; j < = jml ; j ++ , ] dim- = r_DIM) { 

if(j<m2) t = td [mid] [ j+1] ; 
SI else t=-l; 

HJ wd [p3] [ j ] =INTENS ( td [lef ] [ j] , t , -1, td [mid] [j -1] , td [mid] [ j ] ) ; 

/* putpixel ( idim, jdim, wd [p3] [j]); */ 

A } 

■J^for ( j=0; j<jmO; j+ + ) { wd[p3] [j] =0; } f or ( j = j ml + 1 ; j < =m2 ; ] ++ ) { wd[p3] [j] =0; } 
fEiUn= min(jfO,jlO) ; jmax= max ( j f 1 , j 11) ; 

f or ( j =jmin, jdim=jmin*r_DIM; j<=jmax-l; j ++ , j dim+=r_DIM) { 

if(j= = 0) { j j5 = 0; j j6 = 0; } else { j j 5 = wd [p2] [ j -IJ ; j j 6=wd [pi] [ j -1] ; } 

if(j==m2-l) {j jl = 0; j j2 = 0; } else { j j l=wd [pi] [ j +2] ; j j 2 = wd [p2] [ j +2] ; } 

switch (TEST (wd [pi] [j] ,wd[p2] [j] ,v7d[pl] [j+l] ,wd[p2] [j+1] ) ) { 
case ' ? ' : 

CHESS( (ml-2) *r_DIM, j dim, wd [pi] [j] ,wd[p2] [j] ,wd[pl] [j+1] ,wd[p2] [j+1] , 
j jl, j j2,wd[p3] [j+1] ,wd[p3] [j] , j j5 J j6,wd[pO] [j] ,wd[pO] [j+1] ) ; 
break ; 

case ' 1 ' : 

GUR02( ' - ' ,wd[pl] [j] ,wd[p2] [j] ,wd[pl] [3+I] ,wd[p2] [j+1] , 
jjl, j j2,wd[p3] [j+1] ,wd[p3] [j] , j j5, j j6,wd[p0] [j] , 
wd[pO] [j+1] , (ml-2) *r_DIM, jdim) ; 
break ; 

} 

} /* next j ^/ 
jmin- min(jmO,jO) ; jmax= max (jml, jl); 

f or ( j =jmin, jdim=jmin*r_DIM; j<=jmax-l; j ++ , j dim+=r_DIM) { 

if(j= = 0) {j j5 = 0; j j6 = 0; } else { j 3 5=wd [p3 ] [ j -1] ; j j 5 =wd [p2] [ j - 1 ] ; } 

if(j==m2-l) {j jl-0; j j2 = 0; ) else { j j l=wd [p2] [ j +2] ; j j 2 = wd [p3] [ j +2] ; } 

switc]n{TEST(wd[p2] [ j ] , wd [p3 ] [ j ] , wd [p2] [ j +1 ] .wdip3] [j+1] ) ) { 
case ' ? ' : 
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CHESS ( (ml-1) *r_DIM, jdim, wd[p2 3 [j] ,wd[p3] [j] ,wd[p2] [j+l] ,wd[p3] , 
jjl, jj2,0,0 Jj5 J j6,wd[pl] [j] ,wd[pl] ) ; 

break ; 

case ' 1 ' : 

GUR02 { • - ' , wd [p2] [ j ] , wd [p3] [ j ] ,wd [p2] [j+H , wd [p3] [ j + 1] , 

jjl, jj2,o,o, jj5, jj6,wd[pl] [j] ,wd[pl] , *r_DIM,j dim) ; 
break ; 

} 

} /* next j */ 
} /* end of case i==ml */ 

nexti: xO+=ul ; yO+=u2 ; 
} /* next i */ 
if (r_COLl 1 =0) { //II Frame ?? 
/* 

setcolor (r_COLl) ; set linestyle (SOLrD_LINE , 0 , NORM^WIDTH) ; 
line Cun2 , r_HI -vn3 , un2 , r_HI ) ; 
line (un2 , r_HI-vn3 , 0 , r_HI+vn2-vn3) ; 
line (un2 ,r_HI-vn3 [8] ,NX [7] ) ; 



// Finish 

for {i=l ; i<4 ; i++) r_Leye [i] *=r_ALscale [i] ; 
clock_end=clock { ) ; 

return (double) ( clock_end-clock_start ) /CLOCKS_PSR_SEC; 

} 

TEST: test surface presence inside a square 

cjar RayTracer :: TEST ( int V7l , int w2 , int w3 , int w4) 
if(wl< = 0) 

hfl if ( (w2< = 0) (w3< = 0) &£c (w4< = 0) ) return ('o'); 

ni IS [01 [0] =-1; 

' return ('?'); 

= } 

pa else 

i 

IS[01 [0]=1; 
return ('?'); 

n } 

* Initialize picture parameters 
bool RayTracer :: PICTURE (char how) 

{ 

int i ,ml ,m2 ,nx [14] ; 

double xa [ 4 ] , a , b , c , ul , u2 / vl , v2 , v3 , du , unl , un2 , vnl , vn2 , vn3 ; 

for {1=1 ; i<4 ; i++) Ma [i] =r_N [i] *r_ALscale [ i ] ; 

if (how=='Y' ) 

{ 

f or (i = l ; i<4 ; i + + ) {xa [i] =f abs (r_ALscale [i] /r_Leye [i] ) ; } 
b = max [ xa [ 2 ] , xa [ 3 ] ) ; 

a= min( FIL/sgrt ( max (xa [1] *b , xa [2] *xa [3 ] ) ) , 15000,/ max(xa[l],b) ) 

f or ( i=l ; i<4 ; i++ ) 

{ 

IL [i] =- (int) ^max (0 . 5+a*xa [i] ,50) ; 

r_Leye [i] = (100 . *r_ALscale [i] ) /IL [i] ; 

} 

} 

el se 

{ 
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* Update Ruler pop -up menu 

void Ruler :: UpdatePopMenu (CMenu *pop) 
{ 

GetLengthO ; 
if (r_pix_spacingX<0 , 0) 

{ 

pop - > Enab 1 eMenu 1 1 em { I D_RULER_MM , MF_GRAYED ) 
pop - > Enabl eMenu 1 1 em ( I D_RULER_CM , MF_GRAYED ) 
pop - > Enab 1 eMenu 1 1 em ( I D_RUL ER_IN , MF_GRAYED ) 
pop - > CheckMenuI t em ( ID_RULER_P IXELS , MF_CHECKED ) ; 

} 

else 

{ 

if (r_scale:=="mm" ) pop- >Checl<:iyienuI tem ( ID_RULSR__MM , MF_CHECKED ) ; 
else if (r_scale=="cm" ) pop- >CheckMenuI tern ( ID_RULER_CM, MF_CHECKED ); 
else if {r__scale = = " in" ) pop- >CheckMenuI tern { ID__RULER_IN , MF^GHECKED ); 
else pop->CheckMenuIteTn( ID_RULER PIXELS, MF CHECKED ); 

} 

CString value; 

value . Format ( " % . 21f " , r_length) ; 

pop->ModifyMenu(ID_RULER VALUE, MF BYCOMMAND, ID RULER VALUE , value+r scale) 
} _ - _ 

Compute distance in pixels 
V^id Ruler : :GetLength() 

[A 

r_size = r_end-r__start ; 

r_pix_length=_hypot (r_size . cx, resize . cy) ; 
HI if (r_scale== "pixels " ) 

r_length=r_pix_length; 

r_length=r_scale_coef f ^_hypot (resize . cx*r_pix_spacingX, 
r_size . cy*r_pix_spacingY) / ( *r_20om) ; 



Increment or dicrement the number of tick marks if dl=0 



void Ruler : rChangeTicksAndStyle (CDC *pDC, int d) 

{ 

if (! reactive) return; 

if (d!=0) // change number of tick marks 

{ 

int newt icks=r_t icks+d; 
if (newticks<0) newticks^O; 
else if (newticks>10) newticks=10; 
if (newt icks==r_ticks) return; 

if(r_undo) Draw(pDC); 
r_ticks=newt icks ; 
Dravj{pDC) ; 

} 

1 

■k 

* Set distance scale 

■k 

■k-kicic-kicic.-k-kit-k-kiiic-kif-k-kitic-kie'ki^-k-kif-kitific-k-kicickick-kk-k^ 

void Ruler :: SetScale ( int code) 
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if (r_pix_spacingX<0 , 0) code=4 • 

switch (code) 

{ 

case 1 : 

r_scale= "mm" ; 

r_scale_coef f =1 . o ; 

break; 
case 2 : 

r_scale="cm" ; 

r_scale_coef f = 0 . In- 
break; 
case 3 : 

r_scale= " in " ; 

r_scale_coef f =1 .0/25.4; 
break; 
case 4 : 

r_scale="pixels" ; 
r_scale_coef f =1 . O; 
break; 
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// Selector. h: interface for the Selector class. 
// 

////////////////////////////////////////////////////////////////////// 

#if 1 defined (AFX_SELECTOR_H 4E54B6 53_BCCC_11D2_95F9_00105A21 774 F INCLUDED^ 

#def ine AFX_SELECTOR__H 4E54B6 53_BCCC__11D2_95F9_0 0105A21 774 F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

^define SEL_RECTANGLE 0 
#define SEL_ELLIPSS 1 

class Selector 

{ 

public : 

bool m_undo^ m_active; 
int m_ shape; 

void Redraw{CDC *pDC, const CPointS: center, 

const CPoint& vertex, const CRectSc client) j 
void Redraw (CDC *pDC, const CPointS: center) ; 
void Remove (CDC *pDC) ; 

void Init ialize (CDC* pDC, const CPoint& center, double'*^ zoom, 

double scaleX, double scaleY, int shape=0) ; 
CString toStringO; 
CRect GetRect ( ) ; 
Selector ( ) ; 
virtual ~Selector(); 

pmvate : 

J';; double m_scaleX, m^scaleY, m_area; 
y- double * n\_zoom; 
^1 CRect m_RectSel; 

..: void Draw (CDC* pDC) ; 
C void CleanO ; 

m 



#yMif // 

0 

n.; 

H 
0 

o 



'defined (AFX SELECTOR H 4E54B653 BCCC 11D2 95F9 00105A21774F INCLUDED 
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// Selector , cpp : implementation of the Selector class. 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

#include "stdafx.h" 
#include "DCM.h" 
#include "Selector. h" 

#ifdef _DEBUG 
#undef THJS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG__NEW 
#endif 



////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

Selector: :Selector() 
{ 

m_shape=SEL_RECTANGLE ; 
Clean ( ) ; 

} 

Selector: :~Selector() 

{ 
} 



Functions to Draw and Update Selector rectangle 

vg^d Selector :: Initialize (CDC *pDC, const CPointSc center, double* zoom, 

double scaleX, double scaleY, int shape) 

ra act ive= true; 
; . m_undo=true; 
^'Z' m_shape = shape ; 

£'5 if (m_shape I =SEL__ELLIPSE) m_shape = SEL_RECTANGLE ; 
rj if {scaleX ! =0 . 0) 

m__scaleX=m_scaleY=scaleX ; 
Cj: if (scaleYl =0 . 0) m_scaleY=scaleY; 

if (zoom) m_2oom-20om; 

m_RectSel=CRect ( center . x-128 , center . y~ 128 , center . x+127 , center . y+127) ; 
Draw(pDC) ; 

} 

void Selector : :Draw (CDC *pDC) 

{ 

int dmode ; 

CPen* old_pen = pDC- >SelectOb j ect ( &theApp . app__Pen) ; 

switch (m__shape) 

{ 

case SEL^RECTANGLE: 

dmode=SetR0P2 (pDC->m_hDC, R2_N0T) ; 

pDC->MoveTo (m^RectSel . TopLef t () ) ; 

pDC->LineTo (m^RectSel . right , m__Rect Sel . top) ; 

pDC- >LineTo (m_RectSel . right , m_RectSel . bottom) ; 

pDC->LineTo (m_RectSel . lef t , m_RectSel .bottom) ; 

pDC->LineTo (m_RectSel . TopLef t ( ) ) ; 

SetR0P2 (pDC->m_hDC, dmode); 

break ; 
case SEL_ELLIPSE: 

dmode=SetR0P2 (pDC->m_hDC, R2_N0T) ; 

pDC- >Arc (m_RectSel , m_RectSal . TopLef t ( ) ,m_RectSel . TopLef t ( ) ) / 
SetR0P2 (pDC->m_hDC, dmode); 
break ; 

} 
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pDC~>SelectOb j ect (old_pen) ; 

} 

void Selector : :Remove (CDC *pDC) 
{ 

if{m_undo) Draw(pDC); 
Clean (] ; 

} 

void Selector : :R.edraw (CDC *pDC, const CPoint& center, 

const CPoint& vertex, const CRectS: client) // resize 

{ 

if ( I m_act ive) return; 

if(m_undo) Draw(pDC); // undo old selection 

CPoint z=vertex-center ; 

int a= (abs (z . x) ) ; if(a<16) a=16; 

int b:= (abs (2 .y) ) ; if(b<l6) b=16; 

m_RectSel=CRect ( center . x-a , cent er . y-b , center . x+a , center. y+b) ; 
Tn_RectSel . Inter sectRect {m_RectSel , client) ; 
Tn_RectSel . WormalizeRect ( ) ; 
if (m_RectSel . I sRectEmpty { ) ) returns- 
Draw (pDC) ; // show new selection 
m_undo=true 

} 

void Selector : iRedraw (CDC *pDC, const CPoint& center) // move 

{ 

if { 1 m_act ive) return; 

if (m_undo) Draw(pDC); // undo old selection CRect 
m_RectSel . Of f setRect ( -m_RectSel . CenterPoint ( ) +center ) ; 
Draw(pDC); // show new selection 
m_undo = t rue ; 

Reset selector 

*r'- 

vS-ld Selector :: Clean { ) 

f/; tn_act ive = f alse ; 

m_undo = false; 

Ta_scaleX=m_scaleY=- 1 . 0 ; 
'fTn m_area = 0.0; 

double x=l-0; m_zoom = &x; 
'r; m_RectSel = CRect (0, 0 , 1 , 1) ; 

Return Selector region 

CRect Selector : :GetRect ( ) 
{ 

return m_RectSel; 

} 

-k 

* Return Selector info 
CString Selector :: toString ( ) 

{ 

CString info; 
CString units-"pixels" ; 
double dx=m_RectSel . Width 0 ; 
double dy=m_RectSel - Height 0 ; 
if (m_scaleX>0 ( *m_zoom) > 0 ) 

{ 

un i t s = " mm " ; 

dx = m_scaleX*dx/ ( *m_zoom) ; 
dy = m_scaleY*dy/ ( *m_zoom) ; 

} 

if (m_shape = = SEL_RECTMGLE) m_area = 4 . 0*dx*dy; 
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else /* ellipse */ TU_area=3 . 14 15926 *dx*dy ; 

info . Format (" Selected area = %.2lf %s2, %.2lfx%,2lf %s m_area , unit s , dx , dy , unit s ) 
return info; 
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#if ! defined (AFX_SOUNDDIALOG_H 75 0A3 13 1_C0BF_11D2_95 01_0 010 5A21774F INCLUDED^) 

#def ine AFX_SOUNDDIALOG_H 75 0A3 13 1__COBF_11D2_96 01_0 0105A21774F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 10 00 

// SoundDialog . h : header file 

// 

#include <mmsy s t em . h> 

1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 / 1 n 1 1 1 1 

II SoundDialog dialog 

class SoundDialog : public CDialog 

{ 

// Construction 
public : 

CString GetWavFileName ( ) ; 

SoundDialog (CWnd* pParent = NULL),- // standard constructor 

// Dialog Data 

// { {AFX_DATA (SoundDialog) 

enum { IDD = IDD_SOUND_DIALOG } ; 

// NOTE: the ClassWizard will add data members here 
// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
O //{ {AFX_VIRTUAL (SoundDialog) 
protected: 

virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
virtual BOOL OnNot i f y { WPARAM v^Param, LPARAM IParam, LRESULT'^ pResult) ; 
^3 // } }AFX_VIRTUAL 

/ IS Impleraentat ion 
pSitected: 

f^.| // Generated message map functions 

//{ {AFX_MSG( SoundDialog) 
* afx_msg void OnSoundPlay ( ) ; 
|=--^=^ virtual BOOL Onini tDialog () ; 
f\ afx_msg void OnSoundRecord () ; 
J.'s afx^msg void OnSoundStop () ; 
^^"5 / / ) }AFX_MSG 
M DECLARE_MESSAGE_MAP() 
prl^/ate : 

bool MakeFormatList ( ) ; 

MMRESULT I sFormatSupported ( LPWAVEFORMATEX pwfx, UINT uDevicelD) ; 

bool SetWaveFormat ( ) ; 

bool CloseMCI () ; 

bool SavetoFile ( ) ; 

bool m_Opened; 

MCI_OPEN_PARMS ra_Device; 

CString m_info; 

CString ErrorMCI (DWORD CString intro=CString ( " " ) ) ; 
bool OpenMCI ( ) ; 
CString m_FileName; 

}; 

//{ {AFX_rNSERT_LOCATION} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // 1 defined (AFX_SOUMDDIALOG_H 750A3137_C0BF_11D2_9601_00105A21774F INCLUDED^) 
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// SoundDialog . cpp : implementation file 
// 

#include "stdafx.h" 
# include "DCM.h" 
^include " SoundDialog . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

// SoundDialog . cpp : implementation file 
// 

#include <mmreg.h> 
#include <msacm.h> 

///////////////////////////////////////////////////////////////////////////// 
// SoundDialog dialog 



SoundDialog :: SoundDialog (CWnd* pParent /*^U\JLh*/] 
: CDialog (SoundDialog : : IDD, pParent] 

{ 

/ / { { AFX_DAT A_ IN I T ( S oundD i a 1 og ) 

// NOTE: the ClassWizard will add member initialization here 
// } }AFX_DATA_INIT 



y,©|.d SoundDialog : :DoDataExchange (CDataExchange* pDX) 

CDialog: :DoDataExchange (pDX) ; 
a // { {AFX_DATAjy[AP (SoundDialog) 

%i // NOTE: the ClassWizard will add DDX and DDV calls here 

^ //} } AFZ_DATA_MAP 

bI;SiN_MESSAGE__MAP (SoundOlalog, CDialog) 
^ //{ {AFX_MSG_MAP (SoundDialog) 

ON_BM_CLICKED (IDC_SOUND_PLAY, OnSoundPlay) 
O ON_BN_CLICKED(IDC_SOUND_RECORD, OnSoundRecord) 

ON_BN_CLICKED(IDC_S0UND_ST0P, OnSoundStop) 
Ui ON_MESSAGE (MM_MCINOTIFY, OnNotify) 
H //} }AFX_MSGJVIAP 
Effi_MESSAGE_MAP ( ) 

/hf/////////////// ////////////////////////////////////////////////// ///////// 

II SoundDialog message handlers 

•k 

* Play * . wav file 

void SoundDialog :: OnSoundPlay 0 
{ 

P 1 ay S ound ( m_F i 1 eName , NULL , SND_F I LENAME ) ; 



* 

* Initialize dialog 

BOOL SoundDialog; :0nInitDialog() 
{ 

CDialog: : OnIni tDialog ( ) ; 
m_0pened= false • 

m_FileName=CString ( " sound . wav" ) ; 
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return TRUE; 

} 

it 

* Record sound 
* 

void SoundDialog: : OnSoundRecord ( ) 

{ 

DWORD dwReturn; 

// Open a waveform-audio device with a new file for recording, 
if ( lOpenMCI () ) return; 

// Set recording parameters 
//SetWaveFormat () ; 

MCI_RECORD_PARMS mc iRecordParms ; 
// Record 

mciRecordParms . dwFrom = 0; 
mciRecordParms . dwTo = 1000; 

mciRecordParms . dwCallback = (DWORD) ( this->GetSaf eHwnd ( ) ) ; 
Beep (900 , 100) ; 

if (dwReturn = mciSendCommand (m_Device . wDevice ID ; MCI RECORD, 
^ MCI_FROM I MCI_NOTIFY, (DWORD) (LPVOID) &mciRecordParms ) ) ' 

AfxMessageBox (ErrorMCI (dwReturn, "Recording error: ")); 
mciSendCommand (m_Device . wDevicelD, MCI__CLOSE, 0, NULL); 
r'-A return; 

%S return; 

Stop recording/playmg 

i/^id SoundDialog : :OnSoundStop ( ) 
k 

DWORD dwReturn; 

MCI_GENERIC_PARMS genericParms; 

genericParms. dwCallback = (DWORD) this->GetSaf eHwnd {} ; 

if (dwReturn = mciSendCommand (m_Device . wDevicelD, MCI__STOP , MCI_WAIT , (DWORD) (LPVOID) &genericPar 



AfxMessageBox (Err orMC I (dwReturn, "Stop error: " ) ) ; 
mciSendCommand (m_Device . wDevicelD , MCI_CLOSE, 0, NULL); 

// Save and close MCI 
Beep (500 , 100) ; 
SavetoFile ( ) ; 
CloseMCI ( ) ; 



* Catch MM_MCIMOTIFY 

*************** + 

BOOL SoundDialog ; :OnNot if y (WPARAM wParam, LPARAM iParam, LRESULT* pResult) 

//AfxMessageBox ( "On Notified") ; 
return TRUE; 

} 



* Open MCI device 
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^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
bool SoundDialog :: OpenMCI ( ) 

DWORD dwReturn; 

// Open a waveform-audio device with a nev/ file for recording. 
m_Device . IpstrDeviceType = "waveaudio"; 
m_Device. IpstrElementName = ""; 

if (dwReturn = mciSendCommand ( 0, MCI_OPEN , MCI_OPEN_ELEMEMT | MCI OPEN TYPE, 
^ (DWORD) (LPVOID) &m_Device)) 

AfxMessageBox (ErrorMCI (dwReturn, "Open device error: ")); 
m_Opened=f alse ; 
return false; 

} 

m_Opened=true ; 
return true; 

} 



* 

* Report MCI error 

CString SoundDialog :: ErrorMCI (DWORD e, CString intro) 

CString info; 
^^.=.^1, char ebuf f er [200] ; 

"z; if{! mciGetSrrorString(e,ebuffer,200) ) info . Format ( "Unknown error ") * 
%S else inf o=intro+CString (ebuf f er) ; 
n\ info . Tr imRight ( ) ; 
.^^ return info; 

/M'** ******************************** 

"^U Save MCI recording into a file m FileName 

4p|3l SoundDialog: :SavetoFile (} 

nj DWORD dwReturn; 

\J MCI_SAVE_PARMS mc iSaveParms ; 

mciSaveParms , Ipf ilename = m_FileName; 

if (dwReturn = mciSendCommand (m_Device . wDevice ID MCI SAVE 
B ^ MCI_SAVE_FILE | MCI_WAIT, (DWORD) (LPVOID) &mci SaviParms ) ) 

AfxMessageBox (ErrorMCI (dwReturn, "Save file error: ")); 
return false; 

} 

return true; 



* Close MCI device 

bool SoundDialog :: CloseMCI () 
DWORD dwReturn; 

if (dwReturn = mciSendCommand (m_Device . wDevicelD , MCI_CLOSE , 0 , NULL) ) 

AfxMessageBox {ErrorMCI (dwReturn, "Close error: ")); 
^ mciSendCommand (m_Device , wDevicelD , MCI_CLOSE, 0, NULL); 

return true; 
m_Opened= false ; 
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} 

bool SoundDialog : : SetWaveFormat ( ) 
/* 

DWORD dwReturn; 

MCI_WAVE_SET_PARMS mwspWaveFormParame ter s ; 

mwspWaveFormParameters, v;FormatTag=0x0002; //WAVE_FORMAT_DSPGROUP TRUESPEECH ; //WAVE FORMAT AD 
PCM ; ~ — — 

if (dwReturn=mciSendCommand {m_Device . wDevice ID ^ MCI SET, 
MCI_WAIT I MCI_WAVE_SET_FORMATTAG , ~ 
(DWORD) (LPVOID) &mv/spWaveFormParameters) ) 

AfxMessageBox (ErrorMCI (dwReturn, "Set parameters error: ")); 
mciSendComniand (m_Device . wDevicelD, MCI_CLOSE, 0, NULL) ; 

*/ 

MakeFormatList { ) ; 



UINT wReturn; 

PCMWAVEFORMAT p cmWave Forma t ; 

// Set up PCMWAVEFORMAT for 11 kHz 8 -bit mono. 
pcmWaveFormat . wf . wFormatTag = WAVE FORMAT PCM; 
pcmWaveFormat . wf . nChannels =1; ~ ~ 
pcmWaveFormat .wf .nSamplesPerSec = 11025L; 
pcmWaveFormat . wf . nAvgBytesPerSec = 11025L; 
pcmWaveFormat . wf . nBlockAlign = 1; 
pcmWaveFormat , wB it sPer Sample = 8; 
LJ // See if format is supported by any device in system. 

y;| wReturn = IsFormatSupported ( ( WAVEFORMATEX* ) &pcmWaveFormat , WAVE MAPPER) ; 
^ II Report results. ~ 
if (wReturn 0) 

AfxMessageBox ( "11 kHz 8-bit mono is supported."); 
\j else if {wReturn WAVE RR_B AD FORM AT) 

Af xMessageBox ( " 11 kHz 8~bit mono MOT supported."); 

7;' else 

yj AfxMessageBox ( "Error opening waveform device."); 



return true; 



MMRESULT SoundDialog :: I sFormat Supported ( LPWAVEFORMATEX pwfx, UINT uDevicel 



D) 



return ( wave InOpen ( 
NULL, 

uDevicelD , 
pwf x, 
NULL, 
MULL, 

WAVE_FORMAT_QUERY) ) ; 



// ptr can be MULL for query 

// the device identifier 

// defines requested format 

// no callback 

// no instance data 

// query only, do not open device 



bool SoundDialog: : MakeFormat Li st () 
CString info; 

int m_iNumDevs=waveInGetNumDevs ( ) ; 

if (m_iNumDevs==0 ) 

{ 

AfxMessageBox ( "Mo input devices found"); 
return false; 



WAVEINCAPS* m__pDevCaps = new WAVEINCAPS [m_iNumDevs] ; 
for (int 1=0; i<m iNumDevs ; i++) 



SoundDialog , cpp 



10/27/00 



{ 

wavelnGetDevCaps (i, &m_pDevCaps [i] , sizeof (WAVEINCAPS) ) ; 

info. Format ("wMid=%x An wPid=%xAn szPname=:%s\n dwFormat s= %ld\n wChannels=:%ld" 

m_pDevCaps [i] . wMid , m__pDevCaps [ i ] .wPid, 

m_pDevCaps [i] . szPname , m_pDevCaps [ i ] .dwFormats, 

m_pDevCaps [i] .wChannels) ; 
Af xMessageBox ( inf o) ; 

} 

return true; 

} 



I used this call to open a MM handle for sample recording 

WAVEFORMATEX wINEX; 
WAVE IN WIN; 

wINEX . wFormatTag = WAVE_FORMAT PCM; 
wINEX.nChannels =2; ~ 
wINEX . nSamplesPerSec = 16000; 
wINEX. wBitsPerSample = 8; // 8,16 

WINEX. nBlockAlign = (wINEX . wBit sPerSample * wINEX.nChannels) / 8; 
WINEX. nAvgBytesPerSec = wINEX . nSamplesPerSec * wINEX nBlockAliqn' 
WINEX. cbSize =0; 

f ~ waveln0pen( 
&wIN, 

1^VE_MAPPER, 
&^INEX, 

yyinsigned long) wavelnProc , 
C^^LLBACK^FUNCTION) ; 

i^=.^ecided to use ADPCM for a better compression , but if I select WAVE FORMAT ADPCM to wFormatTaq 
y^jthe wavelnOpen returns an error code : 32 . What's happening ? ~ ~ 

Mi of course , if you have a suggestion for a better compression , tell me 
Thanks 



^J^^spted Answer 

^^J^m: chensu Date: Sunday, August 02 1998 - 07:30PM PDT 

You need to set the WAVEFORMATEX properly. For example, 

// Format Tag: WAVH_FORMAT_ADPCM 
// Channels: 1 

// Samples Per Second: 11,025 
// Avg Bytes Per Second: 5,666 
// Block Alignment: 256 
// Bits Per Sample: 4 

// Extra Format Information: 32 bytes 
// Offset Data Bytes 

0xF4, 0x01, 0x07, 0x00, 0x00, 0x01, 0x00, 0x00, 

0x00, 0x02, 0x00, OxFF, 0x00, 0x00, 0x00, OxOo' 

OxCO, 0x00, 0x40, 0x00, OxFO, 0x00, 0x00, 0x00,' 

OxCC, 0x01, 0x30, OxFF, 0x88, 0x01, 0x18, OxFf' 

You may use an utility to convert a PCM wave file to an ADPCM wave file. Then, use the RiffWalk ut 
ility (it comes with the Platform SDK) to see its header information. 



*/ 

CString SoundDialog: : GetWavFi leName ( ] 

CString filename^" "; 
CFile file; 
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if( ! file. Open (m_FileMame; CFile : : modeRead) ) 
AfxMessageBox ( "Cannot locate sound file"); 

} 

else 
{ 

f ilename = f ile.GetFilePathO ; 
file , Close { ) ; 

} 

return filename; 
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#if ! defined (AFX_STATISTICS_H 6D76 70B1_C12 9_11D2_8051_00 000 0 00 0 00 0 IMCLUDED_) 

#def ine AFX_STATISTICS_H 6D76 70B1_C12 9__11D2_8 051_00 0 0 00 0 000 00 INCLUDED_ 

#if _MSC_VER > 10 00 
#pragma once 

#endif // _MSC_VER > 10 00 

#include " Image/ Image . h" 

// Statistics. h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// Statistics dialog 

class Statistics : public CDialog 

// Construction 
public : 

int* st_Hist; 

long st_n; 

double st_min, st_max, st_Avg, st_StDev; 
CPoint st_HistMax; 



void Clean ( ) ; 

bool Analyze ( Image't pBmp, CRect* roi=NULL, int shape = 0, 

double scaleX=-1.0, double scaleY= - 1 . 0 ) ; 
CString toStringO; 
-Statistics ( ) ; 

Statistics (CWnd* pParent = NULL); // standard constructor 

/ll Dialog Data 

Ol //{ (AFX_DATA{Statistics) 

enum { IDD = IDD_STAT I ST I CS_DIALOG }; 

CString st_numStr ing ; 
^Sli CString st_sizeString ; 
y:| //} }AFX_DATA 

Overrides 

s // ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (Statistics) 
protected: 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

nil // } }AFX_VIRTUAL 

/J^ Implementation 
jkibtected : 

// Generated message map functions 
//{ {AFX_MSG( Statistics) 
virtual BOOL OnIni tDialog ( ) ; 
afx_msg void OnPaint ( ) ; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

int st_shape; 
long st__HistSum; 

double st_area, st_scaleX, st_scaleY; 
CString st_units; 
CRect st_Rect; 

void PaintHistog (CDC* pDC , CRect r) ; 
//{ {AFX_INSERT_L0CATI0N} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous Ime. 
#endif // idefined(AFX_STATISTICS__H_6D76 70Bl_C12 9_llD2_8 051_0 000 000 00 00 0 INCLUDED_) 
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// Stat isti cs . cpp : implementation file 
// 

#include "stdafx.h" 
# include "DCM.h" 
#include " Statistics . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static chax THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// Statistics dialog 



Statist ics :: Statist ics (CWnd* pParent /*=NULL*/) 
: CDialog ( Stat ist ics : : IDD , pParent) 

// { {AFX_DATA_INIT (Statistics) 
st_numString = _T ( " " ) ; 
st_sizeString = _T ( " " ) ; 
st_StDev = 0,0; 

// } }afx__data_init 

st_Hist=0; 
Clean 0 ; 

} 

Statistics: : -Statistics () 

b 

Zl Clean ( ) ; 

u 



vgld Statistics : :DoDataExchange (CDataExchange* pDX) 

p3 

^11 CDialog : : DoDataExchange (pDX) ; 

ffl //{ {AFX_DATA_MAP (Statistics) 

'■^ DDX^Text (pDX, IDC_STAT_AVG , st_Avg) ; 

s DDX_Text (pDX, IDC_STAT_MAX , st_max) ; 

l^h DDX_Text (pDX, IDC_STAT_MIN , st_min) ; 

f^; DDX_Text (pDX, IDC_STAT__NUM , st_nuTnString) ; 

Si; DDX_Text (pDX, IDC_STAT_S I ZE , st_sizeString) ; 

DDX_Text (pDX, IDC_STAT_STD , st_StDev) ; 
Si II] }AFX DATA MAP 

ti 



BEGIM__MESSAGE_MAP (Statistics, CDialog) 
// { {AFX_MSG_MAP ( statistics) 
ON_WM_PAINT ( ) 
// } }AFX_MSG_MAP 

END_MESSAGE_MAP ( ) 



// Statistics message handlers 
* Assign 0 to all statistical parameters 
void Statistics :: Clean ( ) 

( 

st_shape=0; // rectangle by default 
st_Avg=0 . 0 
st_max=0 . 0 
st_min=0 . 0 
st_n=0 ; 
st_StDev=0 . 0 ; 
st_scaleX=st_scaleY=-l , 0 ; 
st_area-0 . 0 ; 
st_unit s= "pixel s " ; 
st_Rect=CRect (0,0,0,0) ; 
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st_HistMax = CPoint (0,0) ; 
st_HistSum=0 ; 
if {st_Hist) 
{ 

delete [] st_Hist; 
st_Hist=0 ; 

} 

} 

* Output string for the status bar 

CString Statist ics :: toString ( ) 
CString cs; 

cs.Format("%ld points: [% . Olf , % . Olf ] range, avg=%.3lf, dev=%.3lf", 
st_n, st_min, st_max, st_Avg, st_StDev) ; 

return cs; 

} 

* 

* Perform statistical analysis of the given region in the given image 
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

bool Statistics: :Analyze (Image *pBmp,CRect* roi, int shape, double scaleX, double scaleY) 

long X, y, dx , dy, p, xO, yO , a, b, ab; 
double temp; 

// Clean all statistical info 
y1 Clean 0 ; 

st_shape=shape ; 

if ( scaleX>0 . 0 && scaleY>0,0) 

st_scaleX=scaleX; st_scaleY= scaleY; 
d% ^ t_un i t s = " mm " ; 

// Set image region 

if ( ! roi) st_Rect-CRect (0, 0 , pBmp - >GetWidth ( ) - 1 , pBmp - >Ge tHe ight () -1) ; 
'^^ else st__Rect . CopyRect (roi) ; 
st_Rect .MormalizeRect 0 ; 

%j // Validate 

p2 st_Rect. IntersectRect (st_Rect, CRect ( 0 , 0 , pBmp- >GetWidth () - 1 , pBmp- >GetHeight () -1) ) • 

J: st_Rect .NormalizeRect ( ) ; ' 

O if (st__Rect . IsRectEmpty 0 ) return false; 

// Find statistics 

// 1. Average, range and number of points 

st_min=pBmp->GetPixel(st_Rect. left, st_Rect. top) ; st_max=st min; 
st__Avg=0.0; st_n=0; ~ 
if (st_shape==l) // ellipse 
{ 

xO= {st_Rect . left+st_Rect .right) /2; a=st_Rect . right -xO ; 
a a; if(a==0) a=l; 

yO= (st_Rect . top+st_Rect .bottom) /2; b= st_Rect . hot tom-yO ; 

b b; if(b==0) b=l; 

ab^a'^b; 

} 

for(x=st Rect.left; x<st Rect.riqht; x++) 

for (y=st_Rect .top; y<st_Rect .bottom; y++) 
if ( st_shape==l) // ellipse 

^ if (b* (x-xO) * (x-xO) +a* (y-yO) * (y-yO) >ab) continue; 

p = pBmp->GetLuminance (x,y) ; 
st_Avg += p; 
if(p>st_max) st_max=p; 
else if (p<st_min) st_min=p; 
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st_n ++,* 

) 

} 

if(st_n<=0} return false; 
st_Avg /= st_n; 
st_area=st_n; 

if (st_units=="mm" ) st_area ( st_scaleX* st_scaleY) ; 

// 2. Standard deviation and histogram 

dx=st_Rect. width 0 /80; if (dx< = 0) dx=l; 

dy=st_Rect .Height () /SO; if (dy<=0) dy=l; 

try { st_Hist=new int [ ( int ) ( st_max) +1] ; } 

catch (...) 

{ 

AfxMessageBox ( "Low memory, cannot allocate image histogram", 

MB__0K|MB_IC0NEXCLAMATI0N) ; 
return false; 

} 

if ( ! st_Hist) 
{ 

AfxMessageBoxt "Low memory, cannot allocate image histogram", 

MB_OK|MB__IC0NEXCLAMATI0N) ; 
return false; 

} 

for(p=0; p<=st_max; p++) st_Hi st [p] = 0 ; 
st__StDev=0. 0; st_HistSum=0; 

for (x = st__Rect. left; x< st_Rect . right ; x += dx) 

f or (y=st_Rect . top; y< st_Rect . hot torn; y dy) 
'"t: if (st_shape = = l) // ellipse 

0^ if (x-xO) * (x-xO) +a* (y-yO) * (y-yO) >ab) continue; 

ill ^ 

r'J P=pBmp->GetLuminance (x,y) ; 

st_Hist [p] + + ; 
iS temp=p~st_Avg; 

st__StDev += temp* temp; 
J'i! st_HistSum ++; 

1'" } ' 

1^::^ if (st_HistSum< = 0) return false; 
LuL st_StDev = sqrt (st_StDev/st_HistSum) ; 
i:': ^* Find histogram pick (maximum) 
(U st_HistMax=CPoint ( 0 , 0) ; 
for(p=0; p<st_max+l; p++) 

if (st_Hist [p] >st_HistMax.y) 

st_HistMax . x=p; 

St HistMax . y=st Hist[p]; 

} 

} 

return true; 

) 

* Initialize dialog 

BOOL Statistics: :OnInitDialog() 
i f ( s t_un i t s = = " p ixe 1 s " ) 

st_sizeString. Format ("%d<x<%d, %d<y<%d pixels", st_Rect . lef t - 1 , st_Rect . right+l , 

st_Rect . top-1 , st_Rect . bottom+1) ; 
^ st_numString, Format ("%ld" , st_n) ; 

else /* mm */ 
{ 

double x0= (st_Rect . lef t-1) *st_scaleX; 
double xl= (st_Rect . right +1) *st_scaleX; 
double y0= ( st_Rect . top-1) *st_scaleY; 
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double yl= ( st__Rect . bottom+1) *st_scaleY; 

st__sizeString. Format ("%.llf<x<%.llf, %, llf <y<% . llf mm" , xO , xl ,yO ,yl) 
^ st_numstring. Format ( "%ld. Area: % . 1 If mm2 " , st_n, st_area) ; 

CDialog: : Onini tDialog ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



* Paint dialog 

void Statistics :: OnPaint ( ) 
{ 

CPaintDC dc(this); // device context for painting 
PaintHistog (&dc, CRect ( 20 , 180 , 295 , 40 0 ) ) ; 

//Do not call CDialog :: OnPaint ( ) for painting messages 



* Paint histogram in the dialog region r 

^£Q,id Statistics :: PaintHistog (CDC *pDC, CRect r) 

if{!st_Hist) return; 
yl long p, pmax; 

pmax= ( long) st_max + l ; 

'''^^ // Draw rectangle and axis 

CRect rl=r; 
^% rl . Inf lateRect (2,2); 

pDC->Rectangle (rl) ; // (rl , EDGE_ETCHED , BF__RECT) ; 

pDC->MoveTo(r. left, r, bottom) ; pDC- >LineTo ( r , right , r. bottom) ; 
■s pDC->MoveTo(r. left ,r. bottom) ; pDC- >LineTo (r . lef t , r.top) ; 
y, pDC->MoveTo (r . lef t ,r . top+2 ) ; pDC->LineTo (r . left +3 , r . top+2) ; 

pDC->MoveTo (r . left , r .bottom) ; 

nj // Set font 

\J pDC->SetMapMode (MM_TEXT) ; 

CFont *oldcf = pDC->SelectObject (&theApp.app_SmallFont) ; 

pDC->SetText Color (RGB (0,0,0) ) ; 
O pDC->SetBkMode (TRANSPARENT) ; 

// Write titles 
CString title; 

title. Format ("%.21f%%",100* (double) ( st_HistMax , y) /st_HistSum) ; 

pDC->TextOut (r . left +5 , r . top , t it le ) ; 

pDC->TextOut (r . lef t-1 , r .bottom, " 0 " ) ; 

if (pmax-l>st_HistMax.x+10) // max intensity 

title. Format ( "%d" ,pmax-l) ; 
^ pDC->TextOut (r . right-7, r .bottom, title) ; 

if (st_HistMax.x>5 || pmax<10) // most frequent intensity 

p=r . lef t+ ( ( long) ( st_HistMax . x ) *r .Width ( ) ) /pmax; 
pDC->MoveTo(p,r. bottom) ; pDC->LineTo (p, r.bottom-10) ; 
title . Format ( " %d" , st_HistMax . x) ; 
pDC->TextOut (p- 5, r. bottom, title) ; 



// Plot the histogram 
pDC->MoveTo (r . left , r .bottom) ; 
for(p=0; p<pmax; p++) 

pDC->LineTo (r . lef t+ (p*r. Width (] ) /pmax. 
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r, bottom- ( (long) (st_Hist [p] ) *r. Height () ) /st_HistMax . y) 



// Restore fonts 
pDC->SelectObject {oldcf ) ; 
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#if idef ined (AFX_MACPROGRESSCTRL_H 6 03BBF44_B19C_11D3_9 0FA_0 02 0AFBC4 9 9D INCLUDED 

#def ine AFX_MACPROGRESSCTRL_H 6 0 3BBF4 4_B 1 9C_1 1D3_9 0 FA_0 0 2 0AFBC4 9 9D INCLUDED__ 

#if _MSC__VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// MacProgressCtrl .h : header file 

// 

// CMacProgressCtrl class, version 1.0 
// 

// Copyright (c) 1999 Paul M, Meidinger (pmmeidinger@yahoo.com) 

// Feel free to modifiy and/or distribute this file, but 

// do not remove this header. 

// 

// I would appreciate a notification of any bugs discovered or 

// improvements that could be made. 

// 

// This file is provided "as is" with no expressed or implied warranty. 
// 

// History: 

// PMM 12/21/1999 Initial implementation. 

///////////////////////////////////////////////////////////////////////////// 
// CMacProgressCtrl window 

#include <afxcmn.h> 

class CMacProgressCtrl : public CProgressCtrl 

423 Construction 
f3 A lie: 

^ CMacProgressCtrl 0 ; 

Mi- Attributes 
pujDlic : 

Operations 
EJ&lic : 

/_/ Overrides 

J_ // ClassWizard generated virtual function overrides 

//{ {AFX_VIRTUAL (CMacProgressCtrl) 
D // } }AFX_VIRTUAL 

/l/":. Implementation 
p~ut)lic : 

Q BOOL Get Indeterminate 0 ; 

f^i void Set Indeterminate (BOOL bindeterminate = TRUE); 
-'■^ COLORREF GetColorO; 

void SetColor (COLORREF crColor) ; 

virtual -CMacProgressCtrl {) ; 

// Generated message map functions 
protected : 

//{ {AFX__MSG(CMacProgressCtrl) 
afx_msg void OnPamtO; 
afx_msg void OnTimer(UINT nIDEvent) ; 
afx_msg BOOL OnEraseBkgnd ( CDC* pDC) ; 
// } }afx_msg 

DECLARE_MESSAGE_MAP ( ) 
private : 

int m_nlnd0f f set ; 
BOOL m_blndeterminate; 

void DrawVert icalBar (CDC *pDC, const CRect rect); 

void DrawHorizontalBar (CDC *pDC, const CRect rect); 

void DeletePens ( ) ; 

void CreatePens ( ) ; 

CPen m_penColor; 

CPen m_penColorLight ; 

CPen m_penColorLighter ; 

CPen m_penColorDark ; 

CPen m_penColorDarker ; 

CPen m_penDkShadow; 
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CPen m_penShadow; 
CPen m_penLi teShadow; 
void GetColorsO; 
COLORREF m_crColor; 
COLORREF m_crColorLight ; 
COLORREF m__crColorLighter; 
^COLORREF m^crColorLightest ; 
COLORREF Tn_crColorDark; 
COLORREF m_crColorDarker ; 
COLORREF m_crDkShadow; 
COLORREF m_cr Shadow; 
COLORREF m crLi teShadow; 

}/ 

///////////////////////////////////////////////////////////////////////////// 

class OProgress : public CMacProgressCtrl 
public : 

void ShowProgress (int percent, char* info=NULL) ; 

bool Initialize 0 ; 

OProgress ( ) ; 

virtual -OProgress () ; 

}; 

//{ {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous li 
rf'^dif // 1 defined (AFX_MACPR0GRESSCTRL_H 603BBF44_B19C_11D3_90FA_0020AFBC4 99D INCLUDED ) 
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// MacProgressCtrl . cpp : implementation file 
// 

// CMacProgressCtrl class, version 1,0 
// 

// Copyright (c) 1999 Paul M. Meidinger (pmmeidinger@yahoo.com) 

// Feel free to modifiy and/or distribute this file, but 

//do not remove this header. 

// 

// I would appreciate a notification of any bugs discovered or 

// improvements that could be made. 

// 

// This file is provided "as is" with no expressed or implied warranty. 
// History: 

// PMM 12/21/1999 Initial implementation. 

#include "stdafx.h" 
#include "MacProgressCtrl , h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS__FILE 

static char THIS__F1LE[] = FILE ; 

#endif 

#define IDT_INDETERMINATE 100 
#define IND_BAND_WIDTH 2 0 

/yf Funtion prototypes. 

a|)i0RREF LightenColor (const COLORREF crColor, BYTE bylncreaseVal) ; 
C^ORREF DarkenColor (const COLORREF crColor, BYTE byReduceVal ) ; 

# 

Qf^ORREF LightenColor (const COLORREF crColor, BYTE bylncreaseVal) 

Return Value: None. 

Ml 

U Parameters : crColor - References a COLORREF structure. 

byReduceVal - The amount to reduce the RGB values by. 

A^.?: Remarks : Lightens a color by increasing the RGB values by the given numbs 

/||J 

^ BYTE byRed = GetRValue { crColor ) ; 

BYTE byGreen = GetGValue { crColor ) ; 
f| BYTE byBlue = GetBValue ( crColor ) ; 

if ({byRed + bylncreaseVal) <= 255) 

byRed = BYTE(byRed + bylncreaseVal); 
if ((byGreen + bylncreaseVal) <= 255) 

byGreen = BYTE (byGreen + by IncreaseVal ) ; 
if ((byBlue + bylncreaseVal) <= 255) 

byBlue = BYTE (byBlue + bylncreaseVal) ; 

return RGB (byRed, byGreen, byBlue); 
} // LightenColorref 



// 

// 

COLORREF DarkenColor (const COLORREF crColor, BYTE byReduceVal) 

// Return Value: None. 
// 

// Parameters : crColor - References a COLORREF structure. 

byReduceVal - The amount to reduce the RGB values by. 



// 
// 



// Remarks : Darkens a color by reducing the RGB values by the given numbe 

{ 

BYTE byRed = GetRValue ( crColor ) ; 
BYTE byGreen = GetGValue ( crColor ) ; 
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BYTE byBlue = GetBValue ( crColor ) ; 

if (byRed byReduceVal) 

byRed = BYTE (byRed - byReduceVal) ; 
if (byGreen >= byReduceVal) 

byGreen = BYTE (byGreen - byReduceVal); 
if (byBlue >= byReduceVal) 

byBlue = BYTE (byBlue - byReduceVal) ; 

return RGB (byRed, byGreen, byBlue); 
} // DarkenColorref 

///////////////////////////////////////////////////////////////////////////// 
// CMacProgressCtrl 

// 

// 

CMacProgressCtrl : : CMacProgressCtrl ( ) 
// 

// Return Value: None. 
// 

// Parameters : None. 
// 

// Remarks : Standard constructor. 

// 

{ 

m_b Indeterminate = FALSE; 
m_nIndCffset = 0; 

m__crColor = : :GetSysColor (COLOR_HIGHLIGHT) ; 

GetColors ( ) ; 

CreatePens ( ) ; 

// CMacProgressCtrl 



c'fekcProgressCtrl : : -CMacProgressCtrl ( ) 
AD 

/,/l. Return Value: None. 

^/i- Parameters : None. 
/^ 

/gi. Remarks : None . 

OJ Delete Pens ( ) ; 
Kj // -CMacProgressCtrl 

^^IN_MESSAGE_MAP (CMacProgresgCtr 1 , CProgres sCtr 1 ) 

// { {AFX__MSG_MAP (CMacProgressCtrl) 

ON_WM_PAINT ( ) 

ON_WM_TIMER() 

ON_WM_ERASEBKGND ( ) 

// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CMacProgressCtrl message handlers 

// 

// 

void CMacProgressCtrl : :OnPaint ( ) 
// 

// Return Value: None. 
// 

// Parameters : None. 
// 

// Remarks : The framework calls this member function when Windows 

// or an application makes a request to repaint a portion 

// of an application's window. 

// 

{ 

CPaintDC dcPamt ( thi s ) ; // device context for painting 
CRect rect, rectClient; 
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GetClientRect (rectClient ) ; 
rect = rectClient; 

BOOL bVertical = GetStyleO & PBS__VERT ICAL ; 

// Create a memory DC for drawing. 
CDC dc; 

dc . CreateCompat ibleDC ( &dc Paint ) ; 
int nSavedDC = dc.SaveDC(); 
CB itmap bmp ; 

bmp.CreateCompatibleBitmap(&dcPaint, rect.WidthO , rect . Height ( ) ) ; 
CBitmap *pOldBmp = dc . SelectOb j ect ( &bmp) ; 

CBrush brl (Tn_crColorLightest ) ; 

CBrush br2 ( : : Get SysColor ( C0L0R_3DFACE) ) ; 

dc . FillRect (rect , &br2); 

int nLower, nUpper; 
GetRange (nLower , nUpper) ; 

// Determine the size of the bar and draw it. 
if (bVertical) 

{ 

if ( lm_blndeterminate) 

rect. top = rect. bottom - int ( ( ( f loat ) rect . He ight ( ) * f loat ( Get Pes ( ) - nLower) ) / float 
(nUpper - nLower) ) ; 

dc . FillRect (rect, &brl) ; 
DrawVert icalBar ( &dc , rect); 

} 

else 

n { 

"1: if ( lm_b Indeterminate) 

"^^^ rect. right = int ((( float ) rect . Width ( ) * float (GetPos () - nLower)) / float (nUpper - nLo 

#r) ) ; 

dc . FillRect (rect , &brl); 
DrawHorizontalBar (&dc, rect); 

H } 



yj dcPaint .BitBlt (rectClient . left , rectCl lent . top , rectCl lent . Width ( ) , rectCl lent . Height () , 

&dc, rectClient . left , rectCl ient . top , SRCCOPY) ; 

s dc , SelectObj ect (pOldBmp) ; 
y.^ dc .RestoreDC (nSavedDC) ; 

dc.DeleteDC ( ) ; 
^ II OnPaint 

Kit 

lA 

\%yld CMacProgressCtrl : :DrawHorizontalBar (CDC *pDC, const CRect rect) 

m 

II Return Value: None. 
// 

// Parameters : pDC - Specifies the device context object. 

// rect - Specifies the rectangle of the proqess bar, 

// 

// Remarks : Draws a horizontal progress bar. 

// 

{ 

if ( Irect .WidthO ) 
return; 

int nLeft = rect. left; 

int nTop = rect. top; 

int nBottom = rect. bottom; 

// Assume v/e ' re not drawing the indeterminate state. 
CPen *pOldPen = pDC- >Se lectOb j ect ( &m_penColorLight ) ; 

if (m_blndeterminate ) 

{ 

pOldPen = pDC->SelectObject (&m_penColor) ; 

int nNumBands = ( rect. Width () / IND_BAND_WIDTH) + 2; 

int nHeight = rect . Height ( ) + 1; 

int nAdjust = nLeft - IND_BAWD_WIDTH + m_nlnd0f f set ; 
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{ 

// Display pattern rectangle 
Draw(PATTERN_RECT) ; 

// DoModal 

if ( ! AllocatePattern ( ) ) return IDCANCEL; 

CDialog : : DoModal ( ) ; 

DeallocatePattern ( ) ; 

Erase (PATTERN_RECT) ; 

Erase (FOUND_RECT) ; 

return IDOK; 

} 



* Prepare dialog before displaying 

BOOL FindRegion: :OnInitDialog() 
{ 

CDialog: : OnlnitDialog ( ) ; 

// Force dialog to appear in the left top screen corner 
CRect wr { 0 , 0 , f_FoundDi splay . right +1 0 , f_FoundDi splay . bottom+7 0 ) ; 
wr . Of f setRect ( theApp . app_ScreenResolut ion- CSize (50,80) -wr.Size() ) ; 
MoveWindow(wr, FALSE) ; 



// Set parameters 
f _Correlation=-10 . 0 ; 

f _ImageStartSearchPoint=CPoint (0,0) ; 
f _Percent = 50 ; 

f_CDC->SetStretchBltMode (HALFTONE) ; 

01 f_Speed.SetRange( 0,5, TRUE) ; 

f_Speed. SetTicFreq (1) ; 
r^Z f_Speed. SetLineSize (2) ; 

f_Speed. SetPos (3) ; 

iifl f __Progres s . SetRange { 0 , 1 0 0 ) ; 
return TRUE; 

h 

Display image pattern and found areas on the dialog 

\^id FindRegion: : DisplayPatterns ( ) 

// Grab dialog CDC 

CDC* dialog_pDC=GetDC ( ) ; 

dialog__pDC->SetStretchBltMode (HALFTONE) ; 



// Output and frame image patterns 

f _pBmp->DisplayD IB (dialog_pDC, f_PatternDi splay, f_ImagePatternRect , CPoint (0,0) , false) 
if (f_Correlation>=:-l . 0) 

{ 

^ f_pBmp->DisplayDIB (dialog_pDC, f_FoundDi splay , f _ImageFoundRect , CPoint (0,0) , false) 

dialog_pDC->DrawEdge ( f_Patt ernDi splay , EDGE_RAISED, EF_RECT) ; 
dialog_pDC->DrawEdge ( f__FoundDi splay , EDGE_RAI SED , BF_RECT ) ; 

// Select font 

dialog_pDC->SetMapMode (MM_TEXT) ; 

CFont *oldcf = dialog__pDC->SelectObject (&theApp.app_SmallFont} ; 
dialog_pDC->SetBkColor (RGB (192 , 192 , 192 ) ) ; 

// Draw titles 

int off = 12*theApp. app_ResolutionScaleFactor ; 

dialog_pDC->TextOut ( f_PatternDisplay . lef t , f_Pat ternDi splay . top-off , 

"Selected pattern : " ) ; 
if ( f _Correlat ion>= - 1.0) 

{ 

CString str_corr; 
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str_corr. Format ( "Match found (%4,0f %%) : " , 10 0*f _Corre lat ion) ; 
^ dialog_pDC->TextOut ( f_FoundDi splay . left, f_FoundDi splay . top -of f , str_corr) ; 

// Reset fonts 

dialog__pDC->SelectObj ect (oldcf ) ; 

} 

* Draw and erase regions 
•k 

void FindRegion :: Draw (UINT code) 

{ 

CRe c t tTnp_r e c t ; 
switch (code) 

{ 

case PATTERN_RECT : 

tmp_rect=f_ScreenPatternRect ; 
tTnp_rect . Def lateRect (1,1) ; 

f_CDC->DrawEdge ( tmp_rect , EDGE_ETCHED , BF_RECT) ; 

tmp_rect . Def lateRect { theApp , app_Resolut ionScaleFactor , theApp . app_Re solut ionScaleFactor ) 
f _CDC- >DrawEdge ( tmp_rect , EDGE_ETCHED , BF_RECT) ; 
break; 
case FOUND_RECT: 

tmp_rect=f _ScreenFoundRect ; 
tmp_rect . Def lateRect (1,1) ; 

f _CDC- >DrawEdge ( tmp__rect , EDGE_BUMP, BF_RECT} ; 
r% break ; 

\S'ld FindRegion: :Erase (UINT code) 
switch (code) 
case PATTERM_RECT : 

€i f__pBmp->DisplayDIB ( f _CDC , f _ScreenPa t ternRec t , f _ImagePat ternRec t , 

ftll CPoint (0,0) , false) ; 

break ; 
^ case FOUND_RECT: 

M= f_pBmp->DisplayDIB ( f _CDC , f _Scr eenFoundRect , f _ImageFoundRec t , 

£j CPoint (0,0) , false) ; 

Z^, break; 

vpid FindRegion :: OnPaint ( ) 

CPaintDC dc{this); // device context for painting 
DisplayPatterns ( ) ; 
^ // Do not call CDialog: rOnPaint ( ) for painting messages 

■k 

* Allocate and deallocate search pattern 

bool FindRegion: : AllocatePattern ( ) 
{ 

int i , j ; 

// Allocate search pattern 
int rw=f _ImagePatternRect . Width ( ) ; 
int rh=f _ImagePatternRect . Height ( ) ; 
if(rw<=0 II rh<=0) return false; 
try { f _Pattern=new long* [rw] ; } 
catch (...) { return false; } 
if ( ! f_Pattern) return false; 
for(i=0; i<rw; i++) 

{ 

f_Pattern[i] = new long [rh] ; 

if (f_Pattern [i] ==0) 

{ 

for(j = 0; j<i; + ) { if {f__Pattern[j] ) delete [] f _Pat tern [] ] ; } 
delete [] f Pattern; 
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return false; 
} // out of meTnory 



// Fill search pattern with pixel data 

f__Pattern_Average=0 ; 

int X, xO, Y, yO/ count=0; 

for (xO=0 , x=f_ImagePatternRect . left ; xO<rw; xO++,x++) 

f or {yO=0 , y=f _ImagePatternRect , top; yO<rh; yO++,y++) 

if (f__ReduceNoise) f __Pattern [xO ] [yO] =f _pBmp- >Get SmoothedLuminance (x , y) ; 
else f_Pattern[xO] [yO] =f _pBmp- >GetLuminance (x , y) ; 

f _Pattern_Average += f _Pattern [xO] [yO] ; 
count ++; 

} 

} 

if(count<l) return false; 
f_Pattern_Average /= count; 
return true; 

} 

bool FindRegion: : DeallocatePattern ( ) 

{ 

if (f_Pattern) 
{ 

for(int i=0; i < f _ImagePatternRect . Width () ; i++} 

if (f_Pattern [i] ) delete [] f _Pattern [ i ] ; 
delete [] f__Pattern; 
f_Pattern=MULL; 

";f return true; 
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#if i defined ( AFX_FTPLOGIMD IALOG_H C8 6 7C4 13_D8A3_11D2_8 0 7 0_0 00 0 0 00 0 0 00 0 INCLUDED_) 

#def ine AFX_FTPLOGINDIALOG_H CS6 7C413_D8A3_11D2_8 0 70_00 0 00 0 00 0 00 0 INCLUDED^ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// FTPLoginDialog, h : header file 

// 

1 1 1 1 1 1 1 1 1 { 1 1 1 1 1 1 1 1 1 1 1 U 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 / 
If FTPLoginDialog dialog 
#include "resource. h" 
class FTPLoginDialog : public CDialog 

// Construction 
public : 

void SetData (CString host, CString usr, 
FTPLoginDialog (CWnd* pParent = NULL) ; 

// Dialog Data 

// { {AFX_DATA (FTPLoginDialog) 
enum { IDD = IDD_DIALOG_FTP }; 
C S t r i ng m_Ho s t ; 
CString m_Pwd; 
CString m__User; 
//} }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
U //{ {AFX_VIRTUAL( FTPLoginDialog) 
yij protected: 

rfl virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

.1^.. //} }afx_virtual 

Implementation 
pjfptected : 

// Generated message map functions 
fij // { {AFX_MSG(FTPLoginDialog) 

virtual BOOL OnlnitDialog () ; 
J^^, //}}AFX_MSG 
^7' DECLARE_MESSAGE MAP ( ) 

/S/i {afx_insert_location} } 

/i?-^^^^^^^^'^ Visual C++ will insert additional declarations immediately before the previous line. 
^Il^^f ! defined (AFX__FTPL0GINDIAL0G_H C867C413_D8A3_11D2_8070_000000000000 INCLUDED_) 



f 1 1 f 1 1 1 1 1 1 1 1 1 1 f f 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 ! 1 1 



CString pwd) ; 

// standard constructor 
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// FTPLoginDialog . cpp : implementation file 
// 

#include "stdafx.h" 
#include " FTPLoginDialog . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// FTPLoginDialog dialog 



FTPLoginDialog :: FTPLoginDialog (CWnd* pParent /*=NULL*/) 
: CDialog (FTPLoginDialog : : IDD, pParent) 

// { {AFX_DATA_INIT (FTPLoginDialog) 
m_Host = _T( " " ) ; 
m_Pwd = _T ( " " ) ; 
m_User = _T ( " " ) ; 
// } }AFX_DATA_IMIT 

} 



void FTPLoginDialog: :DoDataExchange(CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
L4 //{ {aFX_DATA_MAP (FTPLoginDialog) 
il DDX__Text (pDX, IDC_FTP_HOST , m_Host); 
0^ DDX_Text (pDX, IDC_FTP_PWD, m_Pwd) ; 

DDX_Text (pDX, IDC_FTP_USER , m_User) ; 

/ / } } AFX_DATA_MAP 



Bjf?IN_MESSAGE_MAP (FTPLoginDialog, CDialog) 

OJ // { {AFX_MSG_MAP (FTPLoginDialog) 

^ // } }AFX_MSG_MAP 
E§p_MESSAGE_MAP ( ) 

M/ /////////////////////////////////////////////////////////////// ////////// 
/||j FTPLoginDialog message handlers 

: SetData (CStrmg host, CString usr, CString pwd) 

m_User=usr; ra_Pwd=pwd; 



BOOL FTPLoginDialog: : Onini tDialog ( ) 

CDialog: : OnlnitDialog ( ) ; 
m_Pwd= " " ; 

UpdateData (FALSE) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



ypjd FTPLoginDialog: 
tl m_Ho s t = ho s t ; 

}"" 
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#if ! def ined(AFX_LOGFILE_H 0B9E5 82 3_75 0 8_11D3_9 6FD_0 0105A217 74F INCLUDED_) 

#def ine AFX_LOGFILE_H OB9E5 8 23_750 8_11D3_96FD_0 0105A21774F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
// LogFile. h : header file 
// 

#include "resource. h" 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 

II LogFile dialog 

class LogFile : public CDialog, public DICOMViewLog 

// Construction 
public : 

afx_msg void OnClearO; 

void DoModeless (CString win_t it le= " Cl lent Log"); 

void Load(const char *pText) { DICOMViewLog :: Load (pText ) ; } 

void Load (DICOMObject& DO) { DI COMView : : Load ( DO ) ; }; 

bool IsOn ( ) ; 

bool Ref reshText { ) ; 

LogFile (CString filename="", RTC* rtc=NULL, CWnd* pParent ^ NULL) 
CreateDVL { (char*) ( LPCSTR) f i lename , rtc) ; 

}; 



lfl^_ Dialog Data 
^! //{ {AFX_DATA (LogFile) 

enum { IDD = IDD_DIALOG_LOGFILE }; 
yl CEdit m_LogWindov7; 

//}}AFX_DATA 



MJI Overrides 

II ClassWizard generated virtual function overrides 
it // { {AFX_VIRTUAL (LogFile) 
^^^^ protected: 

z: virtual void DoDataExchange (CDataExchange* pDX] ; // DDX/DDV support 
Li, // } }afx_virtual 

l''ij[ Implementation 
pafptected : 

// Generated message map functions 
// { {AFX_MSG(LogFile) 
O virtual BOOL OnlnitDialog ( ) ; 
afx_msg void OnOK ( ) ; 
afx_msg void OnRefresh() ; 
afx_msg void OnCloseO; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 

private : 

void OnCancel ( ) ; 

}; 

//{ {afx_insert__location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line 
#endif // ! defined ( AFX_LOGFILE_H OB9E5823_7508_11D3_96FD_00105A21774F INCLUDED_) 
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// LogFile.cpp : implementation file 
// 

#include "stdafx.h" 
#include "DCM.h" 
#include "LogFile.h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// LogFile dialog 

void LogFile : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog : : DoDataExchange (pDX) ; 
/ / { { AFX_D ATA_MAP ( Log F i 1 e ) 

DDX_Control (pDX, IDC_EDIT_FILE__LOG, m_LogWindow) ; 
DDX_Text (pDX, IDC_EDI T__F ILENAME , CString (m_Filename ) ) ; 
// } }AFX_DATA_MAP 

} 



B EGIM_]y[ES S AGE_MAP ( Log F lie, CD i a 1 og ) 
// { {AFX_MSG_MAP (LogFile) 

ON_BN_CLICKED ( IDC_BUTTON__REFRESH , OnRef resh) 
ON_BN_CLICKED ( IDC__BUTTON_CLEAR, OnClear) 
p =1 ON_BN_CLICKED ( IDOK, OnOK) 
0N_WM_CLOSE ( ) 
/ / } } AFX_MSG__MAP 
#b_MESSAGE_MAP ( ) 

4?////////////////////////////////////////////////////////////////////////// 
//; LogFile message handlers 

Set dialog window to log text 

h^^l LogFile : :RefreshText ( ) 

lU if ( 1 (this->GetSaf eHwndO ) ) return true; // dialog is not displayed 

\J long max_length=10 00 0 ; 

fi CString tbuffer ( (TCHAR) ( ' ' ) ,max_length) ; 
// Refresh log text 

DICOMViewLog: : Ref reshText ( ( char ) ( LPCSTR) tbuffer , max_length) ; 
// Display log 

int n= tbuffer . Replace ( " \n" , " \r\n" ) ; 
m_LogWindow . Se t WindowText { tbuffer) ; 
UpdateData (FALSE) ; 
m_LogWindow. Line Scroll (n+10 ) ; 
return true; 

} 

■k 

* Initialize dialog 
■k 

BOOL LogFile : :OnInitDialog ( ) 

{ 

CDialog: : Onini tDialog ( ) ; 
Ref reshText ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

* Display dialog 



1 



LogFile . cpp 



10/27/00 



void LogFile : :DoModeless (CString win_title /*="Client Log"*/) 

if ( this->GetSaf eHwnd ( ) ) return; 
Create ( IDD__DIALOG__LOGFILE , MULL) ; 
// Always display on top 
SetWindowPos ( &wndTopMost , 0,0,0,0, 

SWP__NOMOVE I SWP__NOSIZE | SWP_SHOWWINDOW ) ; 
SetWindowText (win__title) ; 
//ShowWindow(SW_SHOWNORMAL) ; 

if (win__title. Find ( "Client ") >-l) // offset client window 

{ 

theApp .MoveWindowToCorner (this, CSize (20,20) ) ; 

else 

{ 

theApp . MoveWindov/ToCorner (this) ; 

} 

} 

bool LogFile: :IsOn() { return ( this- >GetSaf eHwnd ( ) [= NULL); } 

* Buttons 

void LogFile: :OnOK() { DestroyWindow ( ) ; } 

void LogFile: :OnClose 0 { DestroyWindow () ; } 

void LogFile : :OnCancel ( ) { DestroyWindow () ; } 

VQj.d LogFile : :OnRefresh ( ) { Ref reshText () ; } 
v%4.d LogFile : rOnClear ( ) 

Wi DICOMViewLog : : Ref reshText (MULL , -1) ; 

if (this->GetSaf eHwnd {) ) m_LogWindow . SetWindowText ( " " ) ; 
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#if 1 defined (AFX_LUPA_H 24CE8B94_7D8F__11D2_95 8F__0 0 00 00 0 00 0 00 INCLUDED_) 

#def ine AFX_LUPA_H 24CE8B94_7D8F_11D2_95 8F_0 0 00 00 00 0 00 0 INCLUDED_ 

#if _MSC_VER 1000 
#pragma once 

#endif // __]y[SC_VER >= 1000 
// Lupa.h : header file 
// 

#include " Image/ Image . h" 
^include "resource. h" 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

!l Lupa dialog 

class Lupa : public CDialog 

// Construction 
public : 

Lupa(CWnd* pParent = NULL) ; 
-Lupa ( ) ; 

// Dialog Data 

//{ {AFX_DATA(Lupa) 

enum { IDD = IDD_MAGNIFY_DIALOG }; 
private : 

BOOL l_optimize; 
long l_height; 
long l_width; 
publ ic : 

double l_zoom; 
//}}AFX_DATA 

//■h Overrides 

^^M. II classWizard generated virtual function overrides 
""^1 //{ {AFX_VIRTUAL (Lupa) 
y;J protected: 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 
2t // } }afx_virtual 

ItJ Implementation 
public : 

Inactive ; 
l_scnSize ; 

Initialize {CSize csScn, double scrn_zoom, double lupa_zoom) ; 
Reset_l_DC (CDC *pDC, CRect& scrolled__cl lent ) ; 
Move(CPoint& a, CPoint& rel, Image* pBmp, CDC* pDC) ; 
Resize{CDC* pDC, CPoint center, CPoint vertex); 
Resize (CDC *pDC) ; 
CString toStringO; 

inline CRect Lupa :: Set ImgRect ( CPoint & cpl) 

{ 

CRect r( CPoint ( cpl , x- (l_imgS ize . cx> > 1) , cpl . y- ( l^imgSize , cy> > 1) ) , l_imgSize ) 
return r; 

}; 

inline CRect SetScrnRect (CPoint & cpS) 

return CRect (CPoint (cpS.x- ( this->l_scnSize . cx>>l) , cpS.y- ( thi s - > l_scnS i ze . cy> > 1 
this- >l_scnSize) ; 

protected : 





bool 




CSize 




void 




void 




void 




bool 




bool 



// Generated message map functions 
//{ {AFX_MSG(Lupa) 
virtual BOOL Onini tDialog { ) ; 
afx_msg void OnChangeMagnif yWidthEdit ( ) ; 
afx_msg void OnChangeMagnif yHeightEdi t () ; 
afx_rasg void OnChangeMagnif yZoomEdit {) ; 
afx_msg void OnChangeMagnif yOpt imize () ; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ) 
private : 

bool l_preactive; 
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double l_iTng__zoom; 

CSize l_imgSize; 

CRect l_scnRect, l__dragRect; 

HBITMAP 1_DIB; 

BYTE* l_Dat:a; 

CDC* 1_DC; 



void Draw{CDC *pDC) ; 

bool Update2 (CRect& a, CRect&b) 



// { {afx_insert_locatiom} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 



#endif // 1 defined (AFX_LUPA_H 24CE8B94_7D8F_11D2__95SF_000000000000 INCLUDED_) 
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// Lupa . Cpp : implementation file 
// 

#include "stdafx.h" 
#include "DCM.h" 
# include "Lupa.h" 

#ifdef _DEBUG 
#define new DEBUG__NEW 
#undef THIS_FILE 

static char THrs_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// Lupa dialog 

Lupa: : Lupa (CWnd* pParent /*=MULL*/) 
: CDialog (Lupa : : IDD, pParent) 

{ 

// { {AFX_DATA_INIT (Lupa) 

l_height = 12S*theApp . app_Re solut ionScaleFactor ; 

l_width = l_height; 

l_zoom = 2.0; 

l_opt imize = f al se ; 

// } }AFX_DATA_INIT 

l_act ive = false ; 

l_preact ive=f alse ; 

1_DC-NULL; 

l__DrB=NULL; 

l_Data=NULL; 

this- > Initialize (CSize { l_width, l_height ) , 1,0, l_zoom) ; 
L^pa: : -Lupa ( ) 

J"; if(l_DC ScSc ! theApp . app_Metheus) delete 1_DC; 
'H if(l_Data) delete [] l__Data; 
if(l_DIB) 

Jl { 

MetheusDeleteCompatibleBitmap ( l_DC->GetSaf eHdc ( ) ,1_DIB) ; 

h ^ 

^^ad Lupa : :DoDataExchange (CDataExchange* pDX) 

\ji CDialog : : DoDataExchange (pDX) ; 
~ J / / { { AFX_DATA JMAP { Lupa ) 

DDX_Text (pDX, IDC_MAGNI FY_HEIGHT_ED IT , l_height) ; 
Q DDV_MinMaxLong (pDX, l_height, 0, 1000); 

DDX__Text (pDX, IDC_MAGNI FY_WIDTH_EDIT , l_width) ; 

DDV_MinMaxLong (pDX, l__width, 0, 1000); 

DDX_Text (pDX, IDC_MAGNI FY_ZOOM_EDI T , l_zoom) ; 

DDV_MinMaxDouble {pDX, l_zoom, 0., 10.); 

DDX__Check(pDX, IDC_MAGNI FY_OPTIMIZE , l_optimize) ; 

// } }AFX_DATA_MAP 

} 



BEGIW_MESSAGS_MAP (Lupa, CDialog) 
//{ {AFX_MSG_MAP(Lupa) 

ON_EN_CHANGE ( IDC_MAGNIFY_WIDTH_ED IT , OnChangeMagnif yWidthEdit ) 
ON_EN_CHANGE ( I DC_MAGN I F Y_HE I GHT_ED I T , OnChangeMagn i f yHe i gh t Edi t ) 
OK_EN_CHANGE ( IDC_MAGNIFY__ZOOM_SDIT, OnChangeMagni f yZoomEdi t ) 
ON__EN_CHANGE ( IDC_MAGN I FY_OPT IMI ZE , OnChangeMagni fyOpt imi ze ) 
/ / } }afx__msg_map 

END_MESSAGE_MAP ( ) 

* LUPA initialization 
■k 

* Input : 

* on-screen lupa size csScn, screen image zoom scrn_zoom, LUPA l_zoom l_img_zoom 
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void Lupa :: Initialize (CSize csScn, double scrn_zoom, double lupa_zoom) 

l_scnSize=CSize ( c sScn . cx , csScn . cy ) ; 

l_zooTn=lupa_zoom; 

l_img_zoom=scrn_zoom; 

double ivzf=1.0 / { scrn_zoom*lupa_zoom) ; //combined inversed zoom 
l_imgSize = CSize ( (long) ( 1 + ivzf *l__scnSize , cx) , 

(long) ( 1+ivzf *l_scnSize . cy) ) ; 
l__dragRect = CRect (0,0,0,0) ; 

} 

■k 

* Lupa message handlers 

BOOL Lupa : lOnlnitDialog 0 
{ 

CDialog: : OnlnitDialog ( ) ; 
l_width=l_scnSize , cx; 
l_height=l_scnSize . cy ; 
UpdateData (FALSE) ; 

return TRUE; // return TRUE unless you set the focus to a control 
^ // EXCEPTION: OCX Property Pages should return FALSE 

void Lupa: : OnChangeMagnif yWidthEdit ( ) 

UpdateData (TRUE) ; 

if (l_width<10) l_width=10; 

l_scnSize . cx=l__width; 

Initial ize(l scnSize^ 1 img zoom, 1 zoom) ; 

vpid Lupa: : OnChangeMagnif yHeightEdi t () 

"^^ UpdateData (TRUE) ; 

^0 if ( l_height<10) l__height=^10 ; 

Ml l__scnSize . cy=l_height ; 

Initial! ze ( l__scnSize , l_img_zoom, l_zoom) ; 

v©id Lupa: : OnChangeMagnif yZoomEdit () 

UpdateData (TRUE) ; 
Z:^ if ( l_2:oom< 1 . 5) l_zoom=1.5; 
^flj Initialize ( l_scnSize , l_img__zoom, l_zoom) ; 

V9,|d Lupa: :OnChangeMagnif yOptimize 0 

UpdateData (TRUE) ; 
l_optimi2e= ! 1 optimize; 

} 

* Move lupa over the image CDC, responding to ( dis } act ivated status 

void Lupa : rMove (CPoint& a, CPoint& rel. Image* pBmp, CDC* pDC) 

CPoint p; 
CRect rO,rl; 
CSize da=a-rel; 

if(l_active) // active lupa was requested 

// Remove lupa resizing rectangle, if any 
if ( l_dragRect . bottom != 0) 

{ 

Draw (pDC) ; 

l_dragRect= CRect (0,0,0,0) ; 
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if ( i l_preactive) // was not active before 
{ 

rO=CRect (0, 0 , pBmp- >m_ScreenMap . cr Screen . Width ( ) , pBmp - >m_ScreenMap . crScreen . He ight () ) 
Reset_l_DC (pDC.rO) ; 

rO=CRect {0,2, 0,2) ; // dummy update area 

} 

else r 0=l_scnRect ; // Remember previous image area 
// Compute new lupa zoom area 
rl=SetScrnRect (a) ; 

// For Metheus: ignore rectangles not fully inside the image area 

if (theApp. app_Metheus && ! pBmp - >m_ScreenMap . Scr een_in_Image ( r 1 , 3 ) ) return; 

l__scnRect = rl ; 

// Compute and redraw update rectangles 
bool bu=Update2 (rO , rl ) ; 
if (theApp. app__Metheus) 

{ 

rO . Inf lateRect (2,2) ; 

pBmp->DisplayDIB(pDC,rO,pBmp->m_ScreenMap. Screen to Image{rO) ,CPoint (da) ) ; 
/* 

MetheusLoadlmageFromDIB (pDC- >Get Saf eHdc ( ) , 1_D IB , theApp , app_DynainicPalet teS tart , 

rO. lef t, r O.t op, rO. Width 0 ,rO. Height () , 
rO. left, rO, top) ; 

*/ 

} 

else 
{ 

rO . Of f setRect ( -da) ; 

pDC->BitBlt (rO . left , rO . top, rO . Width () , rO .Height ( ) , 1_DC, 
rO. left, rO. top, SRCCOPY) ; 

} 

if (bu) 
{ 

if (theApp . app Metheus) 

{ 

rl . Inf lateRect (2,2) ; 

pBmp->DisplayDIB (pDC,rl,pBmp->m_ScreenMap. Screen_to Image(rl) ,CPoint(da) ) ; 
/* 

MetheusLoadlmageFromDIB (pDC- >Get Saf eHdc ( ) , 1_DIB , theApp . app__DynamicPalet teStart , 

rl . lef t ,rl . top , rl . Width ( ) , rl .Height () , 
rl. lef t,rl.top) ; 

} 

else 
{ 

rl .Of f setRect (-da) ; 

pDC->BitBlt (rl . lef t , rl . top, rl .Width ( ) , rl .Height () , 1_DC, 
rl . lef t , rl . top, SRCCOPY) ; 

} 

// Zoom image into new area 

rO=l_scnRect ; 

rO . Of f setRect ( -da) ; 

CRect ir=Set ImgRect (pBmp->m_ScreenMap . Screen_to_Image (a) ) ; 
if ( l_opt imize) 

{ 

Image* kadr=new Image ( false) ; // no pixel undo 

if ( lkadr->Create Image (8* ( (7+ir.Width() ) /8) , 8* ( (7+ir .Height () ) /8) , 

pBmp->GetBytesPerPixel ( ) , pBmp - >m_pPal ) ) 

delete kadr ; 

pBmp->DisplayDIB (pDC,rO, ir,CPoint (0, 0) , false) ; 
pDC->DrawEdge (& (rO) , EDGE_BUMP , BF_RECT ) ; 
return; 

} 

kadr->m_pPal->p_active=f alse ; // no palettes for lupa ! 
pBmp->GetSubimage (kadr, ir. left, ir. top) ; 
kadr->TR_HistStretch (1 , false) ; 

kadr->DisplayDIB (pDC , rO , CRect (0,0, ir, Width ( ) -1 , ir .Height ( ) -1) ,CPoint (0,0) , false) ; 
delete kadr; 

} 

else 

{ 

pBmp->DisplayDIB (pDC,rO , ir, CPoint (0,0) , false) ; 

} 
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^ pDC->DrawEdge (& (rO) , EDGE_BUMP , BF_RECT) ; 

el se // disactivated lupa was requested 

if ( l_preact ive ) 
{ 

p=l_scnRect . TopLef t ( ) -da; 
if (theApp . app Metheus) 

{ 

pBmp->DisplayDIB (pDC, l_scnRect , pBmp- >m_ScreenMap . Screen_to_Image ( 1 scnRect ) , da) 
/* 

MetheusLoadlmageFromDIB (pDC- >Get Saf eHdc ( ) , 1_DIB , theApp . app_DynamicPaletteStart , 

p.x,p.y, l_scnRect. Width ( ) , l_scnRect . Height ( ) , 
p.x,p.y) ; 

*/ 

} 

else 
{ 

pDC->BitBlt (p.x, p.y, l_scnRect .Width ( ) , l_scnRect , Height ( ) , 1_DC, 
p.x,p.y,SRCCOPY) ; 

delete 1_DC; 

} 

l_preactive= false ; 
1_DC=0 ; 



*01 ^^^Presents update region as tv7o rectangles 
'^j^ Returns false if only one rectangle "a" must be updated 
or true if both "a" and "b" 

bobl Lupa : :Update2 (CRect & a, CRect & b) 

OJ if (a.WidthO !=b.Width() || a . Height () 1 =b . Height ( ) ) return false; 
^ if (a.EqualRect (&b) ) // coinciding rectangles 

\Z a=CRect (a . left , a , top, a . lef t , a . top) ; 

return false; 

"Ci CRect al; al . CopyRect { &a) ; 

CRect bl; bl .CopyRect (&b) ; 
O if (a. lef t<=b. lef t b . left< =a . right ) 

if (a. top<=b. top && b. top<=:a. bottom) 

al = CRect (a. lef t , a . top , b . lef t , a . bot torn) ; 
^ bl=CRect (b. left, a. top , a . r ight , b . top ) ; 

else if (a. top<=b.bottom b, bottom<=a .bottom) 

al^CRect ( a . lef t , a , t op , b . lef t , a . bottom) ; 
^ bl=CRect (b. lef t , b . bottom , a . right , a , bottom) ; 

else return false; 

} 

else if (a . lef t<=b. right b . right< =a . right ) 

if (a.top<=b. top b. top<=a. bottom) 

al= CRect (a. lef t, a, top , b , right , b . top) ; 
^ bl=:CRect (b. right, a. top, a. right, a. bottom) ; 

else if (a . top<^b . bottom && b . bottom<=a . bottom) 

al:=CRect (a. lef t , b . bottom, b . right , a . hot tom) ; 
bl=CRect (b . right , a . top , a . right , a . bottom) ; 

else return false; 
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else return false; 

a. CopyRect (&al) ; 

b. CopyRect ( &bl) ; 
return true; 



•k 

* Copies current screen image into lupa CDC 1 DC 

void Lupa : :Reset_l_DC (CDC * pDC, CRectSc scrol led_cl lent ) 

int w=scrolled_client . Width 0 ; 

int h=scrolled_client .Height 0 ; 

l_preactive=true ; 

if ( theApp . app_Metheus) 

{ 

l_DC=pDC ; return ; 

w=2048; h=2560; 
// BYTE buffer 

if(l_Data) { delete [] l_Data; l__Data=NULL ; } 

if (1__DIB) 

{ 

MetheusDeleteCompat ibleBitmap (pDC- >GetSaf eHdc 0,1 DIB) ; 
1_DIB=NULL; ~ 

l_DIB=MetheusCreateCompat ibleBitmap (pDC- >GetSaf eHdc ( ) ,w,h) ; 

fn l_Data=new BYTE[w*h*3] ; 

1^ HDC hdc=pDC->GetSaf eHdc ( ) ; 

BOOL bl=MetheusGet Image Int oData (hdc, 1_DIB , theApp , app_DynamicPalet teSt art , 
'^^^ (UCHAR*) l_Data, w, h, 2*w, 16, 

^1 0 , 0 , h, 

^ 0,0); 

if (bl = = FALSE) 

Beep (700, 150) ; 

y^^ ^ AfxMessageBox ( "MetheusGetlmagelntoData Failed"); 

BOOL b2=MetheusLoadImageFromData (hdc , 1_DIB , theApp . app_DynamicPaletteStart , 
OJ , l_Data, h, 2*w, IS, 

0,0,w,h, 

-"^I scrolled_client . lef t , scrolled client. top); 

if (b2 = = FALSE) 

Beep (700,250) ; 

AfxMessageBox ( "MetheusLoadlmageFromData Failed") ; 



else 
{ 



} 



if(l_DC) { l_DC->DeleteDC 0 ; delete 1_DC ; 1_DC=0; } 
l_DC=new CDC ( ) ; 

l_DC->CreateCompatibleDC (pDC) ; 
CBitmap b; 

b. Great eCompat ibleBitmap (pDC, w,h) ; 
l_DC->SelectObject (&b) ; 

l_DC->BitBlt (0, 0, w,h,pDC, scrol led_c 1 lent . left, scrol led_c 1 lent . top , SRCCOPY) 
b.DeleteObject () ; 



* Interactively resize the Lupa region on the image 

■k 

bool Lupa: iResize (CDC *pDC, CPoint center, CPoint vertex) 
Draw(pDC); // remove old rectangle 
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CPoint z=vertex-center ; 

int a=: (abs (z . x) ) <<1 ; if(a<32) a = 32; 

int b- (abs (z .y) ) <<1 ; if(b<32) b = 32; 

Initialize (CSize (a , b) , l__img_zoom, l__zoom) ; 

l_dragRect=SetScrnRect (center) ; 

Draw(pDC) ; // draw new rectangle 

return true; 

} 

bool Lupa : :Resize {CDC *pDC) 

{ 

Draw(pDC) ; // just remove old rectangle 
l_dragRect=CRect (0,0,0,0) ; 
return true; 

} 

* Output Lupa parameters into a string (used in status bar) 
CString Lupa : : toStr ing {) 

{ 

CString s; 

s . Format ( "Screen size %dx%d, zoom^% . 2 If " , l_scnSi ze . cx , l_scnSize , cy , l_2oom) 
return s; 

} 

* 

Draw Lupa region rectangle 

w|Ld Lupa :: Draw (CDC *pDC) 

int draode = SetR0P2 {pDC->m_hDC , R2_N0T) ; 
'^i pDC->MoveTo(l_dragRect .TopLef t () ) ; 

pDC- >LineTo ( l_dragRect , right , l_dragRect . top) ; 
,fi; pDC- >LineTo ( l_dragRect . right , l_dragRect . bottom) ; 
J;';: pDC->LineTo ( l_dragRect . left , l__dragRect .bottom) ; 
lU pDC->LineTo (l_dragRect . TopLef t () ) ; 

SetR0P2 (pDC->m hDC, dmode) ; 
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#if i defined (AFX_RENAME_FILE_DIR__DIALOG_H 55 2 7F6 76__DCE1_11D2_9 6 2 7_0 0105A217 74F INCLUDED_ 

#def ine AFX_RENAME_FILE_DIR_DIALOG_H 5 5 2 7F6 76_DCE1_1 1D2_96 2 7_0 0 1 0 5A2 1 774 F INCLUDED^ 

#if __MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// Rename_File_Dir_Dialog . h : implementation file 
// 

#include "stdafx.h" 
# include "DCM. h" 



//#ifdef _DEBUG 
//#define new DEBUG_NEW 
//#undef THIS_FILE 

//static char THIS_FILE[] = FILE ; 

//#endif 

///////////////////////////////////////////////////////////////////////////// 
// Rename_File_Dir_Dialog dialog 

class Rename_File_Dir_Dialog : public CDialog 

// Construction 
public : 

Rename_File_Dir_Dialog (CString old_name, CWnd* pParent = NULL); // standard constructor 
CString getNameO; 

IJ,^ Dialog Data 

^^f / / { { AFX_DAT A ( Rename_F i 1 e_D i r_D i a 1 og ) 
O enum { IDD = IDD_DIALOG_RENAME_FILE_DIR }; 
111 CString m_NewName; 
//}}AFX_DATA 

/~|l Overrides 

^^z, II ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (Rename_File_Dir_Dialog) 
protected: 

^ virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
y. //} }afx__virtual 

/V=? Implementation 
protected : 

II Generated message map functions 
y // { {AFX_MSG(Rename_File__Dir_Dialog) 

// MOTE: the ClassWizard will add member functions here 
// } }AFX_MSG 
DECLARE_MESSAGE__MAP ( ) 
private : 

CString m__OldName; 

}; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II Rename_File__Dir_Dialog dialog 



Rename_File_Dir_Dialog : :Rename_File_Dir_Dialog (CString old_name, CWnd* pParent /*=NULL*/) 
: CDialog (Rename File Dir Dialog:: IDD, pParent) 

{ - _ - 

m_0 1 dName = o 1 d_name ; 

m_OldName . TrimLef t ( ) ; 

m_Ol dName . TrimRight ( ) ; 

m_OldName . Replace ( " \\" , " / " ) ; 

// { {aFX_DATA_INIT (Rename_File_Dir_Dialog) 

m_NewName = m_01dName; //_T(""); 

// } }afx_data_init 



■k 

* Take care of the appropriate file/directory name syntax 
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CString Rename_Fi le_Dir_Dialog : :getName() 

m_NewName . Remove ( ' ' ) ; 
m__NewMame . Remove {'/'); 
m__NewName - Remove ( ' \ \ ' ) ; 

if (m_OldName [0] == ' / ' ) m_MewMame= CString ( "/" ) +m_NewMame; 

if (m_OldMame.Find{" .dcm" , -1) >-l && m_NewName . Find ( " .dcm" , -1) ==-l) 

m_NewName += CString ( " . dcm" ) ; 
if (m_OldMame . Find ( " . gz " , - 1 ) > - 1 m_NewName . Find ( " . gz " , - 1 ) -1) 

m_NewName += CStr ing ( " . gz " ) ; 
return m__NewName ; 

} 



void Rename_File_Dir__Dialog : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 

/ / { { AFX_D ATA_MAP { Rename_F i 1 e_D i r _D i a 1 og ) 

DDX_Text (pDX, IDC_EDIT_RENAME , m_NewName) ; 

DDV_MaxChars (pDX , m_MewName , 200); 

//} }AFX_DATA MAP 

} 



B EG I M_ME S S AGE_MAP ( Re name_F i 1 e_D i r_D ialog, CDialog) 
// { {AFX_MSG_MAP (RenaTne__File_Dir_Dialog) 

// NOTE: the ClassWizard will add message map macros here 

//} }afx_msg_map 

E^p_MESSAGE_MAP ( ) 

/^3^////////////////////////////////////////////////////////////////////////// 
/01 Rename_File_Dir_Dialog message handlers 

/J^ {afx_insert_location} } 

/7j= Microsoft Visual C + + will insert additional declarations immediately before the previous line. 
^3f^^^ ^ ^ I defined {AFX_RENAME_FILE_DIR_DIALOG_H 55 2 7F6 76__DCE1_11D2_9 6 2 7_0 0 1 0 5A2 1 774 F INCLUDED ) 
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// Ruler. h: interface for the Ruler class. 
// 

////////////////////////////////////////////////////////////////////// 

#if ! defined (AFX_RULER_H D76C3 83 3_C6DF_11D2_96 0 9_0 0105A21774F INCLUDED_) 

#def ine AFX_RULER_H D76C3 83 3_C6DF_11D2_9 6 0 9_0010 5A21774F INCLUDED_ 

#if _MSC_VER > 10 0 0 
#pragma once 

#endif // _MSC_VER > 1000 
class Ruler 

{ 

public : 

bool r_undo, r_active; 

void SetScale(int code); 

void ChangeTicksAndStyle (CDC *pDC, int d) ; 
void UpdatePopMenu (CMenu* pop) ; 

void Redraw(CDC^ pDC, CPoint& p, double* zoom=NULL, double dx=0.0, double dy=0,0) 

void Draw (CDC* pDC) ; 

CString toString ( CPoint scroll) ; 

Ruler ( ) ; 

virtual -Ruler (); 

private : 

int r_ticks; 

double r__length, r_pix_length , r_pix__spacingX , r_pix_spacingY, r_scale coeff; 
double* r_zoom; ~ 
CString r_scale; 
^-f CS i z e r_s i z e ; 

CPoint restart, r_end; 

void Clean ( ) / 
J^'^ void GetLengthO; 

^Sf^^^ I defined (AFX_RULER_H D76C3833_C6DF_11D2_9609_00105A21774F INCLUDED ) 
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// Ruler. cpp: implementation of the Ruler class 
// 



#include "stdafx.h" 
#include "DCM.h" 
#include "Ruler. h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS__FILE [ ] = FILE_ 

#define new DEBUG_NEW 
#endif 



// Construction/Destruction 



Ruler : rRuler ( ) 

{ 

Clean ( ) ; 

} 

Ruler : : -Ruler ( ) 

{ 

Clean 0 ; 

} 

Set all to 0 

vlfid Ruler : : Clean ( ) 

ij]: r_active = f alse ; 

r_undo=f alse ; 
2f r__ticks = l ; 
Ul r_start=-CPoint (30 , 30) ; 
^ r_end=:CPoint ( 10 , 10) ; 

r__si2e = CSize ( 0 , 0 ) ; 

r_scale=CString ( "pixels" } ; 
LJ r_pix_spacingX=l . 0 ; r_pix_spacingY= 1 . 0 ; 
f|j double x=1.0; r_zoom=&x; 
l^i r_scale_coef f = 1 . 0 ; 

r_length= 0 . 0 ; 

r_p i x_l eng t h= 0 . 0 ; 



* Draw a ruler (once) 

/ 



■k 

void Ruler : :Draw (CDC *pDC} 

{ 

CSize t; 

int dmode=SetR0P2 (pDC->m_hDC, R2_N0T) ; 

CPen* oldjen = pDC- >SelectOb j ect ( &theApp . app_Pen) ; 

// Draw Ruler line 

pDC->MoveTo (restart) ; pDC->LineTa (r_end) ; 

if (r_ticks) 

{ 

// Circle the start point 

pDC->Arc(CRect (r_start.x-6,r_start.y-6,r_start-x+6,r_start.y+6) , r start, r start)- 
// Circle the end point ~ ' ~ 

if (r_pix_length>16) pDC->Arc (CRect (r__end.x-6 , r_end.y-6 , r_end.x+6 , r_end.y+6 ) , r_end, r_end) 

7 

// Draw tick points 

if (r_pix_length>4*r ticks) 

{ 

t=CSize( (int) ( 0 . 5+4 *r_size . cy/r_pix_length) , 
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- (int) (0.5+4*r_size.cx/r_pix_length) ); // normal vector 

CPoint tic; 

for (int 1=1; l<=r ticks; 1++) 
{ 

tic^CPoint ( (i*r_start ,x+ (r_t icks-i+1 ) *r_end.x) / (r_ticks+l) , 

(i*r_start .y+ ( r_t i cks - i + 1 ) *r_end.y) / (r_ticks+l) ) ; 
pDC->MoveTo (tic+t) ; pDC- >LineTo ( t ic- t ) ; 

} ^ 

} 

pDC->SelectObject (old_pen) ; 
SetR0P2 (pDC">m hDC, dmode) ; 

} 

* Display ruler depending on its status 

void Ruler : :Redraw (CDC *pDC, CPoint &p, double* zoom, double dx , double dy) 

if (! reactive) return; 

// Set pixel spacing scales 

if (dx! =0 , 0) 

{ 

r_pix_spacingY^r_pix_spacingX=:dx; 
if(dyj^O.O) r_pix_spacingY=dy ; 

if (r__pix__spacingX>0 . 0 r_pix_spacingY> 0 , 0 ) r_scale= "mm" ; 
else r scale= "pixels" ; 

y;| // Choose drag point 

n1 double ds=_hypot (r_start .x-p.x, r_start .y-p.y) ; 
'Z^ double de=_hypot (r_end.x-p.x,r_end,y-p.y) ; 
if(ds<de) // start point 

^1 { 

Jl if {de<5.0) return; // avoid degraded Ruler 

7^ if(r_undo) Draw(pDC) ; // remove previous ruler 

^ r_start=CPoint (p . X , p . y) ; 

^ else // end point 

zl^ if {ds<5.0) return; // avoid degraded Ruler 

Li if(r_undo) Draw{pDC) ; // remove previous ruler 

nj r_end=CPoint (p . X, p . y) ; 

// Update zoom if needed 
if (zoom) 

r_soom-zoom; 

int px= (p,x<<l) -10; int py= (p . y<< 1 ) - i 0 ; 

if (r_start .x>px) r_start , x=px ; if ( r_start . y>py ) r_start . y=py ; 
^ if (r_end.x>px) r_end.x=px; i f (r_end . y>py) r_end,y=py; 

/ / Draw new ruler 
GetLengthO ; 

Draw(pDC); // new ruler 
r_undo=true ; 

} 

■k 

* Report current measurement for the status bar 

■k 

CString Ruler :: toString (CPoint scroll) 
CString info; 

info. Format ( "Distance from (%d,%d) to (%d,%d) is %.2lf ", 

r_start.x+scroll.x, restart . y+scroll . y, r end . x+scroll . x , r end.v+scroll v 
r_length) ; ~ - j • ^ 

return ( inf o+r_scale ) ; 
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// FileBrowser . cpp 

// 



implementation file 



#include 
#include 
#include 
#include 
#include 
#include 



stdaf X . h" 
FileBrowser . h" 
Rename_File_Dir_Dialog. h" 
CreateDirectoryDialog . h" 
AccurateTimer . h " 
Compressor . h" 



#include <io.h> 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 
static char THIS_FILE[] 
#endif 



FILE 



// File list types 
#define FILE 0 
#define DFILE 2 
#define DFILE_VU 4 
#define DIR 6 
#define ROOT 8 



///////////////////////////////////////////////////////////////////////////// 
// FileBrowser dialog 



FileBrowser :: FileBrowser (CWnd* pParent /*=NULL*/) 

CDialog (FileBrowser :: IDD, pParent), m_InSession ( " DCM" ] 



}0 



// { {AFX_DATA_INIT (FileBrowser) 
m_Directory = CStringC'"); 
m_NumF i 1 e s = 0 ; 
m_NumFilesTotal = 0; 
m_Directory_FTP = _T ( " " ) ; 
m_NumFiles_FTP = 0; 
m_NumFilesTotal_FTP = 0; 
m_SpeedInfo = _T ( " " ) ; 
// } }afx_data_init 
m_ParentDirectory=CString ( " " ) ; 
m_RequestedFile=CString ( " " ) ; 
m__pFTPConnect ion=NULL; 



FlJeBrowser : : --Fi leBrov/ser { ) 

□ deleteFTP ( ) ; 

m_InSession . Close ( ) ; 
m_ImageList . DeletelmageList ( ) ; 

} 

* Initialize main parameters 

■k 

bool FileBrowser :: Initialize (CString temp_dir) 

if (m_ImageList . m_hImageLi s t==NULL) 
{ 

m_ImageList . Create (16,17, ILC_C0L0R4 ,9,1) ; 
/* Initialize Browser icons */ 
HICON hicn; 

for(int nic=0; nic<9; nic++) 

( 

hicn=Af xGetApp ( ) - >LoadI con ( IDI_FILE) ; 
m_ImageList . Add (hicn) ; 

} 

hicn=Af xGetApp ( ) ->LoadIcon ( IDI_DFILE) ; m^ImageLi st . Replace (DFILE, hicn) ; 

hicn=Af xGetApp ( ) ->LoadIcon ( IDI_DFILE_VU) ; m_ImageList . Replace (DFILE^VU, hicn) 

hicn=Af xGetApp ( ) - >LoadI con ( IDI_DIR) ; m_ImageList . Replace (DIR, hicn) ; 

hicn=AfxGetApp ( ) ->LoadIcon ( IDI_ROOT) ; m_ImageList . Replace (ROOT, hicn) ; 
: iDeleteOb] ect (hicn) ; 
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} 

// Get temp file name 

m_TempFile=temp_dir+CString ( " /copy_" ) ; 

// Initialize hash table of opened files 
m_Opened. Ini tHashTable (37) ; 

// Directory parameters 
m_Directory= " " ; 
m_Directory_FTP= " " ; 

// Preset FTP parameters 
m_INhost= " " ; 
m_INlogon= " " ; 
m_INpassword= " " ; 

// Display parameters 
m_DCMonly_loc=true ; 
m__DCMonly_FTP = false ; 
m_FilterFTP=f alse ; 

return true; 

} 



void FileBrowser : :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange ( pDX) ; 
1===;; / / { { AFX_DATA_MAP ( F i 1 eBrowser ) 
^ DDX_Control (pDX, IDC_LIST_FTP , m_List_FTP); 
\y DDX_Control (pDX, IDC__FILE_BROWSE_COMBO , m_DriveList) ; 
gi DDX_Control (pDX, IDC_LIST, m_List); 

DDX_Text CpDX, IDC_D I RECTORY , m_Directory) ; 
r^": DDV_MaxChars (pDX, m__Direc tory , 200); 
"^■i DDX_Text (pDX, IDC__NUMFI LES , m__NumFiles) ; 
€i DDV_MinMaxInt {pDX, m_NuiiiFiles, -1, 1000000); 

DDX_Text (pDX, IDC_NUMFILES_TOT, m_NumFi lesTotal ) ; 
^ DDV_MinMaxInt (pDX, m_NumFilesTotal , -1, 100000); 

DDX_Text (pDX, IDC_D IRECTORY^FTP , m_Directory_FTP) ; 
H DDV_MaxChars (pDX, m_Direct ory_FTP , 200); 
LS: DDX_Text (pDX, IDC_NUMFILES_FTP , m_NumFiles_FTP) ; 

DDV_MinMaxInt (pDX, m_NumFiles_FTP , -1, 10000); 
^ DDX__Text (pDX, IDC_NUMFILES_TOT_FTP , m_NumFi lesTotal_FTP) ; 
nj DDV_MinMaxInt (pDX, m_NumFilesTotal_FTP, -1, 10000); 
%l DDX_Text (pDX, IDC_HOST_FTP , m_INhost); 
,=4 DDV_MaxChars (pDX, m_INhost, 100); 
J^f DDX_Text (pDX, IDC_SPEED_FTP , Tn_SpeedInfo) ; 
L J / / } } AFX_DATA_MAP 



BEGIM_MESSAGE_MAP (FileBrowser, CDialog) 
/ / { { AFX_MSG_MAP { F i 1 eBrov/ser ) 

ON_NOTIFY(NM__DBLCLK, IDC__LIST, OnDblclkLi st ) 

ON_CBN_SELCHANGE ( IDC_FI LE_BROWSE_COMBO , OnSel changeFi leBrowseCombo ) 

ON__NOT I FY ( LVN_CO LUMNCL I CK , I DC_L 1ST, OnCo 1 umnc 1 i c kL i s t ) 

™„SN_CLICKED (IDC_BUTTON_FTP_GET, OnBut t onFtpGet ) 

ON_BN_CLICKED { IDC_BUTTON_FTP_PUT , OnBut tonFtpPut ) 

ON_COMMAND ( ID_LOCALHOST_REFRESH , OnLocRef resh) 

ON_COMMAND ( ID_REMOTEHOST_REFRESH , OnFtpRef resh) 

OM_C0MMAND ( ID_REMOTEHOST_CONNECT , OnGoFtp ) 

CN_COMMAND ( ID_LOCALHOST_SHOWDICOMONLY, OnLocalhos t ShowDI COMonly ) 

ON_UPDATE_COMMAND_UI { ID_LOCALHOST_SHOWD ICOMONLY , OnUpdat eLocalhostShowDICOMonly) 
ON_COMMAND (ID_REMOTEHOST_FILTERDICOMFILES, OnRemot ehos t Fi 1 t erD ICOMf i 1 e s ) 

OK_UPDATE_COMMAMD_UI ( ID_REMOTEHOST_FILTERDICOMFILES , OnUpdateRemotehostFi IterDICOMf i les) 
ON_COMMAND ( ID_REMOTEHOST_SHOWD I COMONLY , OnRemotehost ShowDI COMonly ) 

ON__UPDATE__COMMAND_UI { ID_REMOTEHOST__SH0WDIC0MONLY, OnUpdateRemotehost ShowDICOMonly ) 
ON_COMMAND ( ID_L0CALHOST_DELETE , OnLocalhos tDe 1 ete ) 
ON_COMMAND{ID_REMOTEHOST_DELETE, OnRemotehostDelete ) 
ON_COMMAND ( ID_LOCALHOST_RENAME , OnLocalhos tRename ) 
ON_COMMAND ( ID_REMOTEHOST_RENAME , OnRemot ehos tRename ) 
ON_N0TIFY(MM_RCLICK, IDC_LIST, OnRclickList) 

ON_COMMAND ( ID_LOCALH0ST_CREATENEWD I RECTORY , OnLocalhos tCreateNewDire ctory) 
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ON_COMMAMD ( ID__REMOTEHOST_CREATENEWDIRECTORY, OnRemotehostCreateNewDirectory ) 
ON__COMMAWD ( ID_REMOTEHOST_OPEN , OnRemotehostOpen) 
ON_COMMAND ( ID_LOCALHOST_OPEW , OnLocalhostOpen) 

ON_UPDATE_COMMAND_UI ( ID_LOCALHOST_OPEN , OnUpdateLocalhos tOpen) 
OM_NOTIFY{NM_RCLICK, IDC_LIST_FTP , OnRc 1 i ckLi st ) 
OM_NCTIFY(NM_DBLCLK, IDC_LIST_FTP , OnDbl c IkLi st ) 
OM_NOTIFY (LVN_COLUMNCLICK, IDC_LI ST_FTP , OnColumnc 1 i ckLi st } 
OM_COMMAND ( ID_LOCALH0ST__COPYT0REMOTEHOST, OnBut t onFtpPut ) 
ON_COMMAND ( ID_REM0TEHOST_COPYTOREMOTEH0ST , OnBut tonFtpGet ) 
ON_UPDATE_COMMAND_UI ( ID_REMOTEHOST_0PEN , OnUpdat eRemot ehos tOpen) 
// } }AFX_MSG_MAP 

ON_COMMAND {ID_BROWSER_CLOSE, CDialog: :OnCancel) 
ON_MESSAGE ( WM_KI CKIDLE , OnKickldle) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// FileBrowser message handlers 



* Global-scope callback function to sort list elements 

static int CALLBACK Li stCompareFunc ( LPARAM iParaml, LPARAM lParam2, LPARAM iParamSort) 

CString *11= (CString*) ( (DWORD) IParaml) ; 
CString * 12= ( CString* ) ( (DWORD) lParam2 ) ; 
if (lParamSort==0) return 11 ->CompareNoCase ( *12) ; 
'^!^^ else return 12 - >CompareNoCase ( *11 ) ; 



\l% Initialize DCM file browser 

B€OL FileBrowser : :OnInitDialog 0 
CDialog :: OnlnitDialog 0 ; 
nj /* Set list icons */ 

S| m_List_FTP. Se t ImageLi st ( &m_ImageLi s t , LVSIL_SMALL) ; 
m_List . SetlmageList (&m_ImageList , LVSIL_SMALL) ; 

L;l /* Fill the list of available drives */ 
m_DriveList . ResetContent 0 ; 

m_DriveList,Dir (DDL_DRIVES | DDL_EXCLUS IVE , " * " ) ; 

/* Initialize Local Browser columns */ 

m_List . InsertColumn (0 .NULL, LVCFMT_CENTER , 18,0) ; 

m_List. ]nsertColumn(l, "Patient Name" , LVCFMT_LEFT , 1 0 0 , 1) ; 

m_List . InsertColumn (2, " Study Date" , LVCFMT_LEFT, 100) ; 

m_List . InsertColumn (3 , "File Name" , LVCFMT_LEFT , 100) ; 

m__List . InsertColumn (4 , " File Size" , LVCFMT_RIGHT , 100) ; 

m_List. InsertColumn (5, "File Creation Date" , LVCFMT_RIGHT , 10 0 ) ; 

m_List . InsertColumn ( 6 ; "Last Access Date" , LVCFMT_RIGHT , 100 ) ; 

Initialize FTP Browser columns */ 
m_List_FTP. InsertColumn ( 0 , NULL , LVCFMT_CENTER , 18, 0) ; 
m_List_FTP. InsertColumn (1 , "Patient Name" , LVCFMT_LEFT , 100, 1) ; 
m_List_FTP. InsertColumn ( 2 , "Study Date" , LVCFMT_LEFT , 100) ; 
m_List_FTP. InsertColumn (3 , "File Name" , LVCFMT__LEFT , 100) ; 
m_List_FTP. InsertColumn (4 , "File Size" , LVCFMT_RIGHT , 100) ; 
m_List_FTP. InsertColumn (5, "File Creation Date " , LVCFMT_RIGHT , 10 0 ) ; 
m_List_FTP. InsertColumn (6 , "Last Access Date" , L VC FMT_R I GHT , 100 ) ; 



/* Extract current local directory information */ 
FindFiles (m_List , false , m_Di rectory) ; 
FindFiles (m__List_FTP , true , m_Directory_FTP) ; 
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/* enforce row selection in lists */ 

m_List_FTP . SendMessage ( LVM_SETEXTENDEDLISTVIEWSTYLE , 0 , LVS_EX_FULLROWSELECT ); 
m_List . SendMessage ( LVM_SETEXTENDEDLI STVIEWSTYLE , 0 , LVS EX FULLROWSELECT )• 
//or - - ' 

//ListView_SetExtendedListViewStyle (ni_lisControl , m_hWnd , LVS_EX_FULLROWSELECT) ; 

/* Display updated data */ 
UpdateData (FALSE) ; 

return TRUE; 

) 

* Extract directory information 

* Return -1 if fails 

* or number of elements found 

int FileBrov/ser : :FindFiles (CListCtrl& myList, bool ftp, CStrmg directory) 

BOOL bFound; 
int nitem; 

CString fname, text; 
CTime atime, ctime; 
CFileFind finder; 
pr^, CFtpFileFind* FTPf inder=NULL ; 

m II Get FTP connection, if needed 
if (ftp) 

if ( ! resetFTP 0 ) return -1; 
i|| FTPf inder=new CFtpFileFind (mjFTPConnect ion) ; 

if ( ! FTPf inder) return -1; 

Si // Set current directory 
if (ftp) 

J^^i if (directory==" " ) mjFTPConnect ion- >GetCurrentDirectory ( directory ) ; 

pj directory .Replace ( "\\" , "/" ) ; 

SI if (Tn_pFTPConnection->SetCurrentDirectory (directory) ==FALSE) 

~: AfxMessageBox( "Access to " +directory+CString ( " denied" ), MB_ICONEXCLAMATION | MB OK) 

U delete FTPfinder; ~ 

return -1; 

} 

m_Directory_FTP=CString (directory) ; 

} 

else 

{ 

if (directory == "") 

{ 

char buffer [200]; 

GetCurrentDi rectory (200 ,buf f er) ; 
directory=CString (buf f er) ; 
directory- TrimRight ( ) ; 

} 

directory . Replace ( " \\ ","/") ; 

if (SetCurrentDirectory (directory) ==FALSE) 

AfxMessageBox ( "Cannot access directory " +directory , MB_ICONEXCLAMATIOM | MB OK); 
return -1; ~ ' 

} 

m_Directory=CString (directory) ; 



// OK, we can start reading files now - Clean item list 
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myList.DeleteAllItemsO ; 

int nfilestot=0, num_entr ies= 0 ; 

// Get file info 

if (ftp) bFound = FTPf inder- >FindFi le ( CString ( directory) +CString ("/*")) ; 
else bFound ^ f inder . FindFi le (CString ( directory) +CString ("/*")) ; 
BOOL isdir; 
while (bFound) 
{ 

if (ftp) 
{ 

bFound = FTPf inder->FindNextFile ( ) ; 

isdir=FTPf inder->IsDirectory ( ) ; 

f name=FTPf inder->GetFileName ( ) ; 

text . Format ( " %lu" , FTPf inder- >GetLength ( ) ) ; 

FTPf inder->GetLastAccessTime (atime) ; 

FTPf inder- >Get Great ionTime ( ctime) ; 

} 

else 

( 

bFound = f inder . FindNextFi le () ; 

isdir= finder . IsDirectory ( ) ; 

fname=f inder . GetFileName ( ) ; 

text . Format ( " %lu" , f inder , GetLength ( ) ) ; 

finder .GetLastAccessTime (atime) ; 

finder .GetCreationTime (ctime) ; 

} 

f name . Replace ( " \ W " / " ) ; 
if (isdir) // directory 

if (fname==" . " ) continue; // do not display current directory 
if { f name== " . , " ) 

{ 

nitem=myList . Insert I tern ( LVIF_PARAM | LVI F_IMAGE , num__entries , NULL , 0 , 0 , ROOT , 0) 
myList . Set Item (nitem, 1 , LVIF_TEXT, "< Parent Directory> ",0,0,0,0); 
^ myList . Setltem(nitem, 3, LVIF_TEXT, fname+V" . 0, 0, 0, 0) ; 

else 
{ 

nitem-myList . Insert I tern ( LVIF_PARAM | LVI F_IMAGE , num__entries , NULL , 0 , 0,DIR, 0) ; 
myList . Set Item(nitera, 1 , LVIF_TEXT, " <Subdirectory>" , 0 , 0 , 0 , 0) ; 
^ myList . Setltem(nitem, 3 ,LVIF_TEXT, "/"+fname, 0 , 0 , 0 , 0) ; 

myList . Set Item (nitem, 2 , LVIF TEXT , NULL , 0 , 0 0 0)- 

} - 

else // file 

{ 

nf ilestot++ ; 
bool opened; 

// Process compressed or uncompressed DICOM 

if (ftp) 

{ 

if (f name [0] ' . ' ) continue; // do not process Unix system files 
opened-OpenedFilesLi St Find (m_Directory_FTP+CSt ring ( "/" ) +fname) ; 

else opened=OpenedFilesListFind (m_Dir ec tory+CSt r ing ( " / " ) +f name) ; 

// Grab main file data 

int f iletype=FILE; 

if (opened) f iIetype=DFILE_VU; 

nitem=myList . Insertltem (LVIF_PARAM | LVIF_IMAGE,num__entries,NULL, 0 , 0, f iletype, 0) 
myList . Set Item (ni tern, 1 , LVIF_TEXT, "",0,0,0,0); 
myList . Set I tern (nit em, 2 , LVIF_TEXT, "",0,0,0,0) ; 
^ myList . Setltem(nitem, 3,LVIF__TEXT, fname, 0,0,0,0) ; 

myList . Set ItemText (nitem, 4 , text) ; 

myList . Set ItemText (nitem, 5 , ctime . Format ( " %d. %m. %Y" ) ) ; 
myList . Set ItemText (nitem, 6 , atime. Format ( " %d. %m. %Y" ) ) ; 
num__entr ies + + ; 

) 

// Get parent directory, clean up 

int sl=max (directory. ReverseFind( ' \\ ' } , directory . ReversePind ( '/'))- 
if(ftp) 
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} 

el se 



FTPf inder->Close ( ) ; delete FTPfinder; 

if (sl< = 0) m_ParentDirectory_FTP = CString (m_Directory_FTP) • 
else m_ParentDirectory_FTP=CString (directory. Left (si) } ; 

// Set file statistics 
m_NumFilesTotal_FTP=nf ilestot ; 

// Set parent directory - time and size entries are invalid 
nitem=myList . Insert I tem ( LVIF_PARAM | LVIF_IMAGE, num_entries , NULL , 0 , 0 , ROOT, 0) 
myList , Setltem(nitem, 1,LVIF_TEXT, "<Parent Directory> " , 0 , 0 , 0 , 0 ) ; 
myList . Set Item (nit em, 3 , LVIF_TEXT, " . . / " . 0 , 0 , 0 , 0 ) ; 
myList .Setltem(nitem, 2,LVIF_TEXT,NULL, 0, 0,0,0) ; ' 
myList . Set ItemText (nitem, 4 , text) ; //!! invalid 

myList . SetltemText (nitem, 5, c time. Format ( " %d . %m . %Y" ) ) ; // 1 ! invalid 

myList.SetltemText (ni tern, 6, at ime. Format ("%d.%m.%Y" ) ) ; //! ! invalid 
resetFTP ( ) ; 



finder . Close ( ) ; 

if (sl< = 0) m__ParentDirectory=CString (m_Directory ) ; 

else m_ParentDirectory=CString (directory. Left (si) ) ; 

// Set file statistics 

m_NumFilesTotal unfiles tot ; 

// Set current drive 

int cl=m_Directory . Find ( ' : ' ) ; 

CString dr=CStr ing (m_Directory . Lef t (cl) ) ; 

dr = CString(" [ - " ) +dr+CS t r ing ( " - ] ") ; 

if (m_DriveList.SelectString(-l,dr) < 0) return -1; 



// Locate DICOM files 

if(lftp II (ftp && m_FilterFTP) ) DI COM_Fi 1 ter (myLi s t , ftp) 

// Sort 

SortByColumnd, myList) ; 



// Update dialog window and exit 
UpdateData (FALSE) ; 
return m_NumFiles; 



* L 

Sort browser list "myList" by specified column "col" 

* Li 

**** ^^"^ ****** ************** ****** 

void FileBrowser : :SortByColumn(int col, CListCtrl& myList) 
int entries=myList .GetltemCount () ; 

if(entries<2 || col<0 || myLi st . GetColumnWidth ( col ) < 1 ) return; // Nothmq to sort 
CString *keys = new CString [entries] ; 
if ('keys) return; // Low memory 

int itemState, col_type; 
CString ts, pname; 

// Find column type (in a block, to preserve memory) 
col_type=0 ; 

{ 

char buffer [50] ; 
LVCOLUMN cl; 

cl . iOrder=:col ; cl . iSubl t em=col ; cl . pszText = buf f er ; 
cl .mask=LVCF_TEXT | LVCF_ORDER | LVCF_SUB I TEM ; 
myList.GetColumn(col,&cl) ; 
CString col_name = CString (buf f er ) ; 

if (col_name. Find( "Date" , 0) >0) col_type=l; // date type 
else if (col_name.Find("Size",0) >0) col_type=2; // size type 



// Set appropriate sort key 
for(int i^O; i<entries; i++) 
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{ 

it:emState = Get ItemlmageState ( i ,myList) ; 
// Obtain item key string 
ts=CString(myList .GetltemText (i, col) ) ; 

if (itemState==FILE || itemState-=DFILE || i temState==DFILE_VU) // files 

pname = CString (myLi st . Get I temText (i, 1) ) ; 
if (col_type==l) // date string 

keys [i] -CString ( t s . Right (4) +ts.Mid(3,2) +ts.Left (2) ) +pname; 
else if (col_type==2) // file size 

keys [i] -CString( ' 0 \ 16 - 1 s . GetLength ( ) ) +ts + pname; 
else if (col 1=1) // name, except patient name 

keys [i] =ts+pname; 
^ else keys [i] =pname+CString (myList .GetltemText (i , 3)); 

else keys[i]=ts; // directories 

// Account for root -directory-f i le priority adding priority prefix 
if (col_type==l) ts. Format ("%d" , itemState) ; 
else ts, Format ( " %d" , 9- itemState) ; 
keys[i] = ts+keys[i]; 

myList , Set I temData ( i , (DWORD) (& (keys [i] ) ) ) ; 

myList . Sort Items ( Li stCompareFunc , ( col__type = = 1 ) ) ; 
delete [] keys; 
return ; 

} 



/^f ******* ************** ********************* 
*yj Update state of the item "item" in the list "myList" 

* H********************''''**'^* ************* ******************************* *******/ 
^il^Browser : :GetItemImageState (int nitem, CListCtrl& myList) 

Jj LVITEM itm; 

itm. iltem:=nitem; itm, mask=LVIF_IMAGE ; // we want to retrieve only imaqe state 

Zr, itm. iSubItem=0 ; 
IIJ myList .GetItem(S:itm) ; 
= return itm. i Imaqe; 

jet ^il^Browser : :FindName (CString fname, CListCtrl &myList) 
nj for(int n=0; n<myLi st . Get I temCount ( ) ; n++) 

^ if (CString(myList .GetltemText (n,3) ) ==fname) return n; 
L| return -1; 

void FileBrowser : :SetItemImageState(int nitem, int state, CListCtrl& myList) 
LVITEM itm; 

itm.iltem^nitem; itm.mask=LVIF_PARAM i LVIF_IMAGE; // retrieve these parameters 

m_List . Get Item ( &itm) ; 

itm. ilmage= state; itm. iSubItem=0 ; 

myList . Set Item (&itm) ; 

} 



* 

* Get selected position in the file list 
* 

******:(r************y**^**^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
int FileBrowser : :GetSelectedPosition(bool local) 

int sel=-l; 
POSITION pos; 

if (local) pos=m_List . Get Fir st Select edit emPosit ion ( ) ; 
else pos=m_List_FTP. Get Fir St Select edItemPos it ion 0 ; 

if (pos NULL) return -1; // nothing selected 

if (local) sel = m_Li st . GetMextSelectedl tern (pos ) ; 



7 



FileBrowser . cpp 



10/27/00 



else sel = m_Li st__FTP . GetNext Selectedl tern (pos ) ; 

return sel; 

} 

■k 

Process Double-left clicks on the files list 

* 

void FileBrowser : :OnDblclkList (NMHDR* pNMHDR, LRESULT* pResult) 
*pResult = 0; 

bool local= {pNMHDR->idFrom==IDC_LIST) ; 

int item^GetSelectedPosi tion ( local) ; 

if(item> = 0) OpenFi le_or__Directory ( local , item) ; 



* Process directory choice list 

void FileBrowser: : OnSelchangeFi leBrowseCombo () 
CString drive; 

m_DriveList . GetLBText (m_DriveList , GetCurSel { ) , drive) ; 
drive=drive . Mid (2 , drive . GetLength ( ) -4) ; 

CString dcur=CString (m_Directory ) . Left ( drive . GetLength ( ) ) ; 
if (drive . CompareNoCase (dcur) ==0 ) return; 
drive . MakeUpper ( ) ; 
drive = drive + CString (":/") ; 
m FindFiles (m_List , false, drive); 



Sort column when clicked on column header 

vg^id FileBrowser : lOnColumnclickList {NMHDR* pMMHDR, LRESULT* pResult) 
O CListCtrl* myList; 

PI bool local= (pNMHDR->idFrom= = IDC__LIST) ; 

if (local) TnyList = &m_List ; 

else myList=&m_List_FTP ; 
LJ NM_LISTVIEW* pnm = (NM_LISTVIEW* ) pNMHDR; 
Q int subitem=pnm->iSubItem; 

if(subitem>0) SortByColumn ( subitem, (*myList)); 

*pResult = 0; 

} 

* Keeping track of opened files 

■k 

^■i'****-^^**i(i'i'i^*-kkk*kk-kkk*kkkkkki.-kk*kk*i(kkkkk*i,kk-k±*i,kkk* 

void FileBrowser : :OpenedFilesListAdd(CString fullname) 
m__Opened [fullname] =1 ; 

} 

bool FileBrowser : :OpenedFilesListFind(CString fullname) 
int val=l; 

^ return (m_Opened . Lookup ( ful Iname , val ) ==TRUE) ; 
void FileBrowser : lOpenedFilesListRemove (CString fullname) 
m_Opened.RemoveKey (fullname) ; 

) 
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* Start or close FTP sesion 

void FileBrowser : :OnGoFtp ( ) 
FTPLoginDialog fld; 

f Id . SetData Cm_INhost , m_INlogon, m_INpassword) ; 

if (f Id.DoModal () ===IDOK) 

{ 

if ( iresetFTP(f ld.m__Host,fld.m_User, fld.m_Pwd) ) return; 
FindFiles {m_List_FTP, true) ; 

return; 

} 



if 

* Functions to reset and delete FTP connection 

bool FileBrowser : :resetFTP{CString host, CString logon, CString pwd) 

m_INhost=host ; m_INlogon=logon ; ra_INpassword=pwd; 
if (m_INhost = = " " ) return false; 
US t ry 

deleteFTPO ; 

,1-;; ^ m_pFTPConnection-m__InSession . GetFtpConnect ion ( host , logon, pwd) ; 

"^^J catch {CInternetExcept ion* pEx) 

7^. TCHAR exCause [255] ; 

CString info ; 
lU pEx- >GetErrorMessage (exCause , 255); 

s inf o = CString (exCause) ; 

l^i. info += __T("Some files may not be displayed."); 

AfxMessageBox (inf o, MB_ICONEXCLAMATION | MB_OK) ; 
LS deleteFTPO; pEx- >Delete ( ) ; 

nj return false; 

J. if ( !m_pFTPConnection) 

Q AfxMessageBox ( "Cannot connect to remote computer MB_ICONEXCLAMATION I MB OK) 

return false; ~ 

} 

return true; 

} 

bool FileBrowser :: resetFTP ( ) 
{ 

^ return reset FTP (m_INhost , m_INlogon , m_INpassword) ; 
void FileBrowser :: deleteFTP ( ) 

{ 

if (m_pFTPConnection) 

{ 

m_pFTPConnection->Close ( ) ; 
delete m_pFTPConnec t ion ; 
m_pFTPConnection=NULL; 

} 

} 



* Locate DICOM images in the given list 

* based on file contents 
* 
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void FileBrowser : :DICOM_Filter (CListCtrl &myList, bool ftp) 

int nstate, ndcm_f iles=0 ; 

char ctmp [64] ; 

CString fname, locname, f namepath , tmp ; 

DICOMDataObject dob ; 

// Filter unclassified files only 

for (int n=0; iKmyList . Get I temCount ( ) ; n+ + ) 

nstate=Get ItemlmageState (n, myList ) ; 

if (nstate I =FILE nstate 1 =DFILE_VU) continue; 

f name = CString (myList . GetltemText (n, 3 ) ) ; 

// Create local file, if ftp connection 

if (ftp) 

{ 

f namepath=^m_Directory_FTP+CString ( " / " ) +f name ; 
locname=m_TempFile+f name ; 

if ( ! FileTransf er (f namepath, locname, true , 
^ DICOMObject : : Highest PreviewFi leSize ) ) continue; 

else locname=f namepath=m_Directory+CString ( " / " ) +f name ; 
// Uncompress if needed 

if (locname.FindC .gz" ,0) >0) // compressed DICOM 
tmp=m_TempFile+f name+CString ( "_unzip" ) ; 

if ( I Compressor : : Z_unCompress (locname , tmp, 1) ) continue; 
locname = tmp; 

gi // Load DICOM object in preview mode 

dob . Reset { ) ; 

if ( ! dob, LoadFromFile ( (char*) (LPCSTR) locname , true ) ) 

H { 

^1 |f( (iftp && m_DCMonly_loc) || (ftp m_DCMonly_FTP) ) 

2; ^ myList .Deleteltem(n) ; n--; 

cont inue ; 

DICOMRecord dfr; 
LI df r . SetRecord (dob, "*") ; 

111 i^yList.SetItem{n,l,LVIF_TEXT,dfr.GetPatientName() ,0,0,0,0) ; 

=.^,1 dfr , FormatStudyDate (ctmp, 64 , false) ; 

myList . Setltem(n, 2 , LVIF_TEXT , ctmp, 0,0,0,0) ; 
U if (nstate 1=DFILE_VU) Set It emImageState (n, DFILE , myList ) ; 

Ll ndcm_f iles++ ; 

if(n%5==0) 

{ 

myList. Redrawltems(l,n) ; myList . UpdateWindow ( ) ; 

} 

if (ftp) ra__NumFiles_FTP=ndcm_f iles; 
else m_NumFiles=ndcm_f iles ; 



* Refresh current FTP Window 

void FileBrowser : :OnFtpRefresh 0 

if ( ! resetFTP ( ) ) return; 
^ FindFiles (m__List_FTP , true, m_Directory_FTP) ; 

void FileBrowser :: OnLocRefresh ( ) 

{ 

FindFiles (m_List , false, m_Directory) ; 
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} 



* Get a binary file from remote server 

void FileBrowser : : OnButtonFtpGet ( ) 

POSITION pes = m_List_FTP.GetFirstSelectedItemPosition() ; 
if (pos NULL) 

{ 

AfxMessageBox ( "Please select a remote file first\nby clicking on its icon", MB ICONEXCLAMAT 
ION I MB_OK) ; 

return ; 

} 

int n = m_List_FTP.GetMextSelectedItem(pos) ; 
int nstatus=GetItemImageState Cn,m__List_FTP) ; 

if{nstatus != FILE && nstatus != DFILE && nstatus != DFILE VU) 

{ 

AfxMessageBox { "Cannot copy director ies ", MB_ICOMEXCLAMATI ON | MB OK) ; 
return; ~ 

) 

CString ftp_fname = CStr ing (m_Li st_FTP . Get I temText (n , 3 ) ) ; 
CStr ing loc_f name=m_Directory+ " / " +f tp__f name ; 
if (FindName (f tp fname.m List)>0) 

{ 

p:^; if (AfxMessageBox ( "Overwrite " +loc_f name+ " 

% ^ MB_ICONEXCLAMATION | MB_YESNO) =^ IDNO) return; 

01 FileTransf er (ra_Directory_FTP+ " / " +f tp_f name , loc_f name , true , -1) ; 

.j^ OnLocRef resh ( ) ; 

2^'^ Beep (500,50) ; 

*J! Put a binary file to a remote server 

V€>d.d FileBrowser: rOnButtonFtpPut () 

I"!': POSITION pos = m_List .GetFirstSelectedltemPosition ( ) ; 
OJ if (pos NULL) 

H { 

p;.. AfxMessageBox ("Please select a local file first\nby clicking on its icon", MB ICONEXCLAMATI 

OMf I MB_OK) ; 
C]i return; 

} 

int n = m_List . GetNextSelectedl tern (pos) ; 
int nstatus=Get ItemlmageState (n,m_List ) ; 

if (nstatus i= FILE nstatus 1= DFILE && nstatus 1= DFILE VU) 

{ 

AfxMessageBox ( "Cannot copy director ie s ", MB__ICONEXCLAMATION | MB_OK) ; 
return; ~ 

} 

CString loc_fname = CString (m_List . Get I temText (n, 3 ) ) ; 
CString f tp_f name=m_Directory_FTP+ " / " +loc_f name ; 
if (FindName ( loc fname,m List FTP)>0) 

{ 

if (AfxMessageBox ( "Overwrite " +f tp_f name+ " ?", 
^ MB_ICONEXCLAMATION | MB_YESNO ) = = IDNO ) return; 

if ( !FileTransfer(ftp_fname,m_Directory+"/"+loc_fname, false, -1} ) 

AfxMessageBox ( "Cannot copy. \nMake sure you have remote host connect ed" , MB ICONEXCLAMAT I ON 
I MB_OK) ; 

return; 

) 

OnFtpRef resh ( ) ; 
Beep (400, 50) ; 

} 
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* Handle all kinds of file transfers 

* between local and remote computers 
* 

bool FileBrowser: :FileTransfer(CString ftp_name, CString loc_name, bool to__local, 

int size) 



static bool f ai led=f al se ; 
BOOL done; 
double vremia; 

if(size==0) return true; // empty file 
CInternetFile* ifile^NULL; 
_iobuf* floe; 
BYTE* bf=NULL; 

// Refresh FTP connection 

if ( iresetFTP ( ) ) return false; 

// Try to copy 
try 

{ 

if{size<0) // Transfer the entire file at once 
long fsize=0; 

AccurateTimer ac; ac.BeginO; 

if (to_local) done=m_pFTPConnection->GetFile [ftp_name, loc_name, FALSE) 

^^^^ done=m_pFTPConnection->PutFile (loc_name, ftp name); 

// Find size of the copied file ~~ 

{ 

_iobuf* t_file; 

t_f ile=f open {loc_name , "rb" ) ; 

if (t_file 1= NULL) 

{ 

fsize = _filelength(_f ileno(t_file) ) ; // local file size 
fclose(t file); 

} 

} 

vremia=ac. End ( ) ; 

if (vremia>0 . 1 fsize>0) 

m_SpeedInfo. Format (" %.3lf Kbytes/ sec fsize/ ( 1 00 0 . 0 *vremia) ) • 
UpdateData( FALSE) ; 

return (done==TRUE) ; 

} 

else if(size>0) 
{ 

try { bf-new BYTE [size] ; } 

catch (...) { return false; } 

if ( !bf ) return false; 

// Open local and remote files 

if ( to_local) 

{ 

if ile=m_pFTPConnection->OpenFile (f tp_name,GENERIC_READ, 

FTP_TRAMSFER_TYPE_BINARY, 1) ; 

^ f loc=f open (loc_name , "wb" ) ; 

else 

{ 

if ile=m_pFTPConnection->OpenFile ( f tp^name , GENERIC_WRI TE , 

FTP_TRANSFER_TYPE_BINARY; 1} ; 

f loc=f open ( loc_name , " rb" ) ; 

bool can_transfer = (floc!=MULL && if ile ! -MULL) ; 
if (can_transfer) 

{ 

int lu; 

if ( to_local ) 

{ 

lu=if ile->Read (bf , size) ; 
fwrite (bf , 1, lu, f loc) ; 
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} 



else 

{ 

lu=f read (bf , 1 , size , floe) ; 
if ile->Write (bf , lu) ; 

} 

} 

delete [] bf; bf=NULL; 

fclose(floc); if ile->Close ( ) ; delete ifile; 
return can transfer; 

} 

} 

catch (CInternetException* ex) 

if ( ! failed) 
{ 

ex->ReportError (MB_ICONEXCLAMATrON | MB_OK) ; 
f ailed=true ; 

} 

ex->Delete ( ) ; 

if(bf) delete [] bf ; 

if (if ile) 

{ 

try { if ile->Close 0 ; } catch ( CInternetExcept ion* ex2) { ex2 - >Delete ( ) ; 
delete ifile; 

) 

return false; 

} 

return false; 



*1V Local: "Show DICOMs only" message handler 



vgid FileBrowser: : OnLccalhost ShowDICCMonly ( ) 

m_DCMonly_loc =! m_DCMonly_loc ; 
hJ OnLocRef resh ( ) ; 
Beep (500, 50) ; 

ygl^ FileBrowser: : OnUpdateLocalhostShowDI COMonly ( CCmdUI * pCmdUI) 
^|1J pCmdUI->SetChec]<: (m__DCMonly__l DC ) ; 

* Remote: "Filter DICOM" message handler 
■k 

void FileBrowser : :OnRemotehostFilterDICOMf lies ( ) 
{ 

ra_FilterFTP = ! m_Fi 1 terFTP ; 
OnFtpRef resh ( ) ; 
Beep (400,50) ; 

} 

void FileBrowser: : OnUpdateRemotehos tFi IterDICOMf i les ( CCmdUI * pCmdUI) 
^ pCmdUI->SetCheck(m_FilterFTP) ; 

* Remote: "Show DICOM only" message handler 

void FileBrov/ser : : OnRemotehost ShowDICOMonly ( ) 

if ( !m_FilterFTP) return; 
m_DCMonly_FTP =! m_DCMonly FTP; 
OnFtpRef resh ( ) ; ~ 
Beep (4 00, 50) ; 
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} 

void FileBrowser: : OnUpdateRemotehostShowDICOMonly (CCmdUI * pCmdUI) 
pCmdUI - >Enable (m__FilterFTP) ; 

pCmdUI->SetCheck (m_DCMonly_FTP && m_FilterFTP) ; 



* Rename selected file/directory on the current computer 

* (local or FTP) 

bool FileBrowser : :RenameFile_or_Directory(CListCtrl &myList, bool is_local) 

POSITION pos = myList .GetFirstSelectedltemPositionO ; 
if (pos NULL) 

{ 

AfxMessageBox { "No item selected", MB_ICONEXCLAMATION | MB^OK) ; 
return false; 

} 

int n = myList .GetNextSelectedltem(pos) ; 
int nstatus=GetI temlmageState (n, myList) ; 

bool isf ile= (nstatus == FILE || nstatus DFILE || nstatus DFILE VU) ; 
if(!is_local && lisfile) ~ 

AfxMessageBox ( "Cannot rename remote director ies ", MB_ICONEXCLAMATION I MB OK); 
return false; _ ' 

''-J BOOL done; 

CString name =CString (myList . Get I temText (n, 3 ) ) ; 

Rename_File_Dir_Dialog rfdd(name); 
J^- if (rf dd.DoModal ( ) = = IDCANCEL) return false; 
I y if { is_local ) 

. { 

if ( i sf i le) done=MoveFi le (m_Directory+ " / " +name , m_Directory+ " / " +rf dd . getMame ( ) ) 
Lr^ ^Ise done=MoveFile (m_Directory+name, m_Directory+rf dd. getName ( ) ) ; 

fll else 

if ( ! resetFTP ( ) ) return false; 

"f: (isf ile) done=m_pFTPConnection->Rename (m_Directory_FTP+ " /"+name, 

O ^ m_Directory_FTP+"/"+rf dd.m_NewName) ; 

if (done==FALSE) 

{ 

AfxMessageBox ( "Cannot rename " +name , MB_ICONEXCLAMATION | MB OK); 
return false; ~ 

} 

else 

{ 

if (is__local) OnLocRefreshO ; 

^ else OnFtpRef resh 0 ; 

return true; 



* Create a new directory (local or ftp) 

bool FileBrowser : :CreateNewDirectory(CListCtrl &myList, bool is_local) 
CreateDirectoryDialog cdd; 



14 



FileBrowser . cpp 



10/27/00 



if (cdd.DoModal 0 ==IDCANCEL) return false; 
CString name=cdd . getName ( ) ; 
if (name . IsEmpty ( ) ) 

AfxMessageBox ( "Cannot create: empty name " , MB_I CCNEXCLAMATION | MB OK) ; 
return false; ~ 

} 

if (FindName (name , myList) >-l) 

AfxMessageBox ( "Cannot create: already exi st s " , MB__ICONEXCLAMATION | MB OK) 
return false; ~ 

} 

BOOL done; 

if (is_local) done=CreateDirectory (m_Directory+name, NULL) ; 
else 

{ 

if ( IresetFTPO ) return false; 
^ done=m_pFTPConnection~>CreateDirectory (m__Directory_FTP+name) ; 

if (done==FALSE) 
{ 

AfxMessageBox ( "Cannot create " +name , MB_I COMEXCLAMAT ION | MB OK); 
return false; ~ 

} 

else 
{ 

if (is_local) OnLocRefreshO ; 
^ else OnFtpRef resh 0 ; 

return true; 

^11-^ FileBrowser: : OnLocalhos t CreateNewDirec t ory ( ) 

CreateNewDirectory (m_List , true); 
Beep {5 00 , 50) ; 

M 

■^"fl'^ FileBrowser: : OnRemotehostCreateNewDirectory ( ) 

OJ CreateNewDirectory (m_List_FTP, false) ; 
Beep (4 00,50) ; 



* Open selected file/directory from the current computer 

* (local or FTP) 

void FileBrowser: : OnLocalhostOpen ( ) 

POSITION pos = m_List.GetFarstSelectedItemPosition() ; 
if (pos == NULL) return; // nothing selected 

int item = m_Li st . GetNext Selected: tem (pos ) ; //single selection 
^ OpenFile_or__Directory ( true , item); 

void FileBrowser : :OnUpdateLocalhostOpen (CCmdUI* pCmdUI ) 

pCmdUI->Enable(m_List.GetFirstSelectedItemPosition() !=NULL) ; 
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void FileBrowser: : OnRemotehostOpen ( ) 

POSITION pos = m_List_FTP.GetFirstSelectedItemPosition( ) ; 
if (pos == NULL) return; // nothing selected 

int item = m_Li st^FTP . GetNextSelectedl tern (pos ) ; //single selection 
OpenFile_or Directory ( fal se , item); 

} 

void FileBrowser : :OnUpdateRemotehostOpen (CCmdUI* pCmdUI) 

^ pCTndUI->Enable (m_List_FTP.GetFirstSelectedItemPosition() !=NULL) ; 

void FileBrowser : :OpenFile_or_Directory (bool local, int item) 

if(item<0) return; // something is wrong 

CListCtrl* myList; 

if (local) TnyList = &m_List ; 

else myList = &Tn_List_FTP; 

// Update file browser 

m_RequestedFile=CString("/") +CString (myLi st - >Get I temText (item, 3) ) ; 
switch (Get It emImageState (item, (*myList) ) ) 

case FILE: 
case DFILE_VU: 
case DFILE: 

Set ItemlmageState ( item, DFILE_VU, (*myList) ) ; 
if (local) 

{ 

m_RequestedFile=CString (m_Directory) +m_Reque st edFi le ; 
~Z OpenedFilesListAdd (in_RequestedFile) ; 

on else 

CString tm=CString (m_Directory_FTP) +m_RequestedFile ; 
OpenedFilesListAdd (tm) ; 

m_RequestedFile^m__TempFile+CString (myList->GetItemText ( item, 3)) ; 
d% if ( ! FileTransf er ( tm, m_RequestedFile, true, -1)) return; // cannot download 

CDialog: :OnOK() ; 
break; // unchecked file 
L.L case DIR: 

if (local) FindFiles ( (*myList) , false, CString ( CString (m_Directory) +CString (myList - >Get I tern 
T?ekt (item, 3 ) ) ) ) ; 

ry else FindFiles ( ('^myList) , true, CString ( CString (m_Directory_FTP) +CString ( myLi st - >Get I t 

emlText (item, 3 ) ) ) ) ; 

return; // switch to subdirectory 
case ROOT: 

O if (local) FindFiles (( *myList ) , false, m_ParentDirectory) ; 

else FindFiles (( *myList ) , true, m_ParentDirectory_FTP) ; 

return; // switch to parent directory 
default: return; // do nothing 

myLi st - >Update ( item) ; 

} 

* Delete selected file/directory from the current computer 

* (local or FTP) 
* 

bool FileBrowser : :DeleteFile_or_Directory (CListCtrl &myList, bool is_local) 

POSITION pos = myList .GetFirstSelectedltemPositionO ; 

if (pos == NULL) 

{ 

Af xMessageBox ( "No item selected" ,MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

int n = myList .GetNextSelectedltem(pos) ; 
int nstatus=Get ItemlmageState (n, myList ) ; 

bool isf ile= (nstatus == FILE || nstatus == DFILE || nstatus DFILE_VU) ; 
BOOL done; 
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CString name =CString (myLi st . Get I temText (n , 3 ) ) ; 
if ( Af xMessageBox ( "Do you really want to delete "4-name + " 

MB__ICONEXCLAMATIOM | MB_YESNO) IDNO ) return false; 

if ( is_l ocal ) 

if ( isf ile) done=DeleteFile (m_Directory+ " / " +name) ; 

else done=RemoveDirectory (m_Directcry+name) ; 

else 

if ( IresetFTP ( ) ) return false; 

if(isfile) done=m_pFTPConnection- >Remove (m_Directory_FTP+ " /"+name) ; 

else done=m_pFTPConnection->RemoveDirectory (m_Directory_FTP+name) 

if (done==FALSE) 

AfxMessageBox ( "Cannot delete +name , MB_ICONHXCLAMATION | MB_OK) ; 
return false; 

else 

if(is_local) OnLocRef resh ( ) ; 

else OnFtpRefreshO ; 

return true; 

} 

void FileBrowser: : OnLocalhos tRename ( ) 

RenameFile_or_Directory (m_List , true); 
Beep (500, 50) ; 

\g^p.d FileBrowser: : OnRemotehos tRename ( ) 
ill 

rz RenameFile_or_Directory {m_List_FTP, false) ; 
^4 Beep(400,50) ; 

Local: "Delete" message handler 

if"'" 

^Id FileBrowser: : OnLocalhostDelete ( ) 

_J DeleteFile_or_Directory (m_List , true); 
Beep (500, 50) ; 

Remote: "Delete" message handler 

void FileBrowser: : OnRemotehos tDelete () 

DeleteFile_or_Directory (m_List_FTP, false) ; 
Beep (400 , 50) ; 

} 



ic 

* Support for OnUpdate messages in the menu 

LRESULT FileBrowser : :OnKickIdle (WPARAM, LPARAM) 

CMenu* pMainMenu = GetMenuO; 
if ( IpMainMenu) return FALSE; 
CCmdUI cmdUI; 
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for (UINT n = 0; n < pMainMenu- >GetMenuI temCount ( ) ; ++n) 

CMenu* pSubMenu = pMainMenu- >Ge t SubMenu (n) ; 
if ( ! pSubMenu) continue; 

ctndUI .m_nIndexMax - pSubMenu- >GetMenuI temCount () ; 
for (UINT i = 0; i < cmdUI.m nIndexMax ; ++i ) 

{ - 

cmdUI .m__n Index = i; 

cmdUI.m_nID = pSubMenu- >GetMenuItemID ( i ) ; 
cmdUI ,m_pMenu = pSubMenu; 
cmdUI . DoUpdate ( thi s , FALSE ) ; 

} 

return TRUE; 

} 



* Dynamic popup, context-sensitive menu 

* for brewer list items 

■k 

void FileBrowser : lOnRclickList (NMHDR'^ pNMHDR, LRESULT* pResult) 

// Grab necessary parameters 
p;.. CListCtrl* myList; 

11. ^ool locals (pNMHDR->idFrom= = IDC_LIST) ; 

yj if (local) myList=&m_List ; else myList=&m_List_FTP; 

pi // Click positioning ~ 

CPoint p (GetMessagePos ( ) ) ; 

myList->ScreenToClient (&p) ; 
2 ^"^^ item=myList->HitTest(CPoint(2,p.y)) ; if(item<0) return; // something is wrong 

. p: / / Create popup menu 

^ CMenu menu ; 

tU menu.CreatePopupMenuO ; 

CMenu menul ; 
L., menul. LoadMenu(IDR_MENU_FILE_BROWSE) ; 

ry CMenu* pop=menul . GetSubMenu ( local ? 1 : 2 ) ; 

II Set acceptable menu IDs 
^iji UINT ids[5]={ ID_LOCALHOST_OPEN, 

ID_LOCALHOST_COPYTOREMOTEHOST , 
ID_LOCALHOST__DELETE , 
ID_LOCALHOST_RENAME , 

ID_LOCALH0ST_CREATENETOIRECTORY } ; 

if(ilocal) 

{ ids[0] =ID_REMOTEHOST_OPEN; 

ids [1] =ID__REMOTEHOST_COPYTOREMOTEHOST; 

ids [2] =ID_REMOTEHOST_DELETE; 

ids [3] =ID_REMOTEHOST_RENAME; 
^ ids [4] =ID_REMOTEHOST_CREATENEWDIRECTORY; 

// Create the popup menu 
int n=:0; 

unsigned int nid; 
CString strMenu; 

for(unsigned int i=0; i<pop- >GetMenuI temCount () ; i++) 
nid=pop->GetMenuItemID ( i) ; 

if( nidi=ids[0] && nidi=ids[l] nidi=ids[2] 
nid!=ids[3] && nidl=ids[4]) continue; 
pop->GetMenuString (i, strMenu, MF_BYPOSITION) ; 
int status=pop->GetMenuState ( i , MF_BYPOSITION) ; 
menu. InsertMenu (n, status , nid, strMenu) ; 
n++ ; 
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// Display popup menu 
ClientToScreen (&p} ; 

p=CPoint {p.x+ (local?25 :44 0) ,p.y+25) ; 
menu.TrackPopupMenu (TPM_LEFTALIGN, p.x.p.y, this) ; 
pop- >DestroyMenu ( ) ; 
menu . Best royMenu ( ) ; 
menul . DestroyMenu ( ) ; 

} 



o 

m 
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#if ! defined (AFX_FINDREGIOW_H 2 3 07E52 6_1F4B_11D3__9 6A4_0 0105A217 74F INCLUDED_) 

#def ine AFX_FINDREGION_H 23 0 7E526_1F4B_11D3_9 6A4_0 0105A21774F INCLUDED_ 

#if _MSC_VER > lOCO 
#pragma once 

#endif // _MSC_VER > 1000 

#define CAWMOT__COMPARE -1313 

# include " Image/ Image . h" 

// FindRegion. h : header file 

// 



///////////////////////////////////////////////////////////////////////////// 
// FindRegion dialog 

class FindRegion : public CDialoq 

{ 

// Construction 
public : 

bool Initialize (CDC *pDC, Image *pBmp, CRect &ScreenPat t ernRec t , CSize& scroll) 
FindRegion (CWnd* pParent = NULL); // standard constructor 
-FindRegion ( ) ; 

// Dialog Data 

//{ {AFX_DATA( FindRegion) 

enum { IDD = IDD_DI ALOG_FIND_S IMILAR }; 

int f__Percent; 

BOOL f _ReduceNoise; 

^p.:^; CProgressCtr 1 f_Progress; 
^-f CSliderCtrl f_Speed; 
tfl //}}AFX_DATA 

/f^ Overrides 

''i // ClassWizard generated virtual function overrides 
qj //{ {AFX_VIRTUAL( FindRegion) 

public: 
^iZ virtual int DoModal () ; 
lU protected: 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 
l^^ //} }afx_virtual 

/|^:=l Implementation 
pp^tected : 

^;:,r // Generated message map functions 

//{ {AFX_MSG( FindRegion) 
C| afx_msg void OnButtonFindBest ( ) ; 

afx_msg void OnPaintO ; 

afx_msg void OnBut tonFindNext ( ) ; 

virtual BOOL Onini tDialog ( ) ; 

// } }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 
private : 

long f _Pattern_Average ; 

long** f_Pattern; 

double f_Correlation; 

CPoint f _ImageStartSearchPoint ; 

CSize f__scroll; 

CRect f__ImageFoundRect , f __ScreenFoundRect ; 

CRect f__ImagePatternRect , f _ScreenPat ternRect ; 

CRect f_FoundDisplay , f_PatternDi splay ; 

Image* f_pBmp; 
CDC* f CDC; 



void Drav;(UINT code); 

void Erase (UINT code); 

void DisplayPatterns ( ) ; 

bool AllocatePattern ( ) ; 

bool DeallocatePattern () ; 

bool Find(UINT mode); 
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// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // I defined ( AFX_FINDREGION_H 2307E526_1F4B_11D3_96A4_00105A21774F INCLUDED ) 
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// FindRegion. cpp : implementation file 
// 

#include "stdafx.h" 
#include "DCM.h" 
#include " FindRegion . h" 

#define PATTERN_RECT 0 
#define FOUND_RECT 1 
#define FIND_BEST_REGION 
#define FIND_NEXT_REGION 

#ifdef __DEBUG 
#define new DEBUG__NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
f I FindRegion dialog 



0 

1 



FindRegion: : FindRegion (CWnd* pParent /'^^NULL*/) 
^ : CDialog (FindRegion :: IDD, pParent) 

// Some very basic initialization 

int n=theApp.app__ResolutionScaleFactor ; 

f_PatternDisplay=CRect ( CPoint (1 75 , 4 0 ) , CSize ( 1 0 0 *n , 1 0 0 *n) ); 

f_FoundDi splay = f _PatternDi splay+CPoint ( 0 , f _PatternDisplay , bot tom+1 0 *n) • 
f_Pattern=NULL; 
'^^^ f _Pat tern_Average = 0 ; 

m //{{AFX_DATA_INIT (FindRegion) 

f_Percent - 50; 
l^y; f_ReduceNoise := TRUE ; 

Si //} }afx_data_iwit 
F5|dRegion : : -FindRegion ( ) { } 



vpid FindRegion: :DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDat aExchange ( pDX) ; 
U //{ {AFX_DATA_MAP( FindRegion) 

R;J DDX_Text (pDX, IDC__DIALCGFIND_PERCENT , f_Percent); 
^^'1 DDV__MinMaxInt (pDX, f_Percent , 0, 100); 

DDX_Control(pDX, IDC_DIALOGFIND_PROGRESS , f_Progress); 
^ DDX_Control (pDX, IDC_D I ALOGFIND_SL IDER , f_Speed) ; 
O DDX_Check(pDX, IDC_DI ALOGF IND_DENO I SE , f_ReduceNoise) - 

//} }AFX data MAP 

} 



BEGIN_MESSAGE_MAP (FindRegion, CDialog) 
//{ {AFX_MSG_MAP (FindRegion) 

ON_BN__CLICKED ( ID__D I ALOGFIND_FIND , OnBut tonFindBest ) 
ON_WM_PAIWT ( ) 

ON_BN_CLICKED ( ID_DIALOGFIND_MEXT , OnBut tonFindNext ) 
//} }AFX_MSG__MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// FindRegion message handlers 

■k 

* Initialize find parameters 

bool FindRegion: : Initialize (CDC *pDC, Image *pBmp, CRect &ScreenPat ternRect , CSize& scroll) 

f_pBmp=pBmp; if(lf_pBmp) return false; 

f_CDC=pDC; if(!f_CDC) return false; 

f_scroll= scroll ; 

f_ScreenPatternRect=f_ScreenFoundRect=ScreenPatternRect • 
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f _ImagePatternRect=f _ImageFoundRect 

=f_pBmp->m_ScreenMap. Screen_to_Image ( f _ScreenFoundRect , -f_scroll) ; 

// Force selected region inside the image, if necessary 

bool inside=true; 

if (f__ImagePatternRect . lef t<0) 

f_ImagePatternRect . lef t=0; inside=f alse ; 
if ( f_ImagePatternRect . top< 0 ) 

f_ImagePatternRect . top=0 ; inside=:f al se ; 
if {f_IraagePatternRect . right>= f _pBmp- >GetWidth ( ) ) 

f_ImagePatternRect . right =f_pBmp- >GetWidth ( } -1 ; inside=f alse ; 

if {f_ImagePatternRect , bot tom>=f _pBmp- >GetHeight ( ) ) 

f_ImagePatternRect . bottom=f _pBmp- > Get Height () -1 ; inside=f al se ; 
if ( ! inside) 

f_ImagePatternRect .NormalizeRect ( ) ; 

if (f_ImagePatternRect , IsRectEmpty 0 ) return FALSE ; 
f_ImageFoundRect=f_ImagePatternRect ; 
f _ScreenPatternRect=f_ScreenFoundRect= 
^ f_pBmp->m_ScreenMap. lTnage_to__Screen ( f _ImageFoundRect , f_scroll ) ; 

^r.,-, return true; 

H 



Find best match 

hdhl FindRegion :: Find (UINT mode) 

J;": int x,y,dx,dy; 

double temp_corr; 
E CPoint best_f it (0, 0) ; 
i^^ int rw=f_ImagePatternRect .WidthO ; 
ill^ int rh = f_ImagePatternRect . Height ( ) ; 

^■^^ if (f_pBmp->GetWidth() -rw<rw || f _pBmp- >GetHeight () -rh<rh) 

%l AfxMessageBox ( "Search pattern is too large\n" 

"Please cancel search and select smaller pattern", 

mb_ok|mb_iconexclamatiom) ; 

Ej return false; 

// Set coordinate increments 

int accur=f_Speed . GetPos { ) ; 

if (accur==f_Speed. GetRangeMax { ) ) 

^ dx=dy=l; // highest accuracy 

else 

( 

max ( 1 , rw>>accur ) ; dy= max (1 , rh> >accur ) ; 



// Perform fit search 

bool f ound_something=f alse ; 

f or (x=f_ImageStartSearchPoint .X; x< f _pBmp- >GetWidth { ) -rw; x += dx) 

if (x%10==0) f_Progress . SetPos (100*x/ ( f_pBmp- >Get Width () -rw) ) ; 
if (abs (x-f_ImagePatternRect . left) <rw) continue; 

f or (y=f__ImageStartSearchPoint .y; y<f _pBmp->GetHeight ( ) -rh; y += dy) 
if (abs (y-f __ImagePatternRect .top) <rh) continue ; 

temp_corr=:f_pBmp->Compare (COMPARE_CORRELATION, CPoint (x,y) , f_Pattern, 

rw, rh, f _Pattern_Average) ; 
if ( temp__corr = = CANNOT_COMPARE) continue; 
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temp__corr = ( 1 . 0 + t emp_corr ) /2 ; // map into [0,1] 
if ( temp_corr>f_Correlation) // best current 

f ound_something=true ; 

f _Correlat ion=temp_corr ; 

best_f it=CPoint (x,y} ; 

if (mode==FIND NEXT REGION) 

{ 

f_ImageStartSearchPoint=CPoint (x,y+l) ; 
goto found; 

} 

temp_corr=f_pBmp->Compare (COMPARE_CORRELATION, CPoint (x,y) , f_Pattern, 
^ rw, rh, f__Pattern_Average) ; ~ 

if (f_ImageStartSearchPoint .y>0) f ^Images tart Sear chPoint . y= 0 ; 
} // next y 

if (f_ImageStartSearchPoint .x>0) f _ImageS tart SearchPoint . x=0 ; 
} // next X 

if (Tnode = = FIND NEXT REGION) 
{ 

AfxMessageBox ( "Finished searching the image\n" 

"Next search will start from the beginning.", 

MB_ I COM IN FORMAT I ON) ; 
f _ImageS tart Sear chPoint=CPo in t (0,0) ; 
return false; 

} 

if ( ! f ound_something) 

AfxMessageBox ( "Not found"); 
L;J return false; 

f^.und : 

f_Progress . SetPos ( 0) ; 

if (best_f it .x = = CANNOT_COMPARE bes t_f i t . y= = 0 ) return false- 
Beep (500,100); 

^^ii // Display the result 

m if (f_ImageFoundRect.EqualRect(f_lTnagePatternRect)==FALSE) Erase ( FOUND_RECT ) ; // remove prev 

1£3U S 

t... f_lTna9eFoundRect = CRect (best_fit,f_IraagePatternRect.Size() ) ; 

f_ScreenFoundRect=f_pBmp->m_ScreenMap. Image to Screen(f ImageFoundRect f scroll) - 
LI Draw(FOUND_RECT) ; ^ _ 

iriiii return true; 

/*;******************** ********************^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

*E i 

*r]i Find Button click 

void FindRegion: : OnBut tonFindBest ( ) 

f_ImageStartSearchPoint=CPoint (0,0); 
f __Correlat ion=0 . 0 ; 

if ( ! Find (FIND_BEST_REGION) ) return; 
DisplayPatterns 0 ; 

f ImageStartSearchPoint=CPoint ( 0 , 0 ) ; 

) ~ 

void FindRegion : : OnBut tonFindNext ( ) 

UpdateData (TRUE) ; 
f _Correlat ion=f _Percent/100 . 0 ; 
if ( ! Find(FIND_NEXT_REGION) ) return; 
DisplayPatterns ( ) ; 
^ / / f_ImageStartSearchPoint=f ^ImageFoundRect . TopLef t ( ) +CSize (1,1) ; 

Display modal dialog, and erase all rectangles after 



r -Jt * * + ■it it ■Jt St -±- -t- -i- ^ J. J. J- J- J- j» J. J- J. ^ J. J. .1- .r. ..^ _ ^ 



int FindRegion :: DoModal ( ; 
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// CustomFi leDialog . cpp : implementation file 
// 

#include "stdafx.h" 
#include " CustomFileDialog . h" 
#include <dlgs,h> 

#ifdef _DEBUG 
#define new DEBUG__NEW 
#uudef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CCustomFileDialog 

IMPLEMENT_DYNAMIC (CCustomFileDialog, CFileDialog} 

BEGIN_MESSAGE_MAP (CCustomFileDialog, CFileDialog) 
// { {AF}^_MSG_]y[AP (CCustomFileDialog) 
ON_BN_CLICKED (IDC_SELECT_ITEMS, OnSelectBut ton) 
OM_WM_CONTEXTMENU{ ) 

// } }afx_msg_map 

ON_COMMAND ( ID_HELP , OnHelp) 
END_MESSAGE_MAP ( ) 

// Filter string 
CString CCustomFileDialog 
CString CCustomFileDialog 
C^iing CCustomFileDialog 
CSpfing CCustomFileDialog 

cdti^tomFileDialog :: CCustomFileDialog (BOOL bOpenFi leDialog , DWORD dwFlags, 
=|1 LPCTSTR IpszFilter, // = ssCust omDef Fi 1 ter 

%J LPCTSTR IpszDefExt, // = szCus tomDef Sxt 

LPCTSTR IpszFileName, // = szCustomDef FileName 

CWnd* pParentWnd) : // = NULL 
ly CFileDialog (bOpenFileDialog, IpszDefExt, IpszFileName , dwFlags, IpszFilter, pParentWnd) 

'''' m_bMulti = FALSE; 

m_SelectSubdirectories ~ TRUE; 

r% II Most of the "customization" of CCustomFileDialog is set by the dwFlags 
^^T. // passed in to the constructor. Attempts to enable these features after 

// constructing the CCustomFileDialog, such as accessing the m_ofn structure 

// directly, may cause CCustomFileDialog to not work correctly 

S m_szBigBuf f er [0] = ' \0 ' ; 

-„-rr,;! iTfi^of n . IpstrFile = m_szBigBuf f er ; 

if (dwFlags & OFN_ALLOWMULTI SELECT) 
{ 

m_bMulti = TRUE; 

// MFC only provides a 260 character buffer for IpstrFile 

// This is not sufficient when you may be expecting a large number of files. 
m_of n . nMaxFi le = sizeof (m_szB igBuf f er ) ; 
if (IpszFileName != NULL) 

Istrcpyn (m_szBigBuf f er , IpszFileName, sizeof (m_szBigBuffer )) ; 

} 

else m_ofn.nMaxFile = _MAX_PATH,- 

if (dwFlags & OFN_EXPL0RER) 
{ 

if (dwFlags & OFN_ENA.BLETEMPLATE) 
{ 

// give it a custom title, too. 
SetTitle (" Select File or Directory"); 

} 

} 

else 

if (m_ofn. Flags & OFN_EXPLORER) 
{ 

// MFC added it, but we don't want it 

m_ofn. Flags &= (OFN_EXPLORER | OFN_SHOWHELP) ; 



: szCustomDef Filter (_T ( "All Files (*.*) | | Directories | - | | ") ) ; 
: szCustomDef Ext (_T("dcm") ) ; 

: szCustomDef FileName (_T ( "This is the initial default file name")); 
: szCustomTitle (_T (" Select File or Directory")); 
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} 

// FILEOPENORD & MULTIFILEOPENORD can be found from the Inf ©viewer 

// at Samples ~> MFC Samples -> General MFC Samples ~> CLIPART -> COMMDLG.RC 

// These are the customized versions 

if (m bMulti) 

" SetTemplate (CUSTOM_MULTIFILEOPENORD, IDD_CUSTOM_F ILE_D I ALOG) ; 
SetTemplate (CUSTOM_FILEOPENORD, IDD_CUSTOM_F ILE_DI ALOG) ; 



} 

void CCustomFileDialog: :SetTitle (CString title) 

CCustomFileDialog : : szCustomTitle = title; 

m_ofn. IpstrTitle = CCustomFileDialog :: szCustomTitle ; 

void CCustomFileDialog: :DoDataExchange(CDataExchange* pDX) 

CFileDialog : : DoDataExchange (pDX) ; 
/ / { { AFX_D ATA_M AP (CCustomFileDialog) 

DDX__Check(pDX, IDC_CHECK, m_SelectSubdirector ies) ; 
// } }AFX_DATA_MAP 



BOOL CCustomFileDialog: : ReadListViewNames ( ) 

CJ // Okay, this is the big hack of the sample, I admit it. 

// With some creative use of the Spy++ utility, you will 
2: // find that the listview is not actually ID - Istl as ^ 

// documented in some references, but is actually a child 
Jl // of dig item ID = lst2 

3 // WARNING! Although this is a non- intrusive customization, 
^IJ //it does rely on unpublished (but easily obtainable) 
y!! // information. The Windows common file dialog box implementation 
fll // may be subject to change in future versions of the 

// operating systems, and may even be modified by updates of 
" // future Microsoft applications. This code could break in such 
M= //a case. It is intended to be a demonstration of one way of 
f^i // extending the standard functionality of the common dialog boxes. 



CWnd* pWnd = GetParent () - >GetDlgI tem ( 1 st 2 ) ; 
fl if (pWnd NULL) return FALSE; 

CListCtrl* wndLstl = ( CLi stCtr 1* ) (pWnd- >GetDlgItem ( 1 ) ) ; 

UINT nSelected = wndLstl- >GetSelectedCount () ; 

if (InSelected) return FALSE; // nothing selected 

CString strDirectory = GetFolderPath () ; 
if (StrDirectory. Right (1) _T("\\")) 

{ 

StrDirectory += _T("\\"); 

) 

CString strltemText; 

// Could this iteration code be cleaner? 

for (int nitem = wndLstl->GetNextI tem ( - 1 , LVNI_SELECTED) ; 

nSelected-- > 0; nItem = wndLs t 1 - >GetNext I tem ( nl tem, LVNI_SELECTED) ) 

^ StrltemText = strDirectory + wndLstl - >Get I temText (nl tem , 0) ; 
m_listDisplayNames . AddHead ( strltemText) ; 

} 

return TRUE; 

} 

BOOL CCustomFileDialog: : OnFi leNameOK () 

{ 

ReadListViewNames 0 ; 

// CFileDialog ' s m__of n . IpstrF i le will contain last set of selections! 
return FALSE; 
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} 

void CCustomFileDialog : rOnSelectButton ( ) 

{ 

ReadLi stViewMames ( ) ; 

( (CDialog*) GetParent () ) - >EndDialog ( IDOK) ; 

} 

void CCustomFileDialog : zOnContextMenu (CWnd* pWnd; CPoint point) 

{ 

const DWORD helpIDs[] = 

( 

//IDC_SELECT_ITEMS, IDC_SELECT_rTEMS + 0x50000, 

0, 0 

}r 

: : WinHelp (pWnd->m_hWnd, Af xGetApp ( ) - >m_pszHelpFilePath, 
HELP_CONTEXTMENU, (DWORD) (LPVOID) helpIDs) ; 

} 

void CCnstomFileDialog : lOnHelp ( ) 

{ 

// TODO: How do I bring up the main topic as a contextpopup? 
AfxGetAppO ->WinHelp(l, HELP_COMTSXTPOPUP ) ; 

} 

BOOL CCust omFileDialog : :OnInitDialQg ( ) 

{ 

CFileDialog: : Onini tDialog ( ) ; 

1^1 // Clear all old selections 

ill m__listDisplayNames - Remove All ( ) ; 

// Let's change some button text 

// Here's one of the big differences from pre MFC 4.0 
%^ // customizat ions . All of the controls on the Explorer 

// dialog are now on a dialog which is the PARENT of 
"Z, II the CFileDialog. That's right; you'll need to do a 
vi^i // GetParentO first, before using GetDlgl tern ( ) . 

_ // Overall, this removes the edit control and its static 
// text and then moves the filetypes combo and static 
II text up into the same spot. 

C] CRect rcWndEdit, rcWndStatic; 



i/:: CWnd* pWnd = GetParent ( ) ->GetDlgItem (edtl) ; 

pWnd- >GetWindowRect ( &rcWndEdi t ) ; 
O GetParent 0 ->ScreenToCl lent (ScrcWndEdit) ; 
f\ pWnd = GetParent () ->GetDlgItem(stc3) ; 

pWnd->GetWindowRect (&rcWndStatic) ; 

GetParent ( ) - > ScreenToCl lent ( &rcWndStat ic) ; 

// More undocumented but non- implementat ion functions 

// Work only when supplying a customized template 

HideControl (edtl) ; // Hide edit control 

HideControl (stc3 ) ; // Hide edit control's text 

pWnd = GetParent 0 ->GetDlgItem(cmbl) ; 

pWnd->SetWindowPos {NULL, rcWndEdi t . lef t , rcWndEdit . top , 0, 0, 

SWP_NOSIZE I SWP_NOZORDER | SWP_NOACT IVATE) ; 
pWnd = GetParent 0 ->GetDlgItem (stc2) ; 

pWnd->SetWindowPos (NULL, rcWndStat ic . lef t , rcWndStat ic . top , 0, 0, 
SWP_NOSIZE 1 SWP_NOZORDER | SWP_NOACTIVATE ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

it 

* Return selection # index 

■k 

CString CCustomFileDialog : : GetSelectedAt (UINT index) 
{ 

CString res ( " " ) ; 
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if ( index>= (UINT) m_listDisplayNames . GetCount ( ) ) return res; 
POSITION pos = m_listDisplayNames . Findlndex ( index) ; 
if(lpos) return res; 

res = (CString) m_listDisplayNames . GetAt (pos) ; 
return res; 



4 



ColorDialog , h 



10/27/00 



#if 1 defined (AFX__COLORDIALOG_H 13C3 0C65_82 S7_11D2_95 96_0 0 0 0 0 00 0 0 0 00 INCLUDED^) 

#def ine AFX_COLORDIALOG_H 13C3 0C6 5_82 87_11D2_95 96_0 0 00 0 00 000 00 INCLUDED_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER 1000 

// ColorDialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// ColorDialog dialog 

class ColorDialog : public CDialog 

{ 

// Construction 
public : 

ColorDialog {CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA(ColorDialog) 

enum { IDD = IDD_DIALOG_COLOR }; 

CSliderCtrl m_Contrast; 

CSliderCtrl m_GamTna ; 

CSliderCtrl m_Br ightness ; 

int m_br_value; 

double m_gamma_value 7 

int Tn_con__value r 

// } }AFX_DATA 



/£; Overrides 

."i^; // ClassWizard generated virtual function overrides 
^! //{ {AFX_VIRTUAL (ColorDialog) 
protected: 

'hj virtual void DoDataExchange (CDataExchange pDX) r // DDX/DDV support 
,H-J //} }AFX_VIRTUAL 

Afe' Implementation 
jSTPtected : 

l\ // Generated message map functions 

//{ {AFX_MSG(ColorDialog) 
Q virtual BOOL Onini tDi alog () ; 

n= afx_msg void OnHScroll (UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) ; 
V^l //}}AFX_MSG 
2f DECLARE_MESSAGE_MAP ( ) 
^ivate : 

f'^ CWnd* m pView; 

It 

// { {afx__insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line , 

#endif // 'defined ( AFX_COLORDIAL0G_H 13C3 0C65_8 2 87_11D2_95 96_00 00 0 00 000 00 INCLUDED_) 
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// ColorDialog . cpp : implementation file 
// 

#include "stdafx.h" 
# include "DCM.h" 
#include "ColorDialog . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////// //I 
II ColorDialog dialog 



ColorDialog: :ColorDialog ( CWnd* pParent /*=NULL*/) 
: CDialog (ColorDialog :: IDD , pParent) 

/ / { {AFX_DATA_INIT (ColorDialog) 
m_br_value = 0 ; 
m__gamma_value = 100; 
m_con_value = 0; 
/ / ) } AFX_DATA_INIT 
m_pView= pParent ; 

} 



vo3l ColorDialog: iDoDataExchange (CDataExchange* pDX) 



2! CDialog: : DoDataExchange (pDX) ; 

1 1 [ {aFX__DATA_MAP (ColorDialog) 
iJS DDX_Control (pDX, IDC_SLIDER_CONTRAST , m_Contrast) ; 

DDX_Control (pDX, IDC_SLIDER_GAMMA, m_Gamma) ; 

DDX_Control (pDX, IDC_SL IDER_BRIGHTNESS , m_Br ightnes s ) 
J5 DDx"Text (pDX, IDC_SLIDER__BR_MUMBER , m_br_value) ; 
uS DDVjyiinMaxInt (pDX, ni_br_value, -100, 100); 
^1 DDX Text(pDX, IDC_SLIDER_GAM_NUMBER , m_gamma_value) ; 

DDV~MinMaxDouble (pDX, m_gamma_value , 0, 600); 
" DDX_Text (pDX, IDC_SLIDER_CT_NUMBER, m_con_value) ; 
1^-^ DDV~MinMaxInt (pDX, m_con_value, 0, 101); 
£\ II] }AFX_DATAjyiAP 
i-l if (pDX->m_bSaveAndValidate) 

^'^l m_br_value=m_Brightness . GetPos ( ) ; 

fi; m_gamma_value=m_Gamma. GetPos 0 ; 

21 m__con_value = m_Contrast . GetPos ( ) ; 

else 

m_Brightness . SetPos (m__br_value) ; 
m_Garama . SetPos ( ( int ) m_gamma_value ) ; 
m Contrast . SetPos (m_con_value) ; 



BEGIN_MESSAGE_MAP (ColorDialog, CDialog) 

//{ {AFX_MSG_]yiAP (ColorDialog) 

ON_WM_HSCROLL() 

// } }AFX_MSG_MAP 
END_MESSAGE__MAP ( ) 

////////////////////////////////////////////////////////////////////^^/^/^^^^ 
// ColorDialog message handlers 

BOOL ColorDialog : :OnInitDialog ( ) 

{ 

CDialog: : Onini tDialog ( ) ; 
m__Brightness . SetRange (-100, 100, TRUE) ; 
m_Brightness . SetTicFreq (20) ; 
m_Brightness. SetLineSize (1) ; 
m_Brightness , SetPageSize (10) ; 
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m_Brightness . SetPos (m_br_value) ; 

m_GamTna . Se t Range (0,600, TRUE ) ; 
m_Gamma.SetTicFreq(100) ; 
m_Gamma , SetLineSize ( 1) ; 
m_Gamma . SetPageSize (10) ; 
m_Gamma , SetPos ( ( int ) m_gamma_value ) ; 
CString valued- 
value . Format ( " %3 . If " , m_gamTna_value/ 1 0 0 . 0) ; 
GetDlgItem(IDC_SLIDER__GAM_NUMBER) - >SetWindowText (value) j 

m_Contrast . SetRange (0, 100, TRUE) ; 
m_Contrast . SetTicFreq(lO) ; 
m_Contrast . SetLineSize (1) ; 
m_Contrast . SetPageSize ( 10 ) ; 
m_Contrast . SetPos (m_con_value ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



d ColorDialog: :OnHScroll (UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) 
CString value; 

int nControl = pScrollBar- >GetDlgCtr 1 ID ( ) ; 

CSliderCtrl* pControl = ( CSliderCtrl* ) GetDlgl tern (nControl ) ; 
switch (nControl) 

{ 

case IDC_SLIDER_BRIGHTNESS : 

ASSERT (pControl != NULL); 
m_br_value = pControl - >GetPos () ; 
value . Format { " %d" , m__br_value) ; 

GetDlgItem(IDC_SLIDER_BR_NUMBER) - >SetWindowText (value) ; 
break; 

case IDC_SLIDER_CONTRAST: 

ASSERT (pControl != NULL) ; 
m_con_value = pControl - >GetPos () ; 
value . Format ( " %d" , m_con_value) ; 

GetDlgItem{IDC_SLIDER_CT_NUMBER) - >SetWindowText ( value ) ; 
break; 

case IDC_SLIDE R_GAMM A : 

ASSERT (pControl != NULL); 

m__gamma__value = pControl ->GetPos () ; 

value . Format ( " %3 . If " , m_gamma_value/ 10 0 . 0) ; 

GetDlgltem ( IDC_SLIDER_GAM__MUMBER) ~ > SetWindowText ( value ) ; 
break ; 

default : 

CDialog : :OnHScroll (nSBCode, nPos, pScrollBar) ; 
break ; 

} 

/* For Proof later 
if (m_pView) 

( 

m_pView- > Invalidate ( ) ; 
m_pView- >UpdateWindow ( ) ; 

} 

return ; 
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// Compressor . h : interface for the Compressor class. 
// 

1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 11 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n I ! 1 1 1 1 1 f 1 1 1 1 H 1 1 

#if ! defined ( AFX_COMPRESSOR_H 2 0 0F3A11_CF87_11D2_9617_0 0105A217 74F INCLUDED__) 

#def ine AFX_COMPRESSOR_H 2 0 0F3A11_CF8 7_11D2_9617_0 0105A21774F INCLUDED_ 

#if _MSC_VER > 100 0 
#pragma once 

#endif // _MSC_VER > 1000 

//#include "MainFrm.h" 

// adding zlib staff 
#if ! defined (^WINDOWS) 
#define _WINDOWS 
#endif 

#if Idefined (ZLIB_DLL) 
#define ZLIB_DLL 
#endif 

#include " Zlibll3\\zlib . h" 
#define BUFLEN 32768 

class Compressor 

{ 

public : 

Compressor ( ) ; 

virtual -Compressor () ; 

static bool Z_Compress ( CString infile, CString outf ile) ; 

static bool Z_unCompre ss ( CString infile, CString outfile, int max_steps = 0 ) ; 

}P 

ftfndif // ! defined (AFX_COMPRESSOR_H 200F3A11_CF87_11D2_9617_00105A21774F INCLUDED 
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// Compressor . cpp : implementation of the Compressor class. 
// 

1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! I ( 1 1 1 1 1 1 1 1 f I f I ! I f 1 1 1 1 1 1 ! 1 1 f 1 1 1 1 

#include "stdafx.h" 
# include "DCM.h" 
#include " Compressor . h" 
#include <io.h> 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]- FILE ; 

#define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

1 1 1 1 1 1 f 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f I f 1 1 1 1 1 1 1 1 1 1 1 n f 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 

Compressor: : Compressor ( ) 

{ 
} 

Compressor: : -Compressor ( ) 

{ 



Uncompress GZipped file 

*C If "max_steps" >0 , uncompresses only first raax_steps*BUFLEN bytes 
* '% I 

befol Compressor :: Z_unCompress (CString infile, CString outfile, int max_steps) 

nj long in_size; 

CString message; 
:\ FILE *out; 

gzFile in; 
O hool g2_f ormat_error=f alse ; 

// Find compressed file size 
{ 

FILE* t_in; 

t_in=f open (inf lie, "rb" ) ; 
if (t_in NULL) 

{ 

message . Format (" Cannot read from file % s , inf i le ) ; 

if (max_steps>0) Af xMessageBox (message , MB_ICONEXCLAMATION | MB_OK) 
return false; 



} 



in_size = _f ilelength (_f ileno ( t_in) ) ; // input file size 
f close ( t in) ; 



// Open files for reading/writing 
in=gzopen ( inf ile , "rb" ) ; 
if (in == NULL) 
{ 

message . Format ( "Cannot read from file %s",infile); 

if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

out = f open (outf ile , "wb"); 

if (out == NULL) 

{ 

message . Format (" Cannot write to file %s outf ile) ; 

if (max_steps>0) AfxMessageBox (message , MB__ICONEXCLAMATION | MB_OK) ; 
return false; 

} 
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// Put progress control in the main frame status bar 
theApp . ShowProgress ( 1 , "Decompressing file with gzip"); 

// Perform decompression 
static char buf [BUFLEM] ; 
long len, tot_len=G, steps=0; 
f or ( ; ; ) 

if (max_steps==0) theApp . ShowProgress (min (100 , (33*tot_len) /in_size) ) ; // assume 3:1 compress 
ion ratio 

len = gzread{in, buf, BUFLEN) ; 

tot_len += len; 

if (len <= 0) break; // eof 

if ( (long) f write (buf , 1, len, out) 1= len && ! g2_f ormat_error ) 

if (max_steps>0) AfxMessageBox (" Possible gz format error MB_ICONEXCLAMAT ION | MB_OK) ; 
gz_f ormat_error= true ; 

} 

steps++ ; 

if (max_steps>0 && steps>=max_steps ) break; 



// Clean up 

if ( f close ( out ) ) 

{ 

message . Format (" Cannot close file %s", outfile); 

if (raax_steps>0) AfxMessageBox (message , MB_ICOMEXCLAMATION | MB__OK) ; 
return false; 



if (gzclose{in) Z_OK) 

//message . Format (" Cannot close file %s", infile); 
y:]l //if (max_steps>0) AfxMessageBox (message , MB_ICONEXCLAMAT ION | MB_OK) 

ii //return false; 

return true; 



*-=^--^= Compress GZipped file 
* \i 

bS5l Compressor :: Z_Compress (CString infile, CString outfile) 

long in_size; 
CString message; 
FILE ^in; 
gzFile out; 

bool gz_f ormat_error=f al se ; 

// Open files for reading/writing 
in=f open { inf ile , " rb " ) ; 
if (in MULL) 
{ 

message , Format (" Cannot read from file %s", infile); 
AfxMessageBox (message, MB_ICONEXCLAMATION ] MB_OK) ; 
return false; 

} 

in_size = _f ilelength (_f ileno ( in) ) ; // input file size 
out = gzopen (outf i le , "wb"); 
if (out == MULL) 

{ 

message . Format (" Cannot write to file %s " , out f ile ) ; 
AfxMessageBox (message, MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

// Put progress control in the main frame status bar 
theApp . ShowProgress ( 1 ^ " Compressing file with gzip"); 
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// Perform compression 
static char buf [BUFLEN] ; 
long len, tot_len=0; 
for (;;) 
{ 

theApp . ShowProgress ( ( lOC^tot^len) /in_size) ; 
len= (long) f read (buf, 1, BUFLEM, in) ; 
tot_len += len; 
if (len <= 0) break; // eof 

if (gzwrite ( out , buf, len) len && 1 g2_f ormat_error ) 

AfxMessageBox( "Possible gz format error MB_ICONEXCLAMAT ION | MB_OK) 
gz_f ormat_error=true ; 

} 

} 



// Clean up 

theApp . ShowProgress ( 0 ) ; 
if {gzclose (out) 1= Z_OK) 
{ 

message . Format ( "Cannot close file %s", outf ile) ; 
AfxMessageBox (message, MB_ICONEXCLAMATIOW | MB_OK) ; 
return false; 

} 

if ( f close ( in) ) 

{ 

message . Format (" Cannot close file %s" , inf ile) ; 
AfxMessageBox (message, MB__ICONEXCLAMATION | MB__OK) ; 
return false; 

} 

return true; 
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#if 1 defined ( AFX_CREATEDIRECTORYDIALOG_H EE9 3B0 0 6_DE6F__11D2_9 6 2 9__0 0105A21774F INCLUDED_ 

#def ine AFX_CREATEDIRECTORYDIALOG_H EE93B0 06_DE6F_11D2_9 62 9_0010 5A21774F INCLUDED_ 

#if _MSC_VER > 1000 
ttpragma once 

#endif // _MSC_VER > 1000 

// CreateDirectoryDialog . h : implementation file 
// 

#include "stdafx.h" 
#include "DCM.h" 



//#ifdef __DEBUG 
//#define new DEBUG__NEW 
//#undef THIS_FILE 

//static char THIS_FILE[] = FILE ; 

//#endif 

///////////////////////////////////////////////////////////////////////////// 
// CreateDirectoryDialog dialog 

class CreateDirectoryDialog : public CDialog 

{ 

// Construction 
publ ic : 

CreateDirectoryDialog (CWnd* pParent = NULL); // standard constructor 
CString getName(); 

/fijDialog Data 
Ik 1 1 { {AFX_DATA (CreateDirectoryDialog) 

enum { IDD = IDD_DI ALOG_CREATE_DIRECTORY }; 

CString Tn_DirName; 
;|j //} }AFX_DATA 

/^^■JsOver rides 

^11 // ClassWizard generated virtual function overrides 
f%\ / / { {AFX_VIRTUAL (CreateDirectoryDialog) 
protected: 

~ virtual void DoDataExchange (CDataExchange^ pDX) ; // DDX/DDV support 

H // } }AFX_VIRTUAL 

/ I TRp 1 emen t a t i on 
pt'dtected : 

pi; // Generated message map functions 
//{ {afx_MSG (CreateDirectoryDialog) 
'-'^ II NOTE: the ClassWizard will add member functions here 

// } }afx_msg 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 

// CreateDirectoryDialog dialog 



CreateDirectoryDialog: : CreateDirectoryDialog ( CWnd* pParent /*=NULL*/) 
: CDialog (CreateDirectoryDialog :: IDD , pParent) 

{ 

// { {AFX_DATA_INIT (CreateDirectoryDialog) 
m_D i rName = _T ( " " ) ; 
// } }AFX__DATA_INIT 

} 



void CreateDirectoryDialog : iDoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 

// { { AFX_DATA_MAP (CreateDirectoryDialog) 

DDX_Text (pDX, IDC_EDIT_DIRECTORY_CREATE, Tn_DirName) ; 

/ / } } AFX_DATA__MAP 

} 
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* Take care of the appropriate file/directory name syntax 

-k 

CString CreateDirectoryDialog: :getName() 

{ 

ra_DirName .Remove ( ' ' ) ; 

m_DirNanne . Remove (*/'); 

m_DirNanne . Remove ( ' \ \ ' ) ; 

m_DirName = CStr ing ( " / " ) +tn_Di3^Name ; 

return m_DirName; 

} 



BEGIN_MESSAGE_MAP (CreateDirectoryDialog, CDialog) 

// { {AFX_MSG_]y[AP (CreateDirectoryDialog) 

// KIOTE: the ClassWizard will add message map macros here 

//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CreateDirectoryDialog message handlers 

//{ {AFX__INSERT_L0CATI0N} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line, 
#Sdif // ! defined (AFX_CREATEDIRECTORYDIALOG_H EE93B006_DE6F_11D2_9629_00105A21774F IMCLUDED_) 



EdgesDialog . h 



10/27/00 



#if 1 defined (AFX_EDGESDIALOG_H 03D7 04B4_834D_11D2_95 97_000 00 000 0 00 0 INCLUDED__) 

#def ine AFX_EDGESDIALOG_H 0 3D704B4_834D_11D2_9 5 9 7_00 000 000 0 0 00 INCLUDED_ 

#if __MSC_VER >= 10 00 
#pragma once 

#endif // _MSC_VER >= 1000 

// EdgesDialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// EdgesDialog dialog 

class EdgesDialog : public CDialog 

{ 

// Construction 
public : 

BYTE GetThresholdO ; 

EdgesDialog ( int threshold= 128 , CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

/ / { {AFX_DATA (EdgesDialog) 

enum { IDD = IDD_DI ALOG_EDGES }; 

CSliderCtrl m_Sl ider Edges ; 

BYTE m_Thr_Value; 

// } }AFX_DATA 



// Overrides 

// ClassWizard generated virtual function overrides 
^£ //{ {AFX_VIRTUAL (EdgesDialog) 
protected: 

yl virtual void DoDataSxchange (CDataExchange* pDX) ; // DDX/DDV support 

d% //} }AFX_VIRTUAL 

//"'"^^Implementat ion 
pi^tected : 

Jl:' // Generated message map functions 

lU //{ {AFX_MSG(EdgesDialog) 

i:i virtual BOOL Onini tDi alog () ; 

y„ afx_msg void OnHScroll (UIMT nSBCode, UINT nPos, CScrollBar* pScrollBar) ; 

II } }AFX_MSG 
''^^ DECLARE_MESSAGE_MAP 0 

}fy 

//fl{AFX_INSERT_LOCATION} } 

//^;"iMicrosof t Developer Studio will insert additional declarations immediately before the previous 
lijib . 

#endif // 1 defined ( AFX_EDGESDIALOG_H 03D7 04B4_8 3 4D_1 1D2_9 5 9 7_0 0 0 0 0 0 0 0 0 0 0 0 INCLUDED_) 
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// EdgesDialog . cpp : implementation file 
// 

#include "stdafx.h" 
#include "DCM.h" 
#include " EdgesDialog . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// EdgesDialog dialog 



EdgesDialog : :EdgesDialog (int threshold /*=128*/, CWnd* pParent /*=NULL*/) 
: CDialog (EdgesDialog :: IDD, pParent) 

{ 

// { {AFX_DATA_IMIT (EdgesDialog) 
// } }afx_data_init 

m_Thr_Value= (100*threshold) /256; 

} 



void EdgesDialog :: DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange ( pDX) ; 
□ //{ {AFX_DATA_MAP (EdgesDialog) 

^ DDX_Control (pDX, IDC__SLIDER_EDGES , m_SliderEdges) ; 

If DDX_Text (pDX, IDC_SLIDER_EG_NUMBER , m_Thr_Value) ; 

01 ///DDV_MinMaxByte (pDX, m_Thr_Value, 0, 100); 

i^lj // } }AFX_DATA_MAP 

C;; if {pDX->m_bSaveAndValidate) 

I { 

m_Thr__Value=ra_SliderEdges . GetPos 0 ; 

h;; else 

- m_Sl iderEdges . SetPos (m_Thr_Value) ; 



BiE4lN_MESSAGE_MAP (EdgesDialog, CDialog) 
pil //{ {AFX_MSG_MAP (EdgesDialog) 

ON_WM_HSCROLL ( ) 

/ /}} AFX_MSG_MAP 
END__MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// EdgesDialog message handlers 

BOOL EdgesDialog :: OnlnitDialog ( ) 

{ 

CDialog: : Onini tDialog ( ) ; 
Tn_SlideiEdges . SetRange (0,100, TRUE) ; 
m__SliderEdges.SetTicFreq(10) ; 
m__SlidexEdges . SetLineSize ( 1 ) ; 
m_SlideiEdges . SetPageSize ( 10) ; 
m_SliderEdges . SetPos (m_Thr_Value ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

void EdgesDialog : :OnHScroll (UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) 

{ 

est ring value; 

int nControl = pScrol iBar- >GetDlgCtrl ID ( ) ; 

CSliderCtrl* pControl = (CSliderCtrl*) GetDlgl tern (nControl) ; 
switch (nControl ) 

{ 
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case IDC_SLIDER_EDGES : 

ASSERT (pControl 1= NULL) ; 
m_Thr_Value = pControl - >GetPos () ; 
value . Format ( " %d" , m_Thr_Value) ; 

GetDlgltem ( IDC_SLIDER_EG_NUMBER) - >SetWindowText (value) 
breaks- 



default : 

CDialog: lOnHScroll (nSBCode, nPos, pScrollBar) ; 
break; 

} 

/* For Proof later 
if (mjView) 

{ 

i:n_pView->Invalidate ( ) ; 
m_pView->UpdateWindow( ) ; 

} 

*/ 



return; 

} 



BYTE EdgesDialog: :GetThreshold() 

{ 

int t=m_Thr_Value ; 

t=: (256*t) /lOO; if(t>255) t = 255; // convert to 8-bit scale 
return ( (BYTE) t) ; 

} 
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// Email. h: interface for the Email class. 

////////////////////////////////////////////////////////////////////// 

#if I defined (AFX_EMAIL_H FDCA3A8 7_F053_11D3_9789_0 0105A217 74F INCLUDED_) 

#def ine AFX_EMAIL_H FDCA3A8 7__F05 3_11D3_9 7 8 9_0 0105A217 74F INCLUDED__ 

#if _MSC_VER > 100 0 
#pragma once 

#endif // _MSC_VER > 1000 
#include <mapi.h> 
class Email 

{ 

public : 

bool Send(CString to, CString subject, CString text, 
CString f i leat t achment , HWMD hWnd=NULL) ; 

Ema i 1 ( ) ; 

virtual -EinailO; 
protected : 



HINSTAMCE 


m_ 


_hlibMAPI; 


LHANDLE 


m 


IhSession; 


LPMAPISENDMAIL 


m 


_MAPISendMail ; 


LPMAPILOGON 


m 


MAP I Logon ; 


LPMAP I LOGOFF 


m 


_MAP I Logoff ; 


HWND 


m_ 


_hWndParent ; 



pglvate : 




bool Logoff 0 ; 

5: bool Logon (HWND 



hWnd-NULL) ; 



#iidif // I defined (AFX_EMAIL_H 



FDCA3A87 F053 11D3_9789__00105A21774F INCLUDED 
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// Email. cpp: implementation of the Email class. 
// 

1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

#include "stdafx.h" 
#include "Email .h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_MEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
Email : : Emai 1 ( ) 

{ 

m_hWndParent = 0 ; 
m_lhSession=0 ; 
m_hlibMAPI=0; 
m_MAPILogon = 0; 
m_MAP I Logoff = 0; 
m_MAPISendMail = 0; 

} 

Email : : -Emai 1 ( ) 



* Log to the Simple MAPI service 

bISl Email : :LogOn(HWND hWnd /*=NULL*/) 

{Hi 

s if (m_lhSession ! = 0 ) 

"^-^ AfxMessageBox ( "Cannot load email service"); 

return false; 



// Load Simple MAPI dll 

m_hlibMAPI = LoadLibrary ( "MAPI3 2 . DLL " ) ; // 32 bit clients 
if ( !m_hlibMAPI) 

{ 

AfxMessageBox (" Cannot load email service"); 
return false; 

} 

m_hWndParent = hWnd; 
// Load MAPI functions 

m_MAPILogon = ( LPMAPILOGON) Get ProcAddress {m_hlibMAPI , "MAPILogon" ) ; 
m__MAP I Logoff = (LPMAPILOGOFF) GetProcAddress (m_hlibMAPI , "MAPILogof f " ) ; 
m_MAPISendMail = (LPMAPISENDMAIL) Get ProcAddress (m_hlibMAPI , "MAP I SendMai 1 " ) 

// Logon to MAPI 

switch (m_MAPILogon ( (ULONG) m_hWndParent ; NULL, NULL, 

MAPI_PASSWORD_UI/* ] MAP I__FORCE_DOWNLOAD* / , OL, &m_lhSession) ) 

( 

case MAPI_E_INSUFFICIENT_MEMORY: 

AfxMessageBox {" Insufficient memory to proceed"); 

return false; 
case MAP I _E_LQG I N_FA I LURE : 

AfxMessageBox (" Failed to log on"); 

return false; 
case MAP I_E_TO0_MANY_SESS IONS : 

AfxMessageBox (" Failed : Too many email sessions open simultaneously"); 

return false; 
case MAPI_E_USER_ABORT : 

AfxMessageBox (" Failed : User abort"); 

return false; 
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case SUCCESS_SUCCESS : 

return true; 
default: // MAPI__E_FAILURE: 

AfxMessageBox (" Failed to start email service"); 

return false; 

} 

return false; // must never get here 

} 



/ 



* Log off the Simple MAPI service, 

* clean MAPI memory buffers (if needed) 

bool Email Logoff ( ) 
{ 

if (m_MAPILogOf f (m_lhSessiQn, (ULONG) m_hWndParent , OL, OL) i =:SUCCESS__SUCCESS) 
{ 

AfxMessageBox {" Failed to terminate email session"); 
return false; 

} 

m_lhSes sion=0 ; 
return true; 



/ 



* Send the message 

boSl Email :: Send (CString to, CString subject, CString text, 
CString f i leat tachment , HWND hWnd/*=NULL*/ ) 

^;J; if C ! LogOn ( hWnd) ) return false; 
const ULONG ulReserved - OL; 

y;! // Initialize file attachment structure 
fij MapiFileDesc attachment; 

CString name=f i leattachment ; 

if ( f ileattachment 1 = " " ) 

tj int n = f ileattachment . ReverseFind ( V ' ) ; 

f{l if(n<0) n = f ileattachment . ReverseFind ( ' \\ ' ) ; 

'''J' if(n>0) name = f i leat tachment . Mid (n+1 ) ; 

'--'"I attachment . ulRe served=ul Re served ; 

fji attachment . flFlags=0 ; 

fl attachment . nPosition= (ULOMG) - 1 ; 

attachment . lpszPathName= ( char^ ) (LPCSTR) f ileattachment ; 

attachment . lpszFileName= ( char'^ ) (LPCSTR) name; 

attachment . lpFileType=NULL ; 

} 

// Initialize "to" recipient 

CString toAddress=CS tr ing ( " SMTP : " ) +to ; 

MapiRecipDesc recips; 

recips . ulReserved = ulReserved; 

recips . ulRecipClass = MAPI_TO; 

recips . IpszName = ( char* )( LPCSTR) to ; 

recips . IpszAddress = ( char* )( LPCSTR) toAddress ; 

recips . ulEIDSize =0; 

recips . IpEntrylD =NULL ; 

// Initialize MAPI message for one recipient, with at most one attachment 

MapiMessage message; 

message . ulReserved = ulReserved; 

message . IpszSubj ect ~ ( char* ){ LPCSTR) subj ect ; 

message . IpszNoteText = ( char *)( LPCSTR) text ; 

message . IpszMessageType - NULL; 

message . IpszDateReceived = NULL; 

message . IpszConversationlD = NULL; 

message . flFlags = 0; 

message . IpOriginator = NULL; 
message . nRec ipCount = 1; 
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message . IpRecips = &recips; 
if (f ileattachment ! " ) 

( 

message . nFileCount = 1; 
message . IpFi les = ^attachment; 

} 

else 

{ 

message .nFileCount = 0; 
message . IpFi les = NULL; 

} 

ULOMG err=m_MAPISendMail ( m_lhSession, (ULONG) m__hWndParent , 

^message, MAPI__DIALOG, OL) ; 

swi t ch (err) 

{ 

case MAPI_E_AMBIGUOUS_RECIPIENT : 

Af xMessageBox ( " Send f ai led : \nAmbiguous recipient description"); 
break; 

case MAPI_E_ATTACHMENT_NOT_FOUND : 

Af xMessageBox ( "Send failedr\nThe specified attachment was not found"); 
break; 

case MAPI_E_ATTACHMENT_OPEN_FAILURE : 

Af xMessageBox ( " Send failed :\nThe specified attachment could not be opened" 
break; 

case MAPI_E_BAD_RSCIPTYPE: 

Af xMessageBox ( " Send failed:\nBad recipient type"); 
break ; 

case MAPI_E_INSUFFICIENT__MEMORY: 

Af xMessageBox {" Send f ai led : \nlnsuf f icient memory"); 
fi break; 

case MAPI_E__INVALID_RECIPS : 
J: Af xMessageBox (" Send failed : \nlnval id recipient ( s) ") ; 

break; 

dj case MAP I_E_LOGIN_FAI LURE : 

C"!-; Af XMessageBox (" Send f ai led : \nFai led to log on successfully"); 

3 break; 
tfJ case MAPI_E_TEXT_TOO_LARGE : 

i|j Af xMessageBox {" Send failed:\nThe text in the message was too large"); 

f~^. break; 

case MAPI_E__TOO_MANY_FILES : 

Af xMessageBox (" Send failed : \nThere were too many file attachments"); 
L:k break; 

r-i; case MAPI__E_TOO_MANY_RECIPIENTS : 

r.'!! Af XMessageBox (" Send f ai led : \nThere were too many recipients"); 

i^J break; 

M case MAPI_E__UNKNOWN_RECIPIENT: 

f^i Af xMessageBox (" Send f ai led : \nUnknown recipient"); 

break; 
case MAPI_E_USER_ABORT: 

Af xMessageBox (" Send f ai led : \nUser abort"); 

break; 
case SUCCESS_SUCCESS : 

break ; 

default: // MAP I_E_FAI LURE : 

Af xMessageBox (" Send failed"); 
break; 

} 

return ( err==SUCCESS_SUCCESS ) LogOffO; 



3 



a 

m 
m 

€i 
H 

m 
ii 
m 

a 
m 
^1 

o 
a 



FileBrowser . h 



10/27/00 



#if ! defined (AFX_FILEBROWSER_H B5F74D8 0_CC6 0_11D2__96 14_0 010 5A2 1774 F INCLUDED_ 

#def ine AFX_FILEBROWSER_H B5 F74D8 0_CC6 0_1 1D2_96 14_0 0 10 5A2 1 774 F INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 10 00 
//FileBrowser . h : header file 
// 

#include "afxinet.h" 

#include " FTPLoginDialog . h" // Added by ClassView 

///////////////////////////////////////////////////////////////////////////// 
// FileBrowser dialog 

class FileBrowser : public CDialog 

{ 

// Construction 
publ ic : 

bool Initialize (CString temp_dir) ; 
CString m_RequestedFi le ; 

FileBrowser (CWnd* pParent = NULL); // standard constructor 
-FileBrowser 0 ; // destructor 

// Dialog Data 

/ / { {AFX_DATA (FileBrowser ) 

enum { IDD = IDD_D I ALOG_FI LE_BROWSE }; 

CListCtrl m_List_FTP; 

CComboBox m_DriveList; 
Q CListCtrl m_List; 
j% CString rn_Directory ; 

int m_NumFiles; 

m_NumFi lesTotal ; 
y!] CString m__Directory_FTP ; 
M int m_NumFiles_FTP; 
3 int m_MumFilesTotal_FTP; 
^4 CString m_INhost; 
y;j CString m_SpeedInf o ; 
nil //}}AFX_DATA 

/l^-^' Over rides 

r% II ClassWizard generated virtual function overrides 
1 1 { {AFX_VIRTUAL (FileBrowser) 
protected: 

'^l virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
C] //} }afx_virtual 

I'T"^' Implementation 
protected : 

// Generated message map functions 
//{ {AFX_MSG( FileBrowser) 
virtual BOOL Onini tDialog () ; 

afx__msg void OnDblclkList (NMHDR* pNMHDR, LRESULT* pResult); 
afx__msg void OnSe 1 changeFi leBrowseCombo ( ) ; 

afx_msg void OnColumncl ickLi st (NMHDR* pNMHDR, LRESULT* pResult); 

afx^msg void OnButtonFtpGet ( ) ; 

afx_msg void OnButtonFtpPut () ; 

afx__msg void OnLocRef resh ( } ; 

afx_msg void OnFtpRef resh ( ) ; 

af x_msg void OnGoFtp ( ) ; 

afx_msg void OnLocalhost ShowDICOMonly () ; 

afx_msg void OnUpdateLocalhost ShowDICOMonly (CCmdUI * pCmdUI); 
afx_msg void OnRemot ehos tFi 1 terD ICOMf i le s ( ) ; 

afx_msg void OnUpdateRemotehostFilterDICOMf iles (CCmdUI* pCmdUI) ; 
afx_msg void OnRemotehostShowDICOMonly () ; 

afx_msg void OnUpdateRemotehost ShowDICOMonly ( CCmdUI * pCmdUI) ; 
afx_msg void OnLocalhostDelete ( ) ; 
afx_msg void OnRemotehostDelete () ; 
afx_msg void OnLocalhos tRename { ) ; 
af x_Tnsg void OnRemotehostRename { ) ; 

afx_msg void OnRc 1 i ckLi st { NMHDR* pMMHDR, LRESULT* pResult); 
afx__msg void OnLocalhos tCreateMewDirec tory () ; 
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afx msg void OnRemotehostCreateNewDirectory ( ) ; 
afx_Tnsg void OnRemotehostOpen ( ) ; 
afx_msg void OnLocalhostOpen ( ) ; 

afx_msg void OnUpdateLocalhostOpen ( CCmdUI * pCmdUI) ; 
afx_msg void OnUpdateRemotehostOpen (CCmdUI * pCmdUI); 
//} }AFX_MSG 

afx_Tnsg LRESULT OnKi ckl die ( WPARAM , LPARAM) ; 
DECLARE_MESSAGE_MAP ( ) 
private : 

void OpenFile_or_Directory (bool local, int item) ; 
bool CreateNewDirectory (CListCtrl &myList, bool is_local); 
bool RenameFile_or_Directory (CListCtrl& myList, bool is_local); 
bool DeleteFile_or_Directory (CListCtrl& myList, bool is_local); 
bool m_DCMonly_FTP; 

bool FileTransf er (CString ftp_name, CString loc_name, bool to_local, mt size=-l) ; 

int FindName (CString f name , CListCtrl& myList); 

void DICOM_Filter (CListCtrl& myList, bool ftp); 

bool resetFTP ( ) ; 

CString m_ParentDirectory_FTP; 

void deleteFTP ( ) ; 

bool resetFTP (CString host, CString logon, CString pwd) ; 
bool m_FilterFTP; 
bool m_DCMonly_loc ; 
CString m_INpassv7ord ; 
CString m_INlogon; 

CFtpConnect ion* m_pFTPConnect ion ; 
CInternetSession m_InSession; 

void OpenedFilesListRemove (CString fullname) ; 
r1 bool OpenedFilesListFind (CString fullname); 
Zi void OpenedFilesListAdd(CString fullname) ; 

CMap<CString, LPCSTR, int , int&> m_Opened; 
U-^ CString m_TempFile; 
iij CString m_ParentDirectory ; 

T:; void Set I temlmageState ( int nitem, int state, CListCtrl& myList); 

int GetltemlmageState (int nitem, CListCtrl& myList); 
^3 CImageList m_ImageList; 

dl void SortByColumn ( int col, CListCtrl& myList); 

n\ int FindFiles (CListCtrlSc myList, bool ftp, CString directory^ " " ) ; 
int GetSelectedPosit ion (bool local) ; 

k/i {afx_insert_location} } 

/g^: Microsoft Visual C++ will insert additional declarations immediately before the previo- 
fiidif // Idef ined(AFX_FILEBROWSER_H_B5F74D80_CC60_llD2_9614^00105A21774F___INCLUDED_) 
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f ilter , Format (" %s %s='%s' and, f Name , fValue) ; 

) 

m_strFilter += filter; 

} 

void ODBCTableSet : : AndFilter (CString f Name , DateTimeSegment &dValue, 

const BYTE dFormat) 

{ 

CString filter ( " " ) ; 

CString and = (m_strFilter ? : " AND"); 

if (dFormat==DateTime : :DateFormat) // Date 

{ 

int nStart = dValue . Get Start (). GetNumeri cDate () ; 
int nEnd = dValue . GetEnd ( ) . GetNumericDate ( ) ; 

if (nStart==nEnd) // exact date 

{ 

if (nStart<0) returns- 
filter . Format (" %s %s=%d and, f Name , nStart) ; 
m_strFilter += filter,- 
return; 

} 

// We have interval 
if(nStart<0) nStart=0; 
if (nEnd<0) 

{ 

filter. Format (" %s %s>=%d ", and, fName, nStart); 

} 

el se 

a { 

,^-:.v f liter . Format (" %s %s BETWEEN %d AND %d and, fName, 

nStart, nEnd); 

y'i } 

yjj m_str Filter += filter ; 

~i return; 

} 

else if (dFormat==DateTime : : TimeForraat ) // Time 

f^ii double nStart = dValue . GetStart ( ) . GetNumericTime [ ) ; 

double nEnd = dValue . Ge tEnd ( ) . GetNumer icTime { ) ; 

if (nStart = = nEnd) // exact date 

'Z'l if(nStart<0) return; 

HJ f liter. Format ("%s %s=:%f and, fName, nStart); 

m_str Filter += filter; 
f'-^ii return; 



//We have interval 
if(nStart<0) nStart=0; 
if (nEnd<0) 

( 

filter. Format (" %s %s>=%f ", and, fName, nStart); 

} 

else 

( 

filter. Format ( "%s %s BETWEEN %f AND %f and, fName, 

nStart , nEnd) ; 

} 

m_strFilter += filter; 
return; 



return; 



* Add a record to the database, if it did not exist, 

* or update record empty fields, if the record already existed 

bool ODBCTableSet : :AddOrUpdate (DICOMRecord &dr) 
{ 
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TRY 
{ 

if (IsOpenO ) Close () ; 

if ( 10pen(CRecordset : :dynaset, (LPCSTR) GetDef aultQuery (dr) ) ) return false 
if ( ! CanUpdate ( ) ) { Close (); return false; } 

if(IsEOF()) // need to insert new record 

{ 

AddNew ( ) ; 

if { ! SetFromDICOMRecord (dr) ) { Close(); return false; } 
if ( 'Update [) ) { Close (); return false; } 

else // need to update empty fields in existing record 

{ 

Edit ( ) ; 

UpdateFromDICOMRecord (dr) ; 
Update 0 ; 

} 

Close { ) ; 
return true; 

} 

CATCH (CExcept ion, e) 
{ 

#ifdef _DEBUG 
e->ReportError ( ) ; 
#endif 

return false; 

} 

END_CATCH; 
return false; 

} 

*01 Write data into DICOMObj act via DICOMRecord 

vofd ODBCTableSet : : WritelntoDICOMObject (DICOMObject &dob, DICOMObject *dob_mask) 

^5 DICOMRecord dr ; 

flji Writeint oDICOMRecord (dr ) ; 

dr . WritelntoDICOMObj ect (dob , dob_mask) ; 

m//////////////////////////////// ////////////////////////////////////////// 

/^^ ODBCPatientSet 

/ft////////////////////////////////////////////////////////////////////////// 
ill LEMENT_DYNAMIC (ODBCPatientSet , CRecordset) 

ODBCPatientSet: : ODBCPat lent Set ( CDatabase * pdb) 

: ODBCTableSet ( theApp . app__DataBase . GetCDatabasePtr ( ) ) 

{ 

// { {AFX_FIELD__INIT (ODBCPatientSet) 

ClearSet ( ) ; 

m_nFields = 4; 

// } }AFX_FIELD_IMIT 

} 

* Defining SQL parameters 

■k 

CString ODBCPatientSet : :GetDef aultQuery (DICOMRecord& dr) 

{ 

CString query; 

query . Format ( "SELECT * FROM [Patient] WHERE Pat rent ID= ' %s , 

: : Trim (dr. Get Pat lent ID () ) ) ; 

return query; 

} 

CString ODBCPatientSet: : GetDef aul tSQL ( ) 
{ 

return _T ( " [Patient] " ) ; 
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...void ODBCPatientSet :: SetFindFilter (DICOMRecord &dr) 
{ 

m_strFilter = " " ; 

// Add whatever is known from DICOMRecord. If the primary key 
//is known for a table, do not use other table fields 
AndFilter ("PatientID" , dr . GetPatient ID ( ) ) ; 
if ( I : : IsUniqueString(dr.GetPatientID() ) ) 

AndFilter ( " PatientName" , dr . GetPat lentName ( ) ) ; 

AndFilter ( " PBirthDate" , dr . Get PBirthDate ( ) , DateTime; : DateForniat ) 
AndFilter ( "PBirthTime" , dr . GetPB irthTime ( ) , DateTime: :TimeFormat) 




void ODBCPatientSet : :DoFieldExchange (CFieldExchange* pFX) 
{ 

// { {AFX_FIELD_MAP (ODBCPatientSet) 

pFX->Set FieldType (CFieldExchange : : outputColumn) ; 
RFX_Text (pFX, _T ( " [PatientID] ") , m_PatientID) ; 
RFX_Text (pFX, __T ( " [PatientName] ") , m_Pat ientName ) ; 
RFX_Double (pFX, _T ( " [PBirthTime] ") , m_PBirthTime) ; 
RFX_Long (pFX, _T ( " [PBirthDate] ") , m_PBirthDate ) ; 
//}}AFX_FIELD_MAP 

} 



^5^1 ^ ^ ^ ^ ^ ^ ^ *********** ********************** *********** ^ ******** ^ * 
* 

*J;f Clear patient recordset data 
*y H 

******************************************************************/ 
void ODBCPatientSet : :ClearSet () 

a 

m_PatientID = _T ( " " ) ; m_Pat ientName = _T ( " " ) ; 
J]i m_PBirthTime = -1,0; m_PBirthDate = -1; 



****Tlr**************** 



******it************************************** 



*i;; Exchanging data with DICOMRecord 

^ y= 

***************************************************************^'^**/ 

\^d ODBCPatientSet : :UpdateFromDICOMRecord (DICOMRecord &dr) 
char* s; 

if (m_PatientName== " " ) 

s=dr. GetPat ientName 0 ; 

if ( ! : : IsEmptyString(s) ) m_Pat ientName = ::Trim(s); 
f (m_PBirthDate <= 0) 

int nDate = dr . Get PBirthDate (). GetStart (). GetNumericDate {) ; 
if(nDate > 0) m_PBirthDate = nDate; 

f (m_PBirthTime < 0) 

double dTime = dr . GetPBirthDate (). Get Start (). GetNumeri cTime () ; 
if(dTime >= 0) m_PB ir thTime=dTime ; 

bool ODBCPatientSet : :SetFromDICOMRecord (DICOMRecord &dr) 

^ if ( ! : : IsUniqueString (dr .GetPatientID 0 ) ) return false; 
ClearSet ( ) ; 

UpdateFromDICOMRecord (dr) ; 

m_PatientID = :: Trim ( dr . Get Pat lent ID ()) ; 
return true; 



>id ODBCPatientSet : :WriteIntoDICOMRecord(DICOMRecord &dr) 
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dr.SetRecord( (char*) (LPCSTR) m_Pat ient ID , (char*) ( LPCSTR) m_Pat ientName . 
Tn_PBirthDate, m_PBirthTime , NULL, 
NULL, MULL, 
NULL ,-1,-1.0, 
NULL, NULL, 
NULL, NULL, 
NULL, NULL) ; 

//////////////////////////////////////////////////////////^//^^/^^//^//^^^^^^ 
// 

// ODBCStudySet 

///////////////////////////////////////////////////////////////////////////// 
IMPLEMENT_D^NAMIC (ODBCStudySet , CRecordset) 

ODBCStudySet : : ODBCStudySet (CDatabase* pdb) 

: ODBCTableSet ( theApp . app_DataBase . GetCDatabasePtr ( ) ) 

^ // { {AFX_FIELD_INIT (ODBCStudySet) 
ClearSet () ; 
m_nFields = Ij 
//} }AFX_FIELD_INIT 

void ODBCStudySet :: ClearSet ( ) 

^ m_PatientID = _T ( " " ) ; m_Study InstUID = _T ( " " ) ; 

m StudylD = _T ( " " ) ; m_Acces sionNumber = _T ( ; 

TU^StudyTime = -1,0; m_StudyDate = -1; 

0 m_StudyImagesNum = _T ( " " ) ; 

^14^^^^***^************^* ********************* ************ 

'^13 Defining SQL parameters 
*=^ i; 

^^J^^ ^ ^ ******************************************** *'^******^**/ 
cWfcring ODBCStudySet :: GetDef aul t Query (DICOMRecord &dr) 

ni; CString query; 

query . Format ( "SELECT * FROM [Study] WHERE S tudy InstUID= ' % s ' " , 
" : :Trim(dr.GetStudyInstUID() ) ) ; 

return query; 

fit 

dString ODBCStudySet: : GetDef aultSQL ( ) 
PJ 

Cl return _T ( " [Study] ") ; 
Fli 

-m'id ODBCStudySet : :SetFindFilter (DICOMRecord &dr) 
{ 

m_strFilter = ""; 

// Add whatever is known from DICOMRecord. If the primary key 
//is known for a table, do not use other table fields 
AndFilter ( "StudylnstUID" , dr . Get Study InstUID ( ) ) ; 
if ( ! : : IsUniqueString(dr.GetStudyInstUID() ) ) 

AndFilter ( "PatientID" , dr . GetPat ient ID () ) ; 

AndFilter ( "StudylD" , dr . Get StudylD () ) ; 

AndFilter (" StudylmagesNum" , dr . Get Study ImagesNum ( ) ) ; 

AndFilter ( "AccessionNumber" , dr . Get Acces sionNumber ( ) ) ; 

AndFilter ( "StudyDate" , dr . GetStudyDate ( ) , DateTime : :DateFormat) ; 

AndFilter { "StudyTime" , dr . Get StudyTime ( ) , DateTime: :TimeFormat) ; 

} 

void ODBCStudySet : :DoFieldExchange (CFieldExchange* pFX) 

^ // { {aFX_FIELD_MAP (ODBCStudySet) 

pFX->SetFieldType (CFieldExchange : : outputColumn) ; 
RFX_Text (pFX, _T ( " [Pat ient ID] " ) , m_PatientID) ; 
RFX_Text (pFX, _T ( " [StudylnstUID] ") , m_Study InstUID) ; 
RFX^Text (pFX, _T ( " [StudylD] ") , m_StudyID) ; 

RFX_Text (pFX, _T ( " [AccessionNumber] " ) , m_Acces sionNumber ) ; 
RFX~Double (pFX, _T ( " [StudyTime] ") , m_StudyTime) ; 
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RFX_Long (pFX, _T ( " [StudyDate j " ) , m_StudyDate) ; 

RFX_Text (pFX, _T ( " [Study Image sNum] ") , Tn_Study Image sNum) ; 

/ / } } AFX_F I ELD_MAP 

) 

* Exchanging data with DICOMRecord 

void ODBCStudySet : :UpdateFromDICOMRecord (DICOMRecord S:dr) 

{ 

char* s; 

Lf (m_Patient ID== " " ) 

s=dr.GetPatientID() ; 

if ( 1 : : IsEmptyString ( s) ) m_PatientID = ::Trim(s); 
f (m_StudyID==" ") 

s = dr .GetStudylDO ; 

if ( 1 :: IsEmptyString ( s) ) m_StudyID = ::Trim(s); 
f (m_AccessionNumber== " " ) 

s = dr . GetAccessionNumber ( ) ; 

if ( 1 :: IsEmptyString ( s) ) m_AccessionNumber = ::Trim(s); 
f (m_StudyIinagesNum== " " ) 

s = dr . GetStudyImagesNum( ) ; 

if ( ! ; : I sEmptyString ( s) ) m_Study ImagesMum = ::Trim(s); 

f (m_StudyDate <= 0) 

int nDate = dr . Get StudyDate ( ) . GetStart ( ) . GetNumer icDate ( } ; 
if(nDate > 0) m_StudyDate = nDate; 

f (m_StudyTime < 0) 

double dTime = dr , Ge tStudyTime ( ) . Get S t art ( ) . GetMumericTime ( ] ; 
if(dTime >= 0) m_StudyTime=dTime ; 

i|?)bl ODBCStudySet :: SetFromDICOMRecord (DICOMRecord &dr) 

if ( ! : : IsUniqueString (dr .GetStudylnstUID ( ) ) ) return false; 
y ClearSet (] ; 

Cl UpdateFromDICOMRecord (dr ) ; 

m_StudyInstUID = :: Trim ( dr . GetStudylnstUID ()) ; 
return true; 

} 

void ODBCStudySet : .-WritelntoDICOMRecord (DICOMRecord &dr) 

{ 

dr .SetRecord( (char*) { LPCSTR) m_Pat lent ID , NULL , 
-1, -1.0, (char*) ( LPCSTR) m_Study InstUID , 

(char*) (LPCSTR) m_StudyID , (char*) (LPCSTR) m_AccessionNumber , 
( char * ) ( LPCSTR) m_Study Image sNum, m_StudyDate , m_StudyTirae , 

NULL, NULL, 

NULL , NULL , 

NULL, NULL) ; 

} 



1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ( 1 1 ( 1 1 ( 1 1 1 n 
II 

// ODBCSeriesSet 
// 

1 1 / 1 1 1 n n I n 1 1 1 / 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

IMPLEMENTED YNAM I C (ODBCSeriesSet , CRecordset) 

ODBCSeriesSet: : ODBCSeriesSet ( CDatabase* pdb) 

: ODBCTableSet ( theApp . app_DataBase , Ge tCDatabasePtr ( ) ) 

{ 

// { {AFX_FIELD_INIT (ODBCSeriesSet) 
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ClearSet ( ) ; 

m_nFields = 4; 

//} }AFX_FIELD_INIT 

void ODBCSeriesSet :: ClearSet ( ) 

^ m_StudyInstUID = _T ( " " ) ; m_Ser ies InstUID = _T { " " ) ; 

m_Modality = _T { " " ) ; m_SeriesNum = JT{''^^); 

******************* 

* 

* Defining SQL parameters 

!******************************************************************''*/ 

CString ODBCSeriesSet : :GetDef aultQuery (DICOMRecord &dr) 
{ 

CString query; 

query, Format ("SELECT * FROM [Series] WHERE Series InstUID= ' %s ' '\ 

: :Trim{dr .GetSeriesInstUID ( ) ) ) ; 

return query; 

CString ODBCSeriesSet: : GetDef ault SQL ( ) 
{ 

return _T (" [Series] ") ; 

} 

void ODBCSeriesSet: :SetFindFilter (DICOMRecord S=dr) 

kj? m_strFilter = ""; 

S // Add whatever is known from DICOMRecord. If the primary key 
■''L' // is known for a table^ do not use other table fields 
S AndFilter ( "SeriesInstUID" , dr , GetSer ies InstUID ( ) ) ; 
Si if ( ! : :IsUniqueString(dr.GetSeriesInstUID() ) ) 

'^f ^ AndFilter ("StudylnstUID" , dr , GetStudylnstUID ( ) ) ; 

AndFilter ( "Modality" , dr . GetModality ( ) ) ; 
P^' AndFilter { "SeriesNum" , dr . Get Ser iesNum ( ) ) ; 

viild ODBCSeriesSet : :DoFieldExchange (CFieldExchange* pFX) 

l^"- 1 1 { { AFX_F I ELD_MAP (ODBCSeriesSet) 

pFX->SetFieldType [CFieldExchange : : outputColumn) ; 
El RFX_Text (pFX, __T ( " [StudylnstUID] " ) , m__StudyInstUID) ; 
pi RFX_Text (pFX, _T ( " [Series InstUID] ") , m_Ser ies Ins tUID ) ; 

RFX_Text (pFX, _T (" [Modal i ty] ") , m_Modality) ; 

RFX_Text (pFX, _T ( " [ Ser ie sNum] " ) ; m_SeriesNum) ; 

// } }AFX_FIELD_MAP 

^^^^^^^^*^*^********************************************************** 
* 

* Exchanging data with DICOMRecord 
* 

^^^^^^^^**^************************************************'^**********/ 
void ODBCSeriesSet : :UpdateFromDICOMRecord (DICOMRecord &dr) 

{ 

char* s; 

//static UINT alt=0; 
if (m_StudyInstUID==" " ) 

{ 

s = dr ,GetStudyInstUID() ; 

if { I : : IsEmptyString ( s) ) m__StudyIns tUID = ::Trim(s); 

} 

/* 

else 

{ 

// Consistency check 

CString prkey = Trim ( dr . Get Series InstUID ()) ; 
if ( m_SeriesInstUID prkey && 

m_StudyInstUID != dr . GetStudy InstUID () ) 
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al t++ ; 

m_SeriesInstUID. Format ("%s.%d'\ pr key, alt) ; 

sprint f (dr .GetSeriesInstUID 0 , " %s " , m_Ser iesInstUID . Lef t (64) ) ; 

} 

} 

*/ 

if (m__ModalitY= = " ") 

{ 

s = dr .GetModality ( ) ; 

if ( ! : : IsEmptyString (s) ) m__Modality = ::Trim(s); 

} 

if (m_SeriesNum^= " " ) 

{ 

s = dr . GetSeriesNum ( ) ; 

if (!:: IsEmptyString (s) ) m_SeriesNum = ::Trim(s); 

} 

bool ODBCSeriesSet : :SetFromDICOMRecord(DICOMRecord &dr) 

^ if ( I : : IsUniqueString (dr .GetSeriesInstUIDO ) ) return false; 
ClearSet ( ) ; 

UpdateFromDICOMRecord (dr) ; 

m_SeriesInstUID = : : Tr im (dr . GetSer iesInstUID ( ) ) ; 
return true; 

void ODBCSeriesSet : :WriteIntoDICOMRecord(DICOMRecord &dr) 
{ 

dr . SetRecord (NULL , NULL , 

-1, -1.0, (char*) ( LPCSTR) m_Study InstUID , 
Cl NULL, NULL, 

iil NULL, -1 , -1 . 0 , 

m (char*) (LPCSTR) m_SeriesInstUID , (char*) (LPCSTR) m_Modality , 

^! (char*) (LPCSTR) m_SeriesNum, NULL, 

m NULL, NULL) ; 

////////////////////// /////////////////////^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 

/t? 

ODBCImageSet 

ff////////////////// ///////////////////// //////////////^^/^/^/^//////^/^/^^// 
lkPLEMENT_DYNAMIC (ODBCImageSet , CRecordset ) 

cSicimageSet : lODBCImageSet (CDatabase* pdb) 
m : ODBCTableSet ( theApp . app_DataBase . GetCDatabasePtr ( ) ) 

// { {AFX_FIELD_INIT (ODBCImageSet) 
G ClearSet 0; 
f% m_nFields = 4 ; 

// } }afx_field_init 

} 

void ODBCImageSet ClearSet ( ) 

^ m_SeriesInstUID = _T ( " " ) ; m_SOPInstUID = _T ( "'M ; 

m_ImageNum = _T ( " " ) ; m_Filename = _T ( " " ) ; 

j^^^^^*^*^******^***************************************************** 
* Defining SQL parameters 

******************************************************************'^**/ 
CString ODBCImageSet :: GetDefaultQuery (DICOMRecord &dr) 

{ 

CString query; 

query. Format ( "SELECT * FROM [Image] WHERE SOPIns tUID= ' % s ' " , 

: :Trim(dr.GetSOPInstUID() ) ) ; 

return query; 

CString ODBCImageSet: : GetDef aul tSQL ( ) 
{ 

return _T ( " [Image] ") ; 

ioid ODBCImageSet : iSetFindFilter (DICOMRecord &dr) 
{ 

m strFilter = " " ; 
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// Add whatever is known from DICOMRecord. If the primary key 
// is known for a table, do not use other table fields 
AndFilter ("SOPInstUID" , dr . Ge tSOPInstUID ( ) ) ; 
if ( ! : :IsUniqueString(dr.GetSOPInstUID() ) ) 
{ 

AndFilter ( "SeriesInstUID" , dr . Get SeriesInstUID ( ) ) ; 
AndFilter { " ImageNum" , dr . Get ImageNum ( ) ) ; 
AndFilter ( "Filename" , dr . GetFileName ( ) ) ; 

} 

} 

void ODBCImageSet : : DoFieldExchange (CFieldExchange* pFX) 

! 

/ / ( { AFX_F I ELD_MAP ( ODBC Image S e t ) 

pFX->SetFieldType (CFieldExchange : : outputColumn) ; 
RFX_Text (pFX, _T (" [SeriesInstUID] ") . m_SeriesInstUID) ; 
RFX_Text {pFX, __T ( " [SOPInstUID] "] , m_SOPInstUID) ; 
RFX_Text (pFX, _T ( " [InaageNum] " ) , m^ImageMum) ; 
RFX_Text (pFX, _T ( " [Fi lename] " ) , m^Filename) ; 
//} }AFX_FIELD_MAP 

} 

* Exchanging data with DICOMRecord 

void ODBCImageSet :: UpdateFromDICOMRecord (DICOMRecord &dr) 

char* s ; 
dj if (Tn__SeriesInstUID==" " ) 

"i;;^ s = dr . GetSeriesInstUID ( ) ; 

if ( 1 : : IsEmptyString ( s) ) m_SeriesInstUID = ::Trim(s); 

.f-:; if (m_ImageMum== " " ) 

^=1 s = dr .GetImageN-um( ) ; 

p;i if ( 1 :: IsEmptyString ( s) ) m_ImageNum = ::Trim(s); 

1" } 

if (m_FilenaTne== " " ) 
O s = dr . GetFileName () ; 

fll if ( 1 :: IsEmptyString (s) ) m_Filename = ::Trim(s); 

y ' 

W3.01 ODBCImageSet :: SetFromDICOMRecord (DICOMRecord &dr) 

E 

if ( ! : : I sUniqueString (dr . GetSOPInstUID ( ) ) ) return false; 
ClearSet () ; 

UpdateFromDICOMRecord (dr) ; 

m_SOPInstUID = :: Trim ( dr . Get SOP Inst UID ()) ; 
return true; 

) 

void ODBCImageSet : :WriteIntoDICOMRecord (DICOMRecord &dr) 

( 

dr . Se tRecord (NULL , NULL , 
-1, -1.0, NULL, 
NULL, NULL, 
NULL, -1,-1.0, 

(char*) (LPCSTR)m_SeriesInstUID,NULL, 
NULL, (char'^) (LPCSTR) m_SOPInstUID , 

(char*^) (LPCSTR) m_ImageMum, (char*) (LPCSTR) m_Filename) ; 



///////////////////////////////////////////////////////////////////////////// 
// CDBC4Set 

IMPLEMENT_DYNAMIC (0DBC4Set , CRecordset) 

0DBC4Set : :ODBC4Set (CDatabase* pdb ) 

: ODBCTableSet ( theApp . app_DataBase . GetCDatabasePtr ( ) ) 

{ 
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/ / { { AFX_F I ELD_ I N I T ( ODB C4 Set) 
ClearSet ( ) ; 
m_nFields = 19; 
//} }AFX_FIELD_INIT 

void 0DBC4Set : :ClearSet 0 



/MM' 



m^SeriesInstUID = _T ( " " ) ; m_SOPInstUID = _T i 

m ImageNum = _T ( " " ) ; m_Filename = _T ( " " ) ; 

mlPatientID = _T ( " " ) ; m_Pat ientName = _T ( " " ) ; 

m_PBirthTiTne = -1-0; m_PBirthDate - -1; 

m_StudyInstUID - _T ( " " ) ; m_SeriesInstUID2 = _T ( " " ) ; 

m Modality = _T ( " " ) ; m_SeriesNum = _T ( " " ) ; 

m PatientID2 - _T ( " " ) ; m_Study InstUID2 = _T ( " " ) ; 

m^StudylD = T(""); m_AccessionNumber = _T ( " " ) ; 

m^StudyTime - -1-0; m_StudyDate = -1; 
m_StudyImagesNuTn = _T { " " ) ; 

} 

est ring 0DBC4Set : : GetDef ault SQL ( ) 

^ return _T ( " [Image] , [Patient] , [Series] , [Study] "] j 

] 

•k 

* Redefines pure virtual from the base class. Unused 
cSlring 0DBC4Set : :GetDef aultQuery (DICOMRecord &dr) 

hn ■ 

m strFilter = " [Patient] . [PatientID] - [Study] . [PatientID] AND " 
- M [Study] . [StudylnstUID] = [Series] . [StudylnstUID] AND 

" [Series] . [Series InstUID] = [Image] . [Ser ie sInstUID] " ; 
return m_strFilter; 

^fyid 0DBC4Set : :DoFieldExchange (CFieldExchange* pFX) 
^ // { {AFX_FIELD_MAP (0DBC4Set) 

H"' pFX->SetFieldType (CFieldExchange : : outputColumn) ; 

O RFX_Text (pFX, _T ("[ Image] .[ Ser ies InstUID] ") , m_SeriesInstUID) ; 
m RFX_Text (pFX, _T ( " [SOPInstUID] ") , m_SOPInstUID) ; 

RFX Text(pFX, _T ("[ ImageNum] ") / m_ImageNum) ; 
'^i RFX~Text (pFX, _T (" [Filename] ") ^ m_Filename) ; 
O RFX_Text (pFX, _T ( " [Pat ient ] , [ Pat ient ID] " ) . m_PatientID) ; 
'^■i RFX Text(pFX, _T ( " [ Pat ientName] " ) . m_PatientName) ; 

RFx"Double (pFX, _T ( » [ PB ir thTime] " ) . m_PBirthTime) ; 

RFX Long (pFX, _T ( " [ PBirthDate] " ) . m_PBirthDate) ; 

RFx"Text (pFX, __T ( " [Series] . [StudylnstUID] ") . m_Study Ins tUID ) ; 

RFX^Text (pFX, _T ( " [Series] . [ Ser ies Ins tUID] ") . m_SeriesInstUID2 ) ; 

RFX~Text (pFX, _T (" [Modality] ") , m_Modality) ; 

RFX_Text (pFX, _T ( " [ Ser iesNum] " ) . m__SeriesNum) ; 

RFX~Text (pFX, _T ("[ Study] -[ Pat lent ID] ") . m_Pat lent ID2 ) ; 

RFX^Text (pFX, _T ( " [Study] . [StudylnstUID] ") , m_StudyInstUID2 ) ; 

RFX Text(pFX, _T ("[ Study ID] ") , m_StudyID) ; 

RFX_Text (pFX, _T ( " [Acce ss ionNumber ] " ) , m_AccessionNumber) ; 
RFx"Double(pFX, _T ( " [ S tudyTime ] " ) , m_StudyTime) ; 
RFX_Long (pFX, _T ( " [ StudyDate] " ) , m_StudyDate) ; 
RFXText(pFX, _T ("[ Study ImagesNum] ") . m_StudyImagesNum) ; 
/ / }yAFX_FIELD_MAP 

} 

★ Set complete WHERE find filter 

void 0DBC4Set: :SetFindFilter (DICOMRecord &dr) 
// Relational constraint 

m StrFilter = " [Patient] . [ Pat lent ID] = [ Study] . [PatientID] AND 

" [Study] . [StudylnstUID] = [Series] . [StudylnstUID] AND 
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" [Series] . [SeriesInstUID] = [ Image] . [Series InstUID] 

// Add whatever is known from DICOMRecord. If the primary key 
// is known for a table, do not use other table fields 
AndFilter (" [Patient] . [Patient ID] dr . GetPat ient ID { ) ) ; 
if ( 1 : :IsUniqueString(dr.GetPatientID() ) ) 
{ 

AndFilter ( " Pat ientName " , dr . Get Pat ientName () ) / 

AndFilter ( " PBirthDate" , dr . GetPBirthDate ( ) , DateTime : :DateFormat) ; 
AndFilter (" PBirthTime" , dr . GetPBirthTime ( ) , DateTime :: TimeFormat ) ; 

} 

AndFilter (" [Study] . [Study InstUID] dr . Get Studying tUID ( ) ) ; 
if ( 1 : : I sUniqueString (dr. Get Study InstUID {) ) ) 

{ 

AndFi 1 ter ( "Study ID", dr. Get Study ID () ) ; 

AndFilter ( " Study Image sNum" , dr . Get Study Image sNum { ) ) ; 

AndFilter ( ''AccessionNumber " , dr . Ge t Ac cessionN umber ( ) ) ; 

AndFilter ( " StudyDate " , dr . GetStudyDate { ) , DateTime : iDateFormat ) ; 

AndFilter (" StudyTime" , dr . Get StudyTime ( ) , DateTime :: TimeFormat ) ; 

} 

AndFilter (" [Series] . [SeriesInstUID] " , dr . Get Series InstUID ( ) ) ; 
if ( ! : : I SUniqueString (dr . Get SeriesInstUID ( ) ) ) 

{ 

AndFilter ( "Modality" , dr . Ge tModal ity () ) ; 
AndFilter ( " SeriesNum" , dr . GetSeriesNum ( ) ) ; 

} 

Cl AndFilter{"SOPInstUID",dr.GetSOPInstUID() ) ; 
dj if ( ! : : I SUniqueString (dr . Get SOPInstUID ( ) ) ) 

"f.," AndFilter (" ImageNum" , dr . Get ImageNum ( ) } ; 

rl-l AndFilter (" Filename" , dr . GetFileName ( ) ) ; 

%j } 

* Put data into DICOM record 
'f 

^id GDBC4Set : iWritelntoDICOMRecord (DICOMRecord &dr) 

U], dr . SetRecord( (char*) (LPCSTR) m_PatientID, (char*) (LPCSTR) m_Pat ientWame , 

m_PBirthDate , m_PBirthTime, (char*) (LPCSTR) m_StudyInstUID, 
O (char*) (LPCSTR)m_StudyID, (char*) (LPCSTR) m_AccessionNumber , 

fj (char*) (LPCSTR) m_StudyImagesNum,m_StudyDate ,m_StudyTime, 

(char*) (LPCSTR) m_SeriesInstUID, (char*) (LPCSTR) m_Modality , 
(char*) (LPCSTR)m_SeriesNum, (char*) ( LPCSTR) m_SOPInstUID , 
(char*) (LPCSTR) m_ImageNum, (char*) (LPCSTR) m_Filename) ; 

} 

* Make sure that several different records on one level 

* cannot share records on lower level 
*■ 

bool 0DBC4Set : rHasAliasRecords (DICOMRecord &dr) 
{ 



Trim(dr -GetPatientlD () ) ; 
Trim(dr.GetStudyInstUID() ) ; 
Trim (dr . GetSeriesInstUID ( ) ) ^ 
Trim(dr. Get SOPInstUID 0 ) ; 



CString p= : 
CString st= 
CString sr= 
CString im= : 
CString cons; 
cons . Format ( 

'* AND ( ( [Patient] . [PatientID] <>' %s ' AMD [ Study] .[ St udylnstUID] = ' %s ' ) OR 
"( [Study] . [StudylnstUID] <>' %s ' AND [Series] . [SeriesInstUID] = ^ %s ' ) OR " 
"( [Series] . [SeriesInstUID] <>' %s ' AND [ Image] .[ SOPInstUID] ='% s ' ) )", p, st 
st , sr , sr , im) ; 
m_strFilter = " [Patient] . [PatientID] = [Study] . [PatientID] AND " 

" [Study] . [StudylnstUID] = [Series] . [Study InstUID] AMD " 
" [Series] . [SeriesInstUID] = [Image] . [SeriesInstUID] " ; 
m strFilter += cons; 
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bool aliased = true; 

TRY 

{ 

OpenO ; 

aliased = ( I sEOF ( ) = =FALSE) ; 
Close 0 ; 

} 

CATCH (CException, e) 
{ 

#ifdef DEBUG 

e- >ReportError ( ) ; 

#endif 

} 

END_CATCH; 
return aliased; 

} 
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#if !def ined(AFX__QUERYRETRIEVE_H_INCLUDED_) 
#def ine AFX_QUERYRETRIEVE_H_INCLUDED_ 

#if _MSC__VER > 1000 
#pragma once 

#endif // _MSC_VER > 100 0 

// QueryRetrieve . h : header file 

// 

#include " dqrcontrol - h" // Added by ClassView 
^include . . \LogFile . h" // Added by ClassView 

///////////////////////////////////////////////////////////////////////////// 
// QueryRetrieve dialog 

class QueryRetrieve : public CDialog 

{ 

// Construction 
public : 

void Swit chAppearance ( ) ; 

void DoModeless (CWnd* pParent=NULL) ; 

void OnBeginDrag (CListCtrl* pList, NMHDR* pNMHDR) ; 

bool Init ializeQueryRetrieve (LogFile* ptrClientLog , 

LogFile* pt rServerLog , DICOMDatabase* ptrDB) ; 
QueryRetrieve (CWnd'^ pParent = NULL); // constructor 

-QueryRetrieve () ; // destructor 

// Dialog Data 

//{ {afX_DATA (QueryRetrieve) 

enum { IDD = IDD_DIALOG_QUERY_RETRIEVE }; 

//}}afx_data 

/J::, Overrides 

J"'"! // ClassWizard generated virtual function overrides 
""4 / / { { AFX_V I RTUAL ( Que ryRe t r i eve ) 
protected: 

.i.; virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
^ II } }AFX_VIRTUAL 

4/ Implementation 
grjotected : 

// Generated message map functions 
y //{ {AFXJVISG (QueryRetrieve) 
nj afx__msg void OnQueryRetrieve_AESetup ( ) ; 

virtual BOOL Onini tDialog ( ) ; 
^.r afx_msg void OnParametersPr ior ityHigh ( ) ; 

afx_msg void OnParametersPriorityLow ( ) ; 
O afx_msg void OnParametersPr ior ityNormal () ; 

afx_msg void OnUpdateParametersPriority (CCmdui* pCmdUI ) ; 

afx_msg void OnQueryRetrieveClientLog ( ) ; 

afx_msg void OnQueryRetr ieveServerLog ( ) ; 

afx_msg void OnCloseO; 

virtual void OnOK() ; 

afx_msg void OnUpdateQueryRetrieveClientLog (CCmdUI* pCmdUI); 
afx_msg void OnUpdateQueryRetrieveServerLog (CCmdUI * pCmdUI ) ; 
afx_msg void OnQueryRetrieveClearAllLogs ( ) ; 

afx_msg void OnMenuSelect (UINT nItemID, UINT nFlags, HMENU hSysMenu) ; 
afx_msg void OnLButtonUp (UINT nFlags, CPoint point); 
afx_msg void OnMouseMove (UINT nFlags, CPoint point); 
afx_msg void OnHide () ; 
afx_msg void OnExitO ; 

afx__msg void OnAct ivate (UINT nState, CWnd* pWndOther, BOOL bMinimized) ; 
afx_msg void OnSysCommand (UINT nID, LPARAM IParam) ; 
afx_nisg void OnServi cesShowRemoteTasks ( ) ; 

afx_msg void OnUpdateServicesShowRemoteTasks (CCmdUI* pCmdUI ) ; 
afx__msg void OnServicesTaskSchedul ing () ; 

afx_msg void OnUpdateServicesTaskScheduling (CCmdUI * pCmdUI) ; 
// } }AFX_MSG 
DECLARE_MESSAGE_MAP ( ] 
private : 

bool qr_UpdateMenu ; 

HWND qr_HWND ; 

LogFile *qr_ptrCl ientLog , *gr_ptrServerLog ; 

Appl i cat ionEnt i tyLi s t * qr_AEarray ; 
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DQRControl 
CWnd* 

CImageList * 



qr_DQRCtrlRemote , qr_DQRCtrlLocal ; 
qr_pDragWnd ; 
qr_pDr ag Image ; 



void 
void 
BOOL 

CImageList * 



OnCancel ( ) ; 

UpdateMenu (CMenu* pMenu) ; 

UpdateData( BOOL bSaveAndValidate=TRUE) ; 

CreateDragImageEx(CListCtrl *pList, LPPOINT IpPoint) 



//{ {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 



# endi f / / J de f i ne d ( AFX_QUERyRETR X EVE_H_ I NCLUDED_ ) 
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// QueryRetrieve . cpp : implementation file 
// 

#include "stdafx.h" 
#include " . AResource . h" 
# include " QueryRetrieve . h" 
#include " AEOpt ions_Dialog , h" 

#ifdef _DEBUG 

# define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 



////////////////////////////////////////////////////////^////^^/^^^^//^^^^^^^ 
// QueryRetrieve dialog 

QueryRetrieve :: QueryRetrieve (CWnd* pParent /*=NULL*/) 
CDialog (QueryRetrieve : :IDD, pParent) 

f . ^ 

/ / { {AFX_DATA_INIT (QueryRetrieve) 

//} }AFX_DATA__INIT 

qr_UpdateMenu=f alse ; 

qr_HWND = NULL; 

qr_AEarray = NULL ; 

qr__pD rag Image = NULL; 

qr_pDragWnd = NULL ; 

}0 

C^^feryRetrieve : : -QueryRetrieve ( ) 

ta 

veid QueryRetrieve : :DoDataExchange (CDataExchange* pDX) 

^is? CDialog: : DoDataExchange (pDX) ; 
n J / / ( { AFX_p AT A_MAP ( Que r y Re t r i e ve ) 
/ / } } AFX_DATA_MAP 



fEOIN_MESSAGE_MAP (QueryRetrieve, CDialog) 

/ / { {aFX_MSG_MAP (QueryRetrieve) 
'^^i ON_COMMAND(ID_QUERYRETRIEVE_AESSTUO, OnQueryRet r ieve_AESetup) 
O oN_COMMAND (ID_PARAMSTERS_PRIORITY_HIGH, OnParamet er sPr ior i tyHigh) 
A ON~COMMAND{ID_PARAMETERS_PRIORITY_LOW, OnParame t er sPr ior ityLow) 

ON~COMMAND ( ID_PARAMETERS__PRIORITY_NORMAL , OnParameter sPr ior i tyNormal ) 
ON;IuPDATE_COMMAND_UI ( ID_PARAMETERS_PRIORITY_HIGH, OnUpdateParameter sPr lor i ty ) 
On"cOMMAND ( ID_QUERYRETRIEVE_CLIENTLOG, OnQueryRetrieveCl lent Log ) 
On'cOMI^^AND ( ID_QUERYRETRIEVE_SERVERL0G, OnQueryRetrieveServerLog) 

ON~WM CLOSE 0 , , 

0N~UPDATE C0MMAND_UI(ID_QUERYRETRIEVE_CLIENTL0G, OnUpdateQueryRetrieveClientLog) 
ON"uPDATE~COMMAND_UI ( ID_QUERYRETRIEVE_SERVERL0G, OnUpdateQueryRetrieveServerLog) 
ON~COMMAND (ID_QUERYRETRIEVE_CLEARALLL0GS, OnQueryRet rieveClearAl ILogs ) 
ON~WM_]y[ENUSELECT ( ) 
ON_WM_LBUTTONUP ( ) 
ON_WM_MOUSEMOVE ( ) 
0N_WM_ACTIVATE ( ) 
ON_WM_SYSCOMMAND () 

ON COMMAND (ID SERVI CES_SHOWREMOTETASKS , OnService sShowRemot eTasks ) 

ON~UPDATE_COMMAND_UI(ID_SERVICES_SHOWREMOTETASKS, OnUpdateServi ce sShowRemot eTasks ) 
ON~COMMAND(ID_SERVICES_TASKSCHEDULING, OnServi cesTaskSchedul ing ) 
On"uPDATE COMMAND UI ( ID_PARAMETERS_PRIORITY_LOW , OnUpdateParame t er sPr ion ty ) 
0N~UPDATE~COMMAND UI( ID__PARAMETERS_PRIORI TY_NORMAL , OnUpdat eParamet er sPriori ty ) 
OnIuPDATE^COMMANdIuI (ID_SERVICES_TASKSCHEDULING, OnUpdateServicesTaskSchedulmg) 
//y}AFX_MSG_MAP 
END_MESSAGS_MAP ( ) 

///////////////////////////////////////////////// ///^////^/////////^^^^^^^^^^ 
If QueryRetrieve message handlers 
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* Alter Query/Retrieve modeless dialog 

void QueryRetrieve : :DoModeless (CWnd* pParent) 
{ 

if (GetSaf eHwndO ) 
{ 

ShowWindow(SW_SHOWNORMAL) ; 
return; 

Create ( IDD_DIALOG_QUERY__RETRIEVE , pParent ) ; 
ShowWindow(SW_SHOWWORMAL) ; 
qr_Updat eMenu= t rue ; 

void QueryRetrieve : :OnClose ( ) { OnHideO; } 

void QueryRetrieve: :OnOK() { OnHideO; } 

void QueryRetrieve : lOnCancel ( ) { OnHideO; } 

void QueryRetrieve : lOnHide ( ) 

( 

if(!qr_HWND) return; 
ShowWindow(SW__MINIMIZE) ; 

} 

void QueryRetrieve :: OnExit ( ) 
{ 

if ( !qr_HWND) return; 

CString msgC'Do you want to terminate DICOM Query/Retrieve ?\n"); 

msg += CStringC'If Yes, you will have to restart DCM\n"); 

msg CString {"to enable Query/Retrieve again."); 
n if( AfxMessageBox (msg, MB_I CONQUEST I ON | MB__yESNO) IDNO ) return; 

^ DestroyWindow O ; 

vJid QueryRetrieve : : Swit chAppearance ( ) 

^ if (GetSaf eHwnd ( ) == NULL) // Display 

m { 

qj DoModeless (Af xGetMainWnd 0 ) ; 

else // Maximize / Mimimize 

, { 

Lk if (Islconic ( ) ) ShowWindow ( SW_RESTORE) ; 

else ShowWindow(SW_MINIMIZE) ; 

Z\ UpdateWindowO ; // Make sure it redraws the window 

ioid QueryRetrieve : :OnSysCommand (UIMT nID, LPARAM iParam) 

if(nID == SC_MAXIMI2E || nID == SC__ZOOM) ShowWindow ( SW_RESTORE ) ; 

else CDialog : :OnSysCommand (nID , iParam) ; 
UpdateWindowO; // Make sure it redraws the window 

} 

void QueryRetrieve: :OnActivate (UINT nState, CWnd* pWndOther, BOOL bMinimized) 

CDialog; :OnActivate (nState, pWndOther, bMinimized) ; 
if(nState == WA_INACTIVE && pWndOther==Af xGetMainWnd () ) 

ShowWindow (SW_MINIMIZE) ; 
UpdateWindowO; // Make sure it redraws the window 



* 

* Run AE setup 

void QueryRetrieve: : OnQueryRetrieve_AESetup ( ) 
{ 

AEOptions_Dialog aeo_dialog; 

int n = aeo__dialog.DoModal (qr_AEarray) ; 

if (n>=0) 

{ 
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qr_DQRCtrlReTnote . LoadArchiveList (n) 
qr_DQRCtrlLocal . LoadArchi veLi st (n) j 



* Handle menu updates 

void QueryRetrieve :: OnMenuSelect (UINT nItemID, UINT nFlags, HMENU hSysMenu) 

{ 

CDialog : rOnMenuSelect (nItemID, nFlags, hSysMenu) ; 
if (qr^UpdateMenu) UpdateMenu (GetMenu ( ) ) 
qr_UpdateMenu = false; 

} 

void QueryRetrieve :: UpdateMenu (CMenu *pMenu) 
{ 

CCmdUI cmdUI; 

if (JpMenu) return; 

for (UINT n = 0; n < pMenu- >GetMenuI temCount ( ] ; ++n) 

{ 

CMenu* pSubMenu = pMenu- >Get SubMenu (n) ; 

if (pSubMenu) UpdateMenu (pSubMenu) ; // recursive call 

el se 

{ 

cmdUI . m_nIndexMax = pMenu- >GetMenuI temCount ( ) ; 
for (UINT i = 0; i < cmdUI .m_nIndexMax ; ++i) 

( 

i^l cmdUI . m_n Index = i; 

J]i cmdUI.Tn_nID = pMenu- >GetMenuI temID ( i ) ; 

^ cmdUI . m_pMenu = pMenu/ 

cmdUI .DoUpdate (this, FALSE); // call handler 



f^"^ Change priority 

j/^id QueryRetrieve: : OnParametersPriorityHigh ( ) 

y 

O qr_DQRCtr iRemote . Set Prior ity ( ServiceClass : : HighPr ior i ty] ; 
T^'-i: qr_DQRCtrlLocal . SetPriority (ServiceClass : : HighPr iority) ; 

r 

void QueryRetrieve: : OnParameter sPr ior i tyLow () 

{ 

qr_DQRCtrlRemote . SetPriority (ServiceClass ; : LowPr ior i ty ) ; 
qr_DQRCtrlLocal . SetPriority (ServiceClass : : LowPr ior ity ) ; 

} 

void QueryRetrieve; : OnParameter sPr ior ityNormal () 

{ 

qr_DQRCtrlRemote . SetPriority (ServiceClass : : Normal Priority) ; 
qr_DQRCtrlLocal . Set Prior ity ( ServiceClass : : Normal Priority) ; 

} 

void QueryRetrieve ; rOnUpdateParametersPriority (CCmdUI* pCmdUI) 
{ 

BYTE pr; 

switch (pCmdUI - >m nID) 
{ 

case I D_PARAMETER S_PR I OR I T Y_H I GH : 
pr ^ServiceClass : : HighPr ior ity ; 
break; 

case ID_PARAMETERS_PRIORITY_NORMAL : 

pr ^ServiceClass : :NormalPriori ty ; 

break; 
default : 

pr ^ServiceClass : : LowPriori ty ; 

break; 
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pCmdUI ->SetCheck (qr_DQRCtrlRemote , GetPriority ( ) pr) ; 
qr_UpdateMenu=true ; 

} 



* 

* Start the dialog 

BOOL QueryRetrieve : : OnlnitDialog ( ) 

{ 

CDialog: : OnlnitDialog ( ) ; 
qr_HWND=GetSafeHwnd() ; 
qr_UpdateMenu=true ; 

if ( Iqr^DQRCtrlRemote.DisplayOverControl (IDC_STATIC_REMOTE, this) } 
return FALSE ; 

if ( !qr_DQRCtrlLocal -DisplayOverControl ( IDC_STATIC_LOCAL , this) ) 
return FALSE; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

■k 

* Set log files (client and server) 

•k 

bgpl QueryRetrieve: : InitializeQueryRetrieve (LogFile* ptrCl ient Log , 
LogFile* ptrServerLog , DICOMDatabase* ptrDB) 

// Set parameters 
iij if ( IptrClientLog || I pt rServerLog || IptrDB) 

,,r Af xMessageBox ( "NULL parameters, cannot initialize Query/Retrieve''); 

%^ return false; 

m } 

r1ii qr_ptrClientLog = pt rCl lent Log ; 

qr_ptrServerLog - ptrServerLog ; 
^ if (J qr_DQRCtrlRemote . CreateDQRControl (qr_ptrClientLog, ptrDB, false) || 
H- - qr_DQRCtrlLocal . CreateDQRControl (qr_ptrClientLog , ptrDB, true)) 

^ return false; 

\| qr_AEarray = & (ptrDB - >db_AEl ist ) ; 
pli return true; 

s 

* Show log windows 

■k 

void QueryRetrieve: : OnQueryRetr ieveCl ientLog ( ) 

{ 

if ( qr_ptrClientLog->IsOn () ) qr_ptrCl ientLog- >DoModeless ( "Client Log" ) 

else qr_ptrClientLog->DestroyWindow ( ) ; 

} 

void QueryRetrieve: : OnQueryRetrieveServerLog ( ) 

{ 

if ( ! qrjtrServerLog- >IsOn ( ) ) qr_ptrServerLog->DoModeless ( " Server Log" ) 
else qr_ptrServerLog- >DestroyWindow ( ) ; 

} 

void QueryRetrieve: : OnUpdateQueryRetrieveClientLog (CCmdUI* pCmdUI ) 

{ 

pCmdUI ->SetCheck (qr_ptrClientLog->IsOn 0 ) ; 
qr_UpdateMenu=true ; 

} 

void QueryRetrieve: : OnUpdateQueryRetrieveServerLog ( CCmdUI * pCmdUI) 

{ 

pCmdUI ->SetCheck (qr_ptrServerLog-> I sOn { ) ) ; 
qr_UpdateMenu=true ; 



4 



QueryRetrieve . cpp 



10/27/00 



} 

void QueryRetrieve: : OnQueryRetr ieveClearAl ILogs ( ) 

{ 

qr_ptrClientLog- >OnClear ( ) ; 
qr_ptrServerLog- >OnClear ( ) ; 

} 



* Thread- safe UpdateData 

BOOL QueryRetrieve :: UpdateData (BOOL bSaveAndVal idate) 
{ 

if (qr_HWND) return FromHandle (qr_HWMD) - >UpdateData (bSaveAndVal idate) ; 
else return FALSE; 

} 



* Drag and drop support 

■k 

CImageList* QueryRetrieve :: CreateDraglmageEx ( CLi stCtrl *pList, LPPOINT IpPoint) 

{ 

if (IpList II pList->GetSelectedCount ( ) <= 0) return NULL; //No row selected 

O CRect rectSingle, rectComplete { 0 , 0 ; 0 , 0) ; 

^'^^ II Determine List Control Client width size 
pList->GetClientRect (rectSingle) ; 
int nWidth = rect Single . Width {) ; 

// Start and Stop index in view area 
j^^j- nindex = pLi st - >GetTopIndex ( ) - 1; 

int nBottomlndex = pLi st - >GetTopIndex ( ) + pLi st - >Get Count PerPage ( ) - 1; 
ffj if (nBottomlndex > (pList->Get ItemCount ( ) - 1)) 
nBottomlndex = pList->Get ItemCount () - 1; 

¥^ II Determine the size of the drag image (liinite for rows visibled and Client width) 
fj while ( {nindex = pList->GetNext Item (nindex, LVNI_SELECTED) ) 1= -1) 

if (nindex > nBottomlndex) 
break ; 

f^r pList->GetItemRect (nindex, rectSingle, LVIR_BOUNDS) ; 

if ( rect Single . left < 0) 
rectSingle . left = 0; 

if ( rectSingle . right > nWidth) 
rectSingle , right = nWidth; 



rectComplete . UnionRect (rectComplete , rectSingle) ; 

} 

// Minimize drag rectangle width to the size of the first column 
rectComplete . right = rectComplete . lef t+pLi st - >GetColumnWidth ( 0 ) 

CClientDC dcClient ( this) ; 
CDC dcMem; 
CBitmap Bitmap; 

if ( ! dcMem. CreateCompat ibleDC ( ScdcClient) ) 
return NULL; 



if ( 1 Bitmap , CreateCompat ibleBitmap ( &dcClient , rectComplete . Width () ^ rectComplete . Height ()) ) 
return NULL; 

CBitmap *pOldMemDCBi tmap = dcMem. SelectObj ect ( &Bitmap) ; 
// Use green as mask color 

dcMem. Fi 1 ISol idRect (0 , 0, rect Complete . Wi dth { ) , rect Complete . Height ( ) , RGB (0 , 255 , 0) ) ; 
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// Paint each Draglmage in the DC 
nindex = pList - >Get Toplndex ( ) - 1; 

while ((nindex = pList->GetNextItem(nIndex, LVNI_SELECTED) ) != -1) 
{ 

if (nindex > nBot tomlndex) 
break; 

CPoint pt ; 

CImageList* pSinglelmageLi st = pLi st - >CreateDragImage (nindex , &pt) ? 

if (pSinglelmageList } 
{ 

pList->GetItemRect (nindex, rectSingle, LVIR__BOUNDS) ; 
pSinglelmageLi st - >Draw ( &dcMem, 

0. 

CPoint (rectSingle . left - rectComplete . lef t , 
rectSingle . top - rectComplete . top) , 

ILD_MASK) ; 
pSingleImageList->DeleteImageList () ; 
delete pSinglelmageList; 

} 

} 

dcMem. SelectObject (pOldMemDCBi tmap) ; 
CImageList* pCompletelmageLi st = new CImageList; 

pCompleteImageList->Create (rectComplete. WidthO ; rectComplete . He ight ( ) , ILC_COLOR | ILC_MASK, 
0, 1) ; 

pCompleteIraageList->Add (ScBitmap , RGB(0, 255, 0)); // Green is used as mask color 
_ Bitmap . DeleteObj ect () ; 

i|j if (IpPoint) 

lpPoint->x = rectComplete . lef t ; 
'^"^ lpPoint->y = rectComplete . top; 

H } 

^Z. return pCompletelmageList ; 
VPid QueryRetrieve :: OnBeginDrag (CListCtrl *pList, NMHDR *pMMHDR) 

L. 

l^'^ if (IpList II pList - >GetSelectedCount 0 <= 0) return; //No row selected 

m NM_LISTVIEW* pNMListView = (NM_LI STVIKW* ) pNMHDR ; 
l^l POINT pt; 

Jr qr_pDragImage - CreateDraglmageEx (pList , Scpt); 
ri if (qr_pDrag Image == NULL) return; 
qr_pDragWnd = pList; 

CPoint ptStart = pNMLi stView- >ptAct ion; 
ptStart ~= pt; 

qr_pDragImage - >BeginDrag { 0 , ptStart) ; 

qr_pDragImage- >DragEnter (GetDesktopWindow ( ) , pNMListView->ptAct ion) ; 
SetCapture ( ) ; 

} 

void QueryRetrieve :: OnLButtonUp (UINT nFlags, CPoint point) 

{ 

if (qr_pDragImage && qr_pDragWnd) // In Drag&Drop mode ? 

( 

: : ReleaseCapture ( ) ; 

qr_pDragImage->DragLeave (GetDesktopWindow ( ) ) ; 
qr_pDragImage->EndDrag ( ) ; 

CPoint pt (point); 
ClientToScreen ( &pt ) ; 

CWnd* pDropWnd = WindowFromPoint (pt ) ; 
gr_DQRCtrlLocal . DropOn (qr_pDragWnd, pDropWnd) ; 
qr_DQRCtrlRemote . DropOn (qr_pDragWnd, pDropWnd) ; 
qr_pDragImage ->DeleteImageLi st () ; 
delete qr_pDrag Image ; 
qr_pDragImage = NULL; 
qr_pDragWnd = NULL ; 

} 
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CDialog: : OnLBut tonUp (nFlags , point) ; 

^oid QueryRetrieve: :OnMouseMove(UINT nFlags, CPoint point) 

^ if {qr_pDragImage && qr_pDragWnd) // In Drag&Drop mode ? 

CPoint ptDropPoint (point) ; 
ClientToScreen ( &ptDropPoint) ; 
qrjDrag Image ->DragMove (ptDropPoint) ; 

CDialog: : OnMouseMove ( nFlags , point) ; 

} 



* Displaying remote task queue and scheduling dialogs 

********* ************* 

void QueryRetrieve: : OnServi cesShowRemoteTasks ( ) 
qr_DQRCtrlRemote . ShowTaskViewO ; 

UpdateWindowO ; // Make sure it redraws the window 

} 

void QueryRetrieve: : OnUpdateServicesShowRemoteTasks (CCmdUI * pCmdUI) 
^ri-: pCmdUI->Enable(qr_DQRCtrlRemote.HasTaskQueue{} ) ; 

vflid QueryRetrieve: : OnServicesTaskScheduling ( ) 

m 

^ // Switch scheduling prompt 

'''■^ qr_DQRCtrlRemote . Set TaskSchedulerPrompt ( 
43 1 qr_pQRCtrlRemote . GetTaskSchedulerPrompt ( ) ) ; 

•.fli qr_UpdateMenu = true; 

v^id QueryRetrieve: : OnUpdateServicesTaskSchedul ing (CCmdUI * pCmdUI ) 
V'^h pCmdUI ->Set Check (qr_DQRCtrlRemote.GetTaskScheduler Prompt 0 ) ; 
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// Server, h: interface for the Server class. 
// 

f 1 1 i 1 1 1 1 ( 1 1 1 1 1 1 { 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 } 1 1 1 1 1 1 f 1 1 1 1 1 1 1 f 1 1 1 1 ( 

#if Idef ined(_SERVER_H_INCLUDED_) 
#define _SERVER_H_INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 
class Server 

{ 

public : 

bool RunServer (ApplicationEnt ity* a, bool multithread) ; 

Server (DIGOMDatabase* db , DICOMViewLog* log) ; 
virtual ~Server(); 
pr ivate : 

UIMT16 grv_CancelledID; 
DICOMViewLog* srv_pLog; 
DICOMDatabase* srv_pDataBase ; 
struct Thread 
{ 

char tr_LocAET [20] , tr_RemAET [20] ; 

UINT16* tr_ptrCancelledID; 
int tr_socket, tr_ServPort; 

static int tr_Count; 
DICOMViewLog* tr_pLog; 
r| DICOMDatabase* tr_pDataBase ; 

5f void StartThread(char^ locAET, char* remAET, bool multi thread) 

static void StartFunc (void *pThread) ; 
^fl bool RunThreadO; 

-™„J Thread (DICOMDatabase* db, DICOMViewLog* log, int socketfd) ; 

"1 -Thread () { tr Count--; }; 



ni bool RunServer (char* port, char* locAET, char* remAET , bool multithread) ; 
If^ndif // ! defined (_SERVER_H_INCLUDED_) 
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// Server. cpp: implementation of the Server class. 




#include "stdafx.h" 
#include " Server. h" 
#include <process.h> 



#ifdef _DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_NEW 
#endif 




Server :: Server (DICOMDatabase* db, DICOMViewLog* log) 



srv_pDataBase=db; srv_pLog= log ; srv_Cancel ledID- 0 ; 
Server :: -Server ( ) 1} 



Server: : Thread :: Thread (DICOMDatabase* db , DICOMViewLog* log, int socketfd) 
: tr_pDataBase(db) , tr_pLog ( log) , tr_socket ( socket fd) 

ri tr_Count++; 

ZeroMem(tr_LocAHT,20) ; ZeroMem ( tr_RemAET , 2 0 ) ; 
2- tr_ServPort=0 ; 

}yi 

iil Server :: Thread :: tr_Count = 0; 

/i** **************************** *********** 

* ..1' 

*C^ start Server, listening to a specific port 

^^^i^^^******^*********************************************^ 

lA^tl Server: :RunServer( Char* port, char* locAET, char* remAET, bool luult ithread) 

^1;.=. // Do we have valid class members ? 

f-;= if ( ! srv_pDataBase || lsrv_pLog) return false; 

5; if (! port II IlocAET |1 ! remAET) 

Si ^ srv_pLog->Load(" Server ERROR: NULL parameter"); 
f% return false; 

O char sport [8]; sprintf ( sport /' %s port ) ; 

// Can we listen to the given port ? 

char info [64] ; 

Socket MSocket; 

if { ! MSocket . Li sten ( sport ) ) 

^ sprintf (info, "Server ERROR: cannot listen to port %s", sport); 
srv_pLog- >Load ( inf o) ; 
return false; 

sprintf (inf o, "Server listens to port %s", sport); 
srv pLog- >Load ( inf o) ; 

// Run single or mult ithread server 
while (MSocket .Accept ( ) ) 

^ // Set server thread parameters 

Thread* trd = new Thread ( srv_pDataBase , srv_pLog, MSocket . Socket fd) ; 

if ( ! trd) 

^ srv_pLog->Load(" Server ERROR: Out of memory for new thread"); 
return false; 

trd->tr_ServPort = atoi (sport); 
trd->tr_ptrCancelledID = &srv_CancelledID ; 
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// Start server thread. This function will delete the thread "trd" 
// after completion - never use "thr" any more 1 
trd->StartThread ( locAET , remAET, mul tithread) ; 
MSocket , Socketf d = 0; 
MSocket - Connected = FALSE; 

} 

spr intf ( info Server failed to accept more data at port %s",sport); 
srv_pLog- >Load ( inf o) ; 

return false; // should never return except on error 

} 

bool Server : :RunServer (ApplicationEntity* a, bool multithread) 

{ 

if(!a) return false; 

return RunServer (a- >GetPortServerString ( ) , a- >ae_partnerTit le , 
a->ae_Title, multithread); 

} 

* start a thread, if possible 

void Server :: Thread: : StartThread (char* locAET, char* remAET, bool multithread) 

{ 

strcpy ( tr_LocAST, locAET) ; 
strcpy (tr_RemAET, rertiAET) ; 
if (multithread) 

{ 

if (_beginthread (StartFunc , 100000, this) -1) 
.li t r y 

y1 tr_pLog- >Load (" Server WARNING: cannot start a new thread"); 

zfi RunThread{); // just try to run 

catch (...) { ; } 



-Hi else RunThread ( ) ; 

^"i! Run a thread, wrapped in C syntax 

v<aid Server :: Thread :: StartFunc (void *pThread) 

K 

if (IpThread) return; // cannot be NULL 

( (Thread*) pThread] ->RunThread ( ) ; 
_endthread ( ) ; 

} 

ic 

* Run and DELETES a thread 
* 

bool Server : : Thread : : RunThread ( ) 

{ 

if ( 1 tr_pDataBase || 3 tr_pLog) 

{ 

delete this; 
return false; 

} 

char info [6 4 ] ; 

PDU_Service PDU; 
DICOMCommandObj ect DCO; 
UID uid; 

SCProvider SCP ( * tr_pLog , *tr_pDataBase) ; 



// Configure PDU 

PDU. ClearAbstractSyntaxs ( ) ; 

PDU. SetLocalAddress ( (BYTE*) tr_LocAET) ; 
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PDU. SetRemoteAddress ( (BYTE* ) tr^RemAET) ; 

uid. Set ( "1 . 2 . 840. 10008 . 3 . 1 . 1 . 1" ) ; PDU . Set Appl icat ionContext (uid) ; 

PDU. AddStandardStoreAbstract Syntaxes ( ) ; 

// NOTE: PDU. Multiplex { filedes) . This call is saying, here's a just 
// connected socket, now go through the regular PDU association; and 
// return to me a connected DICOM link. 

if (PDU,Multiplex(tr_socket) ) 
{ 

while (TRUE) 
( 

tr__pLog- >ReportTime ( ) ; 

DCO . Reset ( ) ; 

if ( 1 PDU. Read (&DCO) ) 

{ 

PDU. Close 0 ; 
delete this; 
return false; 

} 

sprintf ( inf O; "Server object received at port %d : " , tr_ServPort ) ; 
tr_pLog- >Load ( inf o ) ; 
tr_pLog->Load (DCO) ; 
Beep(300,100) ; 

if ( 1 SCP . IdentifyAndProcess (PDU, DCO, tr_ptrCancel ledID) ) break; 
} // while 
} // if 
el se 

{ 

switch ( ( (AAssociateRJ) PDU) .Reason) 
{ 

case 3 : 

tr_pLog- >Load (" Server ERROR: Rejected remote AE address"); 
break ; 
case 7: 

tr_pLog->Load( "Server ERROR: Rejected local AE address"); 
break ; 
case 2 : 

tr_pLog->Load (" Server ERROR: Rejected proposed Application Context") 
break; 
default : 

tr_pLog- >Load (" Server ERROR: Reason unknown"); 

} 

PDU. Close 0 ; 
delete this; 
return false; 

} 

//We get here on success 
PDU. Close 0 ; 
delete this; 
return true; 
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// AccurateTiiuer . h : interface and implementation of the AccurateTimer class. 
// 

///////////////////////////////////////////////////////////////////////////////// 



# include "stdafx.h" 
#include "DCM.h" 

//#ifdef _DEBUG 
//#undef THIS_FILE 

//static char THIS_FILE[]= FILE ; 

//#define new DEBUG_NEW 
//#endif 

class AccurateTimer 

{ 

private : 

int Initialized; 

int 64 Frequency; 

int64 BeginTime; 

public : AccurateTimer ( ) // constructor 

{ 

// get the frequency of the counter 

Initialized = Query Perf ormanceFrequency ( (LARGE_INTEGER *)&Frequency ); 

} 



BOOL BeginO // start timing 

( 

if ( ! Initialized ) return 0; // error - couldn't get frequency 
// get the starting counter value 

return Query Perf ormanceCounter ( {LARGS_INTEGEH *) &BeginTime ); 



double End { ) // stop timing and get elapsed time in seconds 

{ 

if { i Initialized ) return 0.0; // error - couldn't get frequency 
// get the ending counter value 
int 6 4 endtitne; 

QueryPerf orTtianceCounter ( (LARGE_INTEGER *)&endtime ); 
// determine the elapsed counts 

int64 elapsed = endtime - BeginTime; 

// convert counts to time in seconds and return it 
return ( double ) elapsed / (double ) Frequency ; 

} 

void EndReport ( ) // stop timing and get elapsed time in seconds 

( 

double t=End ( ) ; 

CString time; t ime . Format (" Time=%lf seconds",t); 
Af xMessageBox ( t ime) ; 



BOOL Available () // returns true if the perf counter is available 
{ return Initialized; } 

int64 GetFreq() // return perf counter frequency as large int 

{ return Frequency; } 
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// Angle, h: interface for the Angle class. 
// 

I f 1 1! I n I / 1 u 1 1 1 1 1 1 1 / 11 1 1 11 1 1 n 1 1 1 1 1 n I f jj n I J 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 f 1 1 1 1 

#if ! defined (AFX_ANGLE__H OAD1D0 2 3_EE3 5_11D2_96 3D_0 0105A21 7 74F INCLUDED_) 

#def ine AFX_AKGLE_H OAD1D0 23_EE3 5_11D2_96 3D_0010 5A21774F INCLUDED_ 

#if _MSC_VER > 1000 
#pragTna once 

#endif // __MSC_VER > 1000 

///////////////////////////////////////////////////////////////////////////// 
// Angle command target 

class Angle 

{ 

public : 

bool a_undo , a__active; 

void UpdatePopMenu (CMenu* pop) ; 
void SetScale(int code) ; 

void Redraw{CDC* pDC, CPoint Sep, bool initialize = f alse) ; 
void Draw(CDC'^ pDC) ; 
CString toStringO ; 
Angle ( ) ; 

virtual -Angle () ; 

private : 

double a_angle, a_scale_coef f ; 
CPoint a_pl, a_p2, a_p3 ; 
f\^^ CString a_scale; 



void Clean ( ) ; 
void GetAnglef); 



i7|/////////////////////////////////////////////////////////////////////////// 
fendif // i defined (AFX_ANGLE_H 0AD1D0 23_EE3 5_11D2_9 6 3D__0 010 5A217 74F INCLUDED_) 
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// Angle. cpp: implementation of the Angle class. 
// 

1 1 1 1 1 1 i f 1 1 f 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 f 1 1 1 1 1 1 f I f 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 11 1 1 f 1 1 1 1 1 1 

#incliide "stdafx.h" 
#include "DCM.h" 
#include "Angle. h" 

#ifdef _DEBUG 
#undef THIS_FILE 

static char rHIS_FILE[]- FILE ; 

#define new DEBUG_NEW 
#endif 

/ 1 1 11 n n n 11 n n I n 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 u 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 

II Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 11 1 11 1 1 n 1 1 1 1 1 n I n II 1 11 n I / 1 1 1 11 1 1 / 1 1 1 1 n 11 11 1 11 II I 

Angle : : Angle ( ) 
{ 

Clean ( ) ; 



Angle : : -Angle ( ) 

{ 



*i| Report current angle in the status bar 
(String Angle :: toString ( ) 

^J 

est ring info; 

inf o , Format C "%. 2lf ",a_angle); 
return (info+a scale); 



fi\ Compute current angle 
Slid Angle : :GetAngle ( ) 

0 

a_angle=0 . 0 ; 



double x=_hypot (a_pl . x-a_p2 .x, a_pl .y-a_p2 ,y} 

double y=_hypot (a_p3 ,x-a_p2 . x, a_p3 .y-a_p2 .y) 

double z=_hypot (a_pl . x-a_p3 . x , a_pl .y-a_p3 . y) 

double cosa= (x*x+y*y-z*z) / (2*x*y) ; 

if (cosa>0 . 9 99) a_angle = 3 . 1415 926 ; 

else i f ( cosa< - 0 . 999 ) a_angle = 3 . 1415926 ; 

else a_angle = acos ( cosa) ; 

a_angle *= a_scale_coef f ; 

return; 

} 



if(x<=0.1) return; 
if(y<=0.1) return; 
if(z<=0.1) return; 



* Reset all Angle parameters 

void Angle :: Clean ( ) 
{ 

a_pl = CPoint (20,30) ; 
a_p2=CPoint {50,50} ; 
a_p3=CPoint (20,70) ; 
a_scale=:CString ( "degrees" ) ; 
a_scale_coeff= 180/3 . 14 15 926 ; 
GetAngle ( } r 
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a_a ctive = false; 
a und.o=false; 



■k 

* Draw the Angle 
* 

void Angle : .-Draw (CDC *pDC) 
( 

int dmode=SetR0P2 (pDC->m_hDG, R2_N0T) ; 

CPen* old_pen = pDC- > SelectOb j ect ( &theApp . app_Pen) ; 

// Draw Angle lines 

pDC->MoveTo (a_pl) ; pDC->LineTo (a_p2) ; 
pDC->MoveTo (a_p2) ; pDC- >LineTo ( a_p3 ) ; 
// Circle the Angle points 

pDC- >Arc {CRect (a_pl , x-6 , a_pl . y-6 , a_pl . x+6 , a_pl .y+S) , a_pl , a_pl ) 

pDC->Arc (CRect (a_p2 . x-6 , a_p2 .y-6 , a_p2 . x+6 , a_p2 .y+fi ) , a_p2 , a_p2 ) 

pDC->Arc (CRect (a_p2 .x-4 , a_p2 .y-4 , a_p2 . x+4 , a_p2 .y+4] , a_p2, a_p2) 

pDC- >Arc (CRect (a_p3 . x-6 , a_p3 . y-6 , a_p3 - x+6 , a_p3 . y+6 ) , a_p3 , a_p3) 

SetR0P2 (pDC->m_hDC, dmode) ; 
pDC->SelectObj ect (old_pen) ; 



Update the A.ngle 

vdid Angle :: Redraw (CDC *pDC, CPoint &p , bool initialize) 

"^' -1 if ( ! a_active) return; 

// Initialize angle points 
^ if ( ini t ialize) 

>- { 

if (a_undo) Draw(pDC); 

int px= (p . x<<l ) -1 0 ; int py= (p . y<< 1 ) - 10 ; 
if ( a_pl . x>px) a_pl.x=px; if ( a_pl . y>py ) a__pl.y-py; 
*\i if (a_p3 .x>px) a_p3.x-px; if (a_p3 . y>py) a_p3.y=py; 

a_p2=p; 

™J Diaw(pDC) ; // new Angle 

^.4 Get Angle ( ) ; 

a_undo= true ; 

return; 

} 

// Find which Angle vertex is closer 
double xl=_hypot (p.x-a_pl ,x,p.y-a_pl .y) ; 
double x2==_hypot (p . x- a_p2 . x , p , y-a_p2 . y) ; 
double x3=_hypot (p.x-a_p3 -x,p,y~a_p3 .y) ; 

// Update the nearest vertex 

if(xl<=x2 xl<=x3) 

{ 

if (x2< = 10 II x3<==10) return; // avoid degraded Angle 

if{a_undo) Draw(pDC); 

a_pl=p; 

} 

else if (x2<=xl && x2<=x3) 

{ 

if (xl< = 10 I I x3< = 10) return; // avoid degraded Angle 

if (a_undo) Draw(pDC); 

a_p2=p; 

} 

else 

{ 

if {xl< = 10 I I x2< = 10) return; // avoid degraded Angle 
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if (a__undo) Draw(pDC) ; 
a__p3=p ; 

) 

Draw(pDC) ; // new Angle 
Get Angle ( ) ; 
a_undo=true ; 

} 



■k 

* Update Angle scale 

•k 

void Angle :: SetScale ( int code) 

{ 

switch ( code) 

( 

case 1 : 

a__scale = " degrees " ; 

a_scale_coeff =18 0/3 , 1415 926 ; 

break; 
case 2 : 

a_scale= " radians " ; 

a_scale_coef f =1 . 0 ; 

break; 
PI case 3 : 

,1^ a_scale= " percent " ; 

a_scale_coef f -50 . 0/3 . 1415926 ; 
01 break; 

Ji } 



Update Angle pop-up menu 
void Angle : rUpdatePopMenu (CMenu *pop) 

t 

I Get Angle { ) ; 

if (a_scale=="degrees") pop- >CheckMenuI tern ( ID_ANGLS_DEGREES , MF__CHECKED ); 
else if (a_scale = =: "radians " ) pop- >CheckMenuI tem ( ID_ANGLE_RADIANS , MF_CHECKED ) 
else pop->CheckMenuItem(ID_ANGLE_PERCENT,MF_CHECKED ); 

pop- >ModifyMenu ( ID_ANGLE_VALUE , MF^BYCOMMAMD , ID_ANGLE__VALUE , toString ( } } ; 
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// CustomFileDialog . h : header file 
// 

///////////////////////////////////////////////////////////////////////////// 
// ecus tomFi leDialog dialog 
#include "resource. h" 

#define CUSTOM_FILEOPENORD 1538 
#define CUSTOM_MULTIFILEOPENORD 1539 



class CCustomFileDialog : public CFileDialog 
{ 

DECLARE_DYNAM I C ( CCu s t omF i 1 eD i a 1 og ) 
public : 

TCHAR Tti^szBigBuf f er [1000] ; 

static CString szCustomDef Filter ; 
static CString szCustomDef Ext ; 
static CString szCustomDef FileName ; 
static CString szCustomTitle ; 
CStr ingList ra_l i stDi splayNames ; 

void SetTitle (CString title); 

int GetSelectedCount ( ) { return m_l is tDi splayNames . GetCount () ; ) 

CString GetSelectedAt (UINT index) ; 

CCustomFileDialog (BOOL bOpenFi leDialog = TRUE, // TRUE for FileOpen, FALSE for FileSaveAs 

DWORD dwFlags = OFN^HIDEREADONLY | 0FN_OVERWRITEPROMPT | OFK^NODEREFERENCEL INKS | OFN_EXPL 

ORER I 

CI OFN_ENABLETEMPLATE ] OFN_ALLOWMULT I SELECT | OFN_FILEMUSTEXIST , 

J% LPCTSTR IpszFilter CCustomFi leDialog :: szCustomDef Filter , 

,jr LPCTSTR IpszDefExt = CCustomFi leDialog :: szCustomDef Ext , 

yii LPCTSTR IpszFileName = CCus tomFi leDialog :: szCustomDef Fi leName , 

Jj CWnd* pParentWnd = NULL) ; 

Dialog Data 

// ( {AFX_DATA (CCustomFileDialog) 

enum { IDD = IDD_CUSTOiy[_FILE_DIALOG }; 
Oj BOOL m_bMulti; 
I' BOOL m_SelectSubdirector ies ; 

" //}}AFX_DATA 

f| Overrides 

H^i // ClassWisard generated virtual function overrides 

//{ {AFX_VIRTUAL (CCustomFileDialog) 
""""I protected: 

f] virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
11] }AFX_VIRTUAL 
virtual BOOL OnFi leNameOK ( ) ; 

// Implementation 
protected ; 

BOOL ReadLi stViewNames ( ) ; // protected -> not callable without dialog up 

//{ {AFX_MSG(CCustomFileDialog) 
afx_msg void OnSelectButton () ; 

afx_msg void OnContextMenu ( CWnd* pWnd, GPoint point); 

virtual BOOL OnlnitDialog () ; 

// } }AFX_MSG 

afx_msg void OnHelpO; 

DECLARE_MESSAGE_MAP { ) 

}; 
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switch (m_FroTnIndex) 

{ 

case 0: // now 

m_StartTime = CTime : : GetCurrentTime ( ) ; 

break; 
case 1: // in 10 min 

m_StartTime = CTime : : GetCurrentTime ( ) + CTimeSpan ( 0 , 0 , 10 , 0 ) ; 

break; 
case 2: //in 30 min 

m_StartTime = CTime :: GetCurrentTime ( ) + CTimeSpan { 0 , 0 , 3 0 , 0 ) ; 

breaks- 
case 3 : // in 1 hour 

m_StartTime = CTime :: GetCurrentTime ( ) + CTiraeSpan ( 0 , 1 , 0 , 0 ) ; 

break; 
case 4 : // in 2 hours 

Tn_S tart Time = CTime :: GetCurrentTime ( ) + CTimeSpan ( 0 , 2 , 0 , 0 ) ; 

break; 

case 5: // tomorrow 8:00 am 

tm = CTime :: GetCurrentTime ( ) + CTimeSpan (1 , 0 , 0 , 0 ) ; 
m_StartTime = CTime ( tm. Get Year () , tm. GetMonth ( ) , tm. GetDay ( ) , 
8,0,0); 

break; 
case 6: // specific 

tm = m_StartTime; 

m_StartTime = CTime (m__StartDate . GetYear {) , m_St artDate . GetMonth ( ) 
m_StartDate . GetDay ( ) , tm.GetHourO , 
tm. GetMinute ( ) , tm . GetSecond ( ) ); 

if {m_StartTime < CTime :: GetCurrentTime () ) 

{ 

m_StartTime = CTime :: GetCurrentTime () ; 

) 

break; 

} 

// 2. Find out end date/time 
switch (m_ToIndex) 

{ 

case 0: // undefined 

m_EndTime = CTime ( 2030 , 1 , 1 , 1 , 1 , 1 ) ; 

break; 
case 1: // in 10 min 

m_EndTime = m_StartTime + CTimeSpan { 0 , 0 , 1 0 , 0 ) ; 

break ; 
case 2; // in 3 0 min 

m_EndTime = Tn_StartTime + CTimeSpan ( 0 , 0 , 3 0 , 0) ; 

break; 
case 3: // in 1 hour 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 1 , 0 , 0) ; 

break; 
case 4: // in 2 hours 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 2 , 0 , 0 ) ; 

break; 

case 5: // tomorrow 8:00 am 

tm = CTime : -.GetCurrentTime ( ) + CTimeSpan ( 1 , 0 , 0 , 0 ) ; 
m_EndTime = CTime { tm . Get Year () , tm . GetMonth ( ) , tm.GetDayO, 
8,0,0) ; 

if (m__EndTime <= m__StartTime ] 
{ 

m_EndTime = m_StartTime + CTimeSpan ( 0 , 0 , 3 0 , 0 ] ; 

} 

break; 
case 6: // specific 

tm - m_EndTime; 

m_EndTime = CTime (m_EndDate . Get Year {} , m_EndDate . GetMonth ( ) , 
m^EndDate . GetDay ( ) , tm.GetHourO , 
tm.GetMinute 0 , tm . Get Second () ); 

if (m__EndTime <= m_StartTime ) 

{ 

m__EndTime = m_StartTime + CTimeSpan ( 0 , 0 , 3 0 , 0 ) ; 

) 

break ; 



// 3, Set task schedule 
DateTime dstart, dend; 
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dstart . SetDateTime (m^StartTime . GetYear ( ) , m_StartTime . GetMonth ( ) -1 , 

m_StartTime . GetDay { ) - 1 , m^StartTime . GetHour ( ) , m_StartTime . GetMinute ( ) , 
m_StartTime . GetSecond ( ) ) ; 

if (m_FromIndex>0] 



dend. SebDateTime (m_EndTiTne . GetYear ( ) , m_EndTime . GetMonth ( ) -1, 

m_EndTime -GetDay 0 -1 , m_EndTiTne . GetHour () , ra_EndTime . GetMinute ( ) , 
m_EndTime . Get Second ( ) ) ; 

) 

t . ScheduleTask (dstart , dend) ; 

// 4. Set number of execution attempts 
t . Set Exec (m_At tempt s) ; 




Display s 



chedule dialog and schedule the task 



void DQRTaskS 



■k-k'ick-kickieic-kick-k 



chedule : iRunScheduler (DQRTask Set, bool prompt) 



if (prompt 



if(DoModal() != IDOK) 



return ; 



ScheduleTask (t ) ; 
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// ODBC.h: interface for the ODBC class. 
// 

////////////////////////////////////////////////////////////////////// 

#if ! defined (AFX_ODBC_H_INCLUDED_} 
#define AFX_ODBC_H_INCLUDED_ 

#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > lOOO 

///////////////////////////////////////////////////////////////////////////// 
// 

// ODBCTableSet recordset - abstract parent for all ODBCRecordSet s 
// 

///////////////////////////////////////////////////////////////////////////// 
class ODBCTableSet : public CRecordset 

{ 

public : 

void WritelntoDICOMObject (DICOMObjectSc dob, 

DICOMObject* dob_mask=MULL) ; 
virtual void Wri telntoDICOMRecord {DICOMRecord& dr)=0; 
virtual void SetFindFilter (DICOMRecordSc dr)=0; 
bool Fet chNextRecord ( ) ; 

bool AddOrUpdate (DICOMRecord Scdr) ; 

virtual CString GetFilename ( ) { return CString ( " ) ; }; 
ODBCTableSet (CDatabase* pDatabase = MULL) ; 
-ODBCTableSet ( ) ; 
DECLARE_DYNAMIC (ODBCTableSet] 

/fj Implementation 
:fgffdef _DEBUG 

'"fj' virtual void AssertVal id ( ) const; 

y'J virtual void Dump ( CDumpContext& dc) const ; 

##adif 

i^otected : 

ul void AndFil ter (CString fName, DateTimeSegmentSc dValue, 

HJ const BYTE dFormat) ; 

void AndFilter (CString fName, char* sValue); 

virtual void ClearSet ( ) = 0 ; 
r^' virtual void UpdateFromDICOMRecord (DI COMRecord &dr)=0; 
Oi virtual bool SetFromDICOMRecord (DICOMRecord &dr)=0; 
^\ CString GetDef aul tConnect ( ) ; 

virtual CString GetDef aultQuery (DICOMRecordSc dr)=0; 

14 

nil 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

H 

T! 0DBC4Set recordset 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

class 0DBC4Set : public ODBCTableSet 
{ 

public : 

void WritelntoDICOMRecord (DICOMRecordSc dr) ; 

bool HasAliasRecords (DICOMRecordSc dr) ; 

CString GetFilename ( ) { return m_Filename; }; 

0DBC4Set (CDatabase* pDatabase = NULL) ; 
DECLARE_DYNAMIC (0DBC4Set) 

// Field/Param Data 

//{ (APX_FIELD (0DBC4Set , CRecordset) 

CString m_SeriesInstUID ; 

CString m_SCPInstUID ; 

CString m_ImageNum; 

CString m_Filename; 

CString m_PatientlD; 

CString m_Pat ientName ; 

double m_PBirthTime ; 

long Tti_PBirthDate ; 

CString m_S tudy InstUID ; 

CString m_Series InstUID2 ; 

CString m_Modality; 
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CString TTi_Ser iesNum ; 
est ring Tn_Pat lent ID2 ; 
CString m_Study InstUID2 ; 
CString m_StudyID; 
CString m_Access ionNumber ; 
double m_StiidyTime ; 
long m_StudyDate ; 
CString m_Study ImagesNum; 
// } }AFX_FIELD 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (0DBC4Set) 
publ ic : 

virtual CString GetDef aul tSQL ( ) ; // Default SQL for Recordset 
virtual void DoFieldExchange (CFieldExchange^ pFX) ; // RFX support 
//} }AFX_VIRTUAL 



// Implementation 
#ifdef _DEBUG 
#endif 
private : 

void ClearSet ( ) j 

void SetFindFilter (DICOMRecordSc dr) ; 

void UpdateFromDICOMRecord (DICOMRecord &:dr) { ; } ; // not used 

bool SetFromDICOMRecord (DICOMRecord &dr) { return true;} ; // not used 

CString GetDef aultQuery (DICOMRecord& dr) ; 



Gtoss ODBCDatabase : public 
pM^lic : 

^4 static const CString 



""t'^ void RemoveAllRecords ( ) ; 

void StopSearch (void* pTR) ; 

flj void Di splayRecords (Array<DICOMRecord> &a, bool from_local); 

„ bool Init ializeDataBase ( char* directory, 

r void (*disp) (Array<DICOMRecord>&, bool)); 

bool DBAdd(DICOMRecord& dr) ; 

O bool DBAdd (DICOMObj ect* dob, PDU_Service* pdu) ; 

PI bool GetFromLocal (DICOMDataObj ect& ddo_mask) ; 

bool SetRecordCount ( int c) { return true; }; // unused 

jl BYTE MatchNext (void* pTR, DICOMObject &dob_found, 
rj DICOMObject *dob__mask) ; 

fi: BYTE RetrieveNext (void* pTR, DICOMObject^ dob_f ound) ; 

int DBRemove (DICOMRecord& dr_mask) ; 

int GetRecordCount ( ) { return 1; }; // unused 



CDatabase* Ge tCDatabasePtr ( ) { return &db_ODBCdb; }; 

ODBCDatabase ( ) ; 
virtual -ODBCDatabase () ; 



DICOMDatabase 
db_DBName ; 



protected : 

void* StartSearch (DICOMRecord& dr_mask, const BYTE how); 

bool DBAddDirectoryContent s ( char * directory , bool copy_files, 

bool include_subdirectories=true} ; 
int DBReinoveDirectoryContent s ( char *directory, bool use__f ilenames , 

bool include_subdirector ies=true) ; 

private : 

bool db_IsODBC; 
CDatabase db^ODBCdb ; 
CCr it icalSect ion 

db_DB AddDDO_Cr iticalSection, db_D i sp 1 ayR e c or d s_C riticalSection; 



bool RemoveUnique (CString& pKey, CStringS: stKey, 

CStringSc serKey, CString& imKey) 

bool Connect ( ) ; 



1 1 1 { I ( ! f I f f f 1 1 { 1 1 1 1 1 1 1 f 1 1 f 1 1 1 1 1 1 1 1 1 1 1 f 1 1 n I i 1 1 1 f I f 1 1 1 1 1 1 1 i ! I f I i 1 1 1 1 11 1 U 1 1 11 1 
If 
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// ODBCPat ientSet recordset 
// 

n 11 1 1 1 n 11 n I n n / 1 1 1 n n 11 11 J / J J f I u 1 1 1 1 { 1 1 1 1 1 1 1 1 1 1 1 1 f 1 1 f 1 1 1 1 1 1 1 ! 1 1 1 } 1 1 1 1 1 1 

class ODBCPatientSet : public ODBCTableSet 
{ 

public : 

void WritelntoDICOMRecord (DICOMRecordSt dr) ; 

void SetFindFilter (DICOMRecord& dr) ; 

ODBCPatientSet (CDatabase* pDatabase = NULL) ; 
DECLARE_DYNAMIC (ODBCPatientSet) 

// Field/Param Data 

// { {AFX_FIELD (ODBCPatientSet , CRecordset) 

CString m_Patient ID; 

est ring m_Pat lent Name ; 

double m_PBirthTime ; 

long ra_PBirthDate ; 

// } }AFX_FIELD 



// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (ODBCPatientSet) 
public : 

virtual CString GetDef aultSQL ( ) ; // Default SQL for Recordset 
virtual void DoFieldExchange ( CFieldExchange* pFX) ; // RFX support 
//} }AFX_VIRTUAL 

// Implementation 
^ivate : 

^13 void ClearSet ( ) ; 

void UpdateFromDICOMRecord (DICOMRecordS: dr) ; 

^; bool SetFromDICOMRecord [DICOMRecord &dr) ; 

vy CString GetDef aultQuery (DICOMRecord& dr) ; 

Ml/////////////////////////////////////////////////////////////////////////// 

M 

77 ODBCStudySet recordset 
7/ 

n////i /////////////////////////////// ////////////////I// //I///////////////// 
glass ODBCStudySet : public ODBCTableSet 

iblic: 

>Ji void WritelntoDICOMRecord (DICOMRecordSc dr) ; 

void SetFindFilter (DICOMRecord &dr) ; 

fi-^; ODBCStudySet (CDatabase* pDatabase = NULL) ; 
DECLARE_DYNAMIC (ODBCStudySet) 

// Field/Param Data 

// { {AFX_FIELD (ODBCStudySet , CRecordset ) 

CString ra_Pat lent ID ; 

CString m_StudyInstUID; 

CString m_StudyID; 

CString m_AccessionNumber ; 

double m^StudyXime ; 

long Tn_StudyDate ; 

CString m_StudyImagesNum; 

//} }AFX_FIELD 



/ / Overrides 

// ClassWizard generated virtual function overrides 
/ / { { AFX_VIRTUAL (ODBCStudySet ) 
publ ic : 

virtual CString GetDef aultSQL () ; // Default SQL for Recordset 
virtual void DoFieldExchange (CFieldExchange* pFX) ; // RFX support 
//} }AFX_VIRTUAL 



private : 

void UpdateFromDICOMRecord (DICOMRecord &dr) ; 

void ClearSet ( ) ; 

bool SetFromDICOMRecord (DICOMRecord &dr) ; 



CString GetDef aultQuery (DICOMRecord& dr) ; 
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1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II 

II ODBCSeriesSet recordset 
// 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 III 1 1 1 1 
class ODBCSeriesSet : public ODBCTableSet 

{ 

public : 

void WritelntoDICOMRecord (DICOMRecord &dr) ; 

void SetFindFilter (DICOMRecord &dr) 

ODBCSeriesSet (CDatabase* pDatabase = NULL) ; 
DECLARE_DyNAMIC (ODBCSeriesSet) 

// Field/Param Data 

// { {AFX_FIELD (ODBCSeriesSet, CRecordset) 
CString Tn_StudyInstUID ; 
CString m_SeriesIns tUID ; 
CString m_Modality ; 
CString tn_Ser iesNum; 
// } }AFX_FIELD 

// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (ODBCSeriesSet) 
public : 

virtual CString GetDef aul tSQL () ; // Default SQL for Recordset 

f% virtual void DoFieldExchange ( CFieldExchange* pFX) ; // RFX support 

1 1\ }afx_virtual 

^'ivate : 

01 void UpdateFromDICOMRecord (DICOMRecord Scdr) ; 
y^j void ClearSet ( } ; 

^'"u bool SetFromDICOMRecord (DICOMRecord &dr) ; 

"^^ CString GetDef aul tQuery (DICOMRecord &dr) ; 

Mil 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 

Wi 

ff ODBCImageSet recordset 
fl 

Ul 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
eiass ODBCImageSet : public ODBCTableSet 

Si 

fMb lie: 

\J void WritelntoDICOMRecord (DICOMRecord &dr) ; 

pi void SetFindFilter (DICOMRecord &dr) ; 

2^; CString Get Filename ( ) { return m_Filename ; }; 

ODBCImageSet (CDatabase* pDatabase = NULL) ; 

DECLARE^DYNAMIC (ODBCImageSet) 

// Field/Param Data 

// { {AFX_FIELD (ODBCImageSet , CRecordset) 

CString m_SeriesInstUID ; 

CString m_SOPInstUID ; 

CString m_ImageNum; 

CString m_Filename; 

// } }AFX_FIELD 



/ / Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (ODBCImageSet) 
publ ic : 

virtual CString GetDef aul tSQL () ; // Default SQL for Recordset 
virtual void DoFieldExchange (CFieldExchange* pFX) ; // RFX support 
// } }AFX_VIRTUAL 
private : 

void UpdateFromDICOMRecord (DICOMRecord Scdr) ; 
void ClearSet ( ) ; 

bool SetFromDICOMRecord (DICOMRecord &dr) ; 
CString GetDef aul tQuery (DICOMRecord &dr) ; 
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#endif // ! defined {AFX_ODBC_H_INCLUDED_) 



o 
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////////////////////////////////////////////////////////////////////// 
// ODBCDatabase Class 

// This class is derived from DICOMDatabase to support 
// ODBC data sources 

////////////////////////////////////////////////////////////////////// 
# include " stdafx.h" 
#include <odbcinst.h> 
#include "ODBC.h" 
#include " . . //DCM.h" 

I { n 1 1 1 1 1 1 1 1 1 1 1 f ( I N 1 1 1 1 f 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 {/! i 1 1 1 1 1 1 ! I ! 1 1 1 1 1 1 1 1 1 i 1 1 1 f I 
} f Construction/Destruction 

1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 ( 1 1 1 1 1 1 1 1 1 ! 1 1 f f 1 1 1 1 ( 1 1 1 1 n 1 1 ! 1 1 1 1 1 1 1 1 1 1 n 1 1 1 { 1 1 1 1 1 f I n 

const CString ODBCDatabase :: db_DBName = "DCMDBase"; 
ODBCDatabase : : ODBCDatabase {) 

{ 

db_IsODBC=false; 

) 

ODBCDatabase : : -ODBCDatabase ( ) 

( 

// Close database connection 

TRY { if (db_ODBCdb. IsOpenO ) db_ODBCdb . Close () ; } 
CATCH (CExcept ion, e) { ; } 

END CATCH; 



/ 



^3 records 

}i6bl ODBCDatabase : :DBAdd (DIGOMRecord &dr) 

m . 

^. j if ( ! db_IsODBC) return DICOMDatabase DBAdd ( dr) ; 

if ( 1 dr . HasUniquePrimaryKeys {) ) return false; 

// Check for consistency 
UJI 0DBC4Set set; 

if ( set . HasAliasRecords (dr) ) return false; // violates DB tree structure 

// Insert 
f ODBCPatientSet ps; 

if ( 1 ps . AddOrUpdate (dr ) ) return false 

fl ODBCStudySet sts; 

if ( i sts . AddOrUpdate (dr) ) return false 

ODBCSeriesSet srs; 
"^"1 if ( ! srs . AddOrUpdate (dr) ) return false 
fl ODBCImageSet ims ; 

if ( 1 ims . AddOrUpdate (dr ) ) return false 

db_MostRecentRecord=dr ; 

return true; 

} 

* 

* Add objects, thread-safe 

bool ODBCDatabase :: DBAdd (DICOMObject *dob, PDU_Service *pdu) 
{ 

bool success = false; 

CSingleLock singleLock (&rdb_DBAddDDO_Cri ticalSection) ; 
singleLock . Lock ( 3 0 0 0 ) ; // attempt to lock the shared resource 

if ( singleLock. IsLocked ( ) ) // resource has been locked 

{ 

success = DICOMDatabase :: DBAdd (dob, pdu) ; 

} 

singleLock. Unlock { ) ; 
return success; 

} 

* Display records, thread-safe 
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void ODBCDatabase : : DisplayRecords ( Array<DICOMRecord> Sea, bool from_local) 

{ 

CSingleLock singleLock (<S:db_DisplayRecords_CriticalSect ion) ; 
singleLock . Lock ( 10000 ) ; // attempt to lock the shared resource 

if ( singleLock . I sLocked () ) // resource has been locked 

{ 

DICOMDatabase : : Di splayRecords ( a , from_local) r 

} 

singleLock. Unlock ( ) ; 

1 

* Add files and directories 

bool ODBCDatabase : :DBAddDirectoryContents ( char ^directory, bool copy_files, 

bool include_subdirec tor ie s/ * = true* / ) 

{ 

CString info ("Adding directory 
info += CString (directory) ; 

// Process individual file 

if (DICOMDatabase : : DBAddDirectoryContent s (directory, copy__f iles , 

include_subdirectories ) ) return true; 

// Processing Windows directory 
IJ^IM3 2_FIND_DATA wf ; 

// Add ' \\ ' to the end of directory string, if needed 
char dir [MAX_PATH] ; 
Q char clast - directory [ strlen ( directory )- 1 ] ; 

Tfz if (clast = =^ / ' II clast = =^ ' \\ ' ) sprintf (dir, "%s" , directory) ; 

else sprintf (dir, " %s\\" , directory) ; 

y-'^ // Set wildcard search mask 
ill char nf [MAX_PATH] ; 
\j sprintf (nf %s*" , dir) ; 
.J / / Search 

char f ullname [MAX_PATH] ; 
m HANDLE hf=FindFirstFile(nf ,&wf) ; 
m if (hf ==INVALID_HANDLE_VALUE) return false; 

do 

f'-- if ( strcmp (wf - cFileName , " . " ) = = 0) continue; 

f^: if ( strcmp (wf . cFileName = = 0) continue; 

sprintf (f ullname , " %s%s" , dir , wf . cFileMame) ; 
-'-'f if (wf . dwFileAttributes & FI LE_ATTRIBUTE_DIRECTORY) 

p if ( include_subdirectories) 

DBAddDirectoryContent s ( f ullname , copy_f iles) ; 

} 

} 

else 

{ 

DICOMDatabase: : DBAdd ( f ullname , copy_files) ; 

} 

} 

while ( FindNextFile (hf , &wf ) ) ; 
FindClose (hf ) ; 
return true; 

} 

■k 

* Remove files and directories 

int ODBCDatabase :: DBRemoveDirectoryContents ( char ^directory, 

bool use_f ilenames , bool include_subdirectories/*=true*/) 

{ 

CString info (" Removing directory "); 
info += CString (directory) ; 

// Process individual file 

if (DICOMDatabase : : DBRemoveDirectoryContents (directory, use__f i lenames , 
include_subdirector ies ) ) return true; 
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// Processing Windows directory 
WIN32_FIND_DATA wf ; 

// Add '\\' to the end of directory string^ if needed 
char dir [MAX_PATH] ; 

char clast = directory [strlen (directory) - 1 ] ; 

if ( clast = = ' / ' II clast = ='\\') spr intf ( dir %s directory) ; 
else sprint f (dir , " %s\\ " , directory) ; 

// Set wildcard search mask 
char nf [MAX_PATH] ; 
sprintf (nf , "%s*" ,dir) ; 
// Search 

char f ullname [MAX_PATH] ; 

HANDLE hf=FindFirstFile(nf ,&wf ) ; 

if (hf ==INVALID_HANDLE_VALUE) return false; 

do 

{ 

if ( strcmp (wf . cFileMame , " . " ) ==0 ) continue ; 

if { strcmp (wf . cFileMame = = 0 ) continue ; 

sprintf (f ullname, " %s%s " , dir , wf . cFileName) ; 

if (wf .dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) 

{ 

if (include_subdirectories) 

{ 

DBRemoveDirectoryContent s ( fullname , use_f ilenames) ; 

} 

} 

el se 

{ 

DICOMDatabase : : DBRemove ( fullname , use_f ilenames) ; 

2! while (FindNextFile (hf , Scwf ) ) ; 
y1 FindClose (hf ) ; 
ill return true; 

^ 

fl^ Remove all records from the database 
V^id ODBCDatabase : : RemoveAllRecords ( ) 

fc:i 

^ if ( Af xMessageBox ( " Are you sure you want to remove all database records 
MB_YESMO) == IDNO) return; 

''4 DICOMRecord dr ; 
p% int n = DBRemove (dr ) ; 
if(n>0) 

CString info; 

inf o . Format (" %d records were removed" ^ n) ; 
AfxMessageBox ( inf O, MB_ I CON INFORMATION) ; 

) 

else AfxMessageBoxC'No records found", MB_ICONINFORMATION) ; 

} 

■k 

* Open local records 

bool ODBCDatabase : iGetFromLocal (DICGMDataObject Scddo_mask) 

{ 

if ( ! db_I sODBC) return D I COMDatabase : : Ge tFromLocal ( ddo__mask) ; 
ODBCTableSet* pTR-NULL; 

pTR = (ODBCTableSet*) DICOMDatabase :: StartSearch (ddo_mask, 

RetrieveHierarchical) ; 

if(!pTR) return false; 
Array<DICOMRecord> found; 
CString fname; 
do 
{ 

fname - pTR- >Get Fx lename ( ) ; 
if ( f name==" " ) continue; 
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pTR->WriteIntoDICOMRecord (db_MostRecentRecord) ; 
found. Add (db_MostRecentRecord) ; 

} 

while (pTR->FetchNextRecord 0 ) ; 
StopSearch (pTR) ; 
DisplayRecords ( found , true) ; 
return true; 

} 

* Initialize database 

bool ODBCDatabase : : Init ialiseDataBase ( char ^directory, 

void ( cdecl *disp) (Array<DICOMRecord>&, bool)) 

{ 

if (! DICOMDatabase :: InitializeDataBase (directory , disp) ) return false; 

// Try to open ODBC connection 

if (Connect () ) return true; 

// Try to find the local DB file 

CString failedODBC = CStringC'DCM failed to setup ODBC database . \n" ) + 

CString (" File-based database will be used instead"); 
CString dbfilenew = CString (directory) ; 

int n = dbfilenew. Find( "\\Applic" , 0) r if(n>0) dbf ilenew=dbf ilenew. Lef t (n) ; 
CString dbfileold; 

dbf ileold. Format ( " %s\\%s . mdb" , dbfilenew, db_DBName) ; 
dbfilenew. Format ( " %s\\%s .mdb" , directory^ db__DBName) ; 
if (GetFileAttributes (dbf ilenew) ==-1) // no such file 

O { 

,n if (CopyFile (dbf ileold, dbfilenew, FALSE) == FALSE) 

CString nofile; 

=ij nof ile . Format (" Cannot find ODBC database file %s . \n" , dbf ileold) ; 

%] Af xMessageBox (nof ile+f ailedODBC, MB_ICONINFORMATION | MB_OK) ; 

ret um t rue ; 

p;^ II Try to reinstall the ODBC 

CString driver = "Microsoft Access Driver (*.Tndb)"; 
\ ^ CString config; 

config . Format ( ''DSN=%s; DESCRIPTION=DCM Application Database;" 
f^. »DBQ=%s; " ,db_DBName, dbfilenew); 

J'-:' if ( : :SQLConf igDataSource (NULL,ODBC_ADD_DSN, 
driver , config) FALSE) 

.p.^; AfxMessageBox(f ailedODBC, MB_1 CON INFORMATION | MB_OK) ; 

else 

{ 

if ( IConnectO ) AfxMessageBox (failedODBC, MB_ICONINF0RMATION | MB_OK) ; 

) 

return true; 

} 

A- 

* Remove records. Returns the number of deleted records 
int ODBCDatabase : : DBRemove (DICOMRecord Scdr_mask) 

{ 

if ( ldb_IsODBC) return DICOMDatabase : : DBRemove (dr_mask) ; 
0DBC4Set* pTR=NULL; 

pTR = (0DBC4Set*) StartSearch (dr_mask, RetrieveRelational) ; 

if(lpTR) return false; 

int removed=0; 

do 

{ 

RemoveUnique (pTR- >m__Pat lent ID , pTR- >m_Study Ins tUID , 

pTR->m_SeriesInstUID, pTR- >m_SOPInstUID) ; 
removed++ ; 

} 
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while (pTR->FetchNextRecord () ) ; 
StopSearch(pTR) ; 
return removed; 



* Search records 

ie 

void'^ ODBCDatabase : : StartSearch (DICOMRecord &dr_mask, const BYTE how) 
{ 

if ( ! db_IsODBC) return DICOMDatabase :: StartSearch {dr_mask, how) ; 
// Initialize appropriate class pointer for match/retrieve 
ODBCTableSet* pTR - NULL; 
TRY 

{ 

if (how==MatchRelat ional | | how==RetrieveRelat ional ) 
{ 

0DBC4Set* pSet = new 0DBC4Set(); 
pTR = pSet; 

} 

else if (how==MatchHierarchical ) 

{ 

BYTE lev = dr_mask . FindQLevel () ; 
if ( lev==DICOMRecord : : Level Inval id) 
{ 

ODBCPatientSef^ pSet = new ODBCPatientSet () ; 
pTR = pSet; 

else if (lev==DICOMRecord : : LevelPatient) 

01 ODBCStudySet* pSet new ODBCStudySet ( ) ; 

43 pTR = pSet; 

else if ( lev==DICOMRecord : : LevelStudy) 

QDBCSeriesSet^ pSet = new ODBCSeriesSet ( ) ; 
pTR = pSet; 

* else // lev==LevelSeries or lev==Level Image 

ODBCImageSet* pSet = new ODBCImageSet ( ) ; 
rl', pTR = pSet; 

p% else if ( how==Retr ieveHierarchical ) 

if ( I : ; IsUniqueString (dr_mask.GetSOPInstUID ( ) ) ) 
{ 

return ODBCDatabase :: StartSearch (dr_mask, RetrieveRelat ional ) 

} 

ODBCImageSet* pSet = new ODBCImageSet () ; 
pTR = pSet; 

} 

else return NULL; 
if(lpTR) return NULL; 

pTR->SetFindFilter (dr__mask) ; 

if ( !pTR->Open() ) { delete pTR; return NULL; } 

if (pTR->IsEOF() ) { pTR->Close(); delete pTR; return NULL; } 

return pTR; 
} // TRY 

CATCH (CExcept ion / e) 
{ 

if (pTR) delete pTR; 
return NULL; 

} 

END_CATCH; 

if (pTR) delete pTR; 

return NULL; 

} 

void ODBCDatabase StopSearch {void* pTR) 
{ 

if ( 1 db_IsODBC) DICOMDatabase : : StopSearch (pTR) ; 
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try { delete (ODBCTableSet * ) pTR; } 
catch( . . . ) { } 

} 

BYTE ODBCDatabase : :RetrieveNext (void* pTR, DICOMObject &dob_found] 

{ 

if ( ! db_IsODBC) return DICOMDatabase : : RetrieveNext (pTR, dob_f ound) ; 
if(!pTR) return RecordsEnd; 
ODBCTableSet* pTabRec = ( ODBCTableSet * ) pTR ; 

if ( lpTabRec->IsOpen ( ) |1 pTabRec - > I sEOF () ) return RecordsEnd ; 

bool loaded = dob_f ound, LoadFromFile ( (char*) (LPCSTR) (pTabRec->GetFilename ()) } 

pTabRec- >FetchNextRecord ( ) ; 

if (loaded) return RecordFound; 

else return FindMore; 

} 

BYTE ODBCDatabase : .-MatchNext (void* pTR, DICOMObject &dob_found, 

DICOMObject *dob_mask) 

{ 

if ( I db_I sODBC) return DICOMDatabase :: MatchNext (pTR , dob_found, dob_mask) ; 
if (!pTR) return RecordsEnd; 
ODBCTableSet* pTabRec = (ODBCTableSet * ) pTR ; 

if ( !pTabRec->IsOpen ( ) || pTabRec -> I sEOF () ) return RecordsEnd,- 
pTabRec->WriteIntoDICOM0bject (dob_f ound , dob_mask) ; 
pTabRec- >FetchIsrextRecord ( ) ; 
return RecordFound; 

} 

* Connect to the application database 

b|^l ODBCDatabase ;: Connect ( ) 

db_IsODBC = false; 
€i TRY 

if (db_ODBCdb- IsOpen 0 ) db_ODBCdb . Close () ; 
"^J CString con; 

S con. Format ( "DSN=%s; db_DBName) ; 

llj db_IsODBC = (db_ODBCdb .OpenEx (con, CDatabase : : noOdbcDialog) ==TRUE) ; 

return db_IsODBC; 

} 

r"- CATCH (CExcept ion, e) 

^1 #ifdef _DEBUG 

"'"J e->ReportError ( ) ; 

#endif 

p return db_IsODBC; 

END_CATCH; 

return db_IsODBC; 

} 

* Remove an entry with unique primary keys 

bool ODBCDatabase : :RemoveUnique (CString &pKey, CString &stKey, 

CString ScserKey, CString &iraKey) 

{ 

bool stop; 
TRY 

{ 

/ / Remove at image level 
ODBCImageSet ims ; 

ims . m_strFil ter , Format ( " Series Inst UID= ' %s ' " , serKey) ; 
if { 1 ims . Open ( ) ) return false; 

if ( 1 ims . CanUpdate ( )) ( ims. Close (); return false; } 
stop = false; 
while ( ! ims . IsEOF ( ) ) 

{ 

if ( ims . m_SOPInstUID 1 =imKey) stop=true ; 
else 

{ 

if { ims .m_Filename . Find {db_Di rectory , 0) >=0) 
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{ 

DeleteFile ( ims . m_Filename) ; 

} 

ims , Delete ( ) ; 

} 

ims . MoveNext ( ) ; 

} 

ims , Close ( ) ; 

if (stop) return true; 

// Remove at series level 
ODBCSeriesSet srs; 

srs .m_strFilter . Format ( " Study Ins tUID= ' %s ' " , stKey) ; 
if ( ! srs . Open ( ) ) return false; 

if ( i srs . CanUpdate ( )) { srs.Close(); return false; } 
stop = false; 
while ( ! srs . IsEOF ( ) ) 

{ 

if (srs . m_SeriesInstUID i= serKey) stop=true; 
else sr s . Delete () ; 

srs , MoveNext ( ) ; 

} 

srs . Close ( ] ; 

if (stop) return true; 

/ / Remove at study level 
ODBCStudySet sts; 

sts . m_str Filter . Format ( "Pat lent ID= ' %s ' " , pKey) ; 
if ( 1 sts . Open 0 ) return false; 
r| if ( 1 sts . CanUpdate ( )) { st s. Close (); return false; ) 

stop = false; 
while ( ! sts . IsEOF ( } ) 

Jj if [sts .m_StudyInstUID 1= stKey) stop=true; 

else sts.DeleteO; 
sts . MoveNext () ; 

St s . Close ( ) ; 
fH if (stop) return true; 

" // Remove at patient level 

^ ODBCPatientSet ps; 

ps .m_strFilter . Format (" Pat lent ID^ ' %s , pKey) ; 

if ( I ps . Open ( ) ) return false; 

if ( Ips . CanUpdate ( )) ( ps. Close (); return false; } 

\;i while ( !ps. IsEOF() ) 

ps . Delete () ; 

if ( Ips . IsEOF 0 ) ps .MoveNext 0 ; 

} 

ps .Close ( ) ; 
return true; 

} 

CATCH (CException, e) 
{ 

#ifdef _DEBUG 

e- >ReportError ( ) ; 

#endif 

return false; 

} 

END_CATCH; 
return false; 

} 

///////////////////////////////////////////////////////////////////////////// 
// 

// ODBCTableSet 
// 

///////////////////////////////////////////////////////////////////////////// 

IMPLEMENT_DYNAMIC (ODBCTableSet , CRecordset) 

ODBCTableSet: : ODBCTableSet ( CDatabase* pdb) 

: CRecordset ( theApp . app^DataBase . GetCDatabasePtr ( ) ) 
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{ 

m_nDef aultType = dynaset; 

} 

// Smart record-closing destructor 

ODBCTableSet t : -ODBCTableSet ( ) 

{ 

TRY { if(IsOpen(]) Close {) ; } 
CATCH (CExcept ion, e) { ; } 

END_CATCH; 

} 



est ring ODBCTableSet : : GetDefault Connect ( ) 

{ 

CString connect; 

connect . Format ( " ODBC ; DSN=% s " , theApp. app_DataBase . db_DBMame) ; 
return connect; 

} 

Itifdef _DEBUG 

void ODBCTableSet : :AssertValid ( ) const 
{ 

CRecordset : : AssertVal id ( ) ; 

} 

void ODBCTableSet :: Dump (CDumpContextSc dc) const 

{ 

CRecordset : ; Dump (dc) ; 

} 

#endif //_DEBUG 

Moving to next record, if possible 

411 

hopl ODBCTableSet: : FetchNextRecord ( ) 

Ci 

TRY 

fil if { ! I sOpen ( ) ) return false; 

MoveNext { ) ; 

^ ifdsEOFO) { CloseO; return false; } 

1^^ return true; 

CATCH (CExcept ion, e) { return false; } 

UJ END_CATCH; 
%J return false; 

fci 

* Append filter criteria 

void ODBCTableSet : :AndFilter (CString f Name , char *sValue) 

{ 

if ( : : IsEmptyString ( sValue) ) return; 
CString fValue = : : Tr im ( sValue ) ; 
if (fValue=-" " ) return; 

CString f ilter ("") ; 

CString and = {m_strFilter == ? : " AND"); 

if (f Name , Find {" Filename" , 0) <0 f Value . Find (' \\ 0 ) >0 ) // we have a set 
{ 

f Value. Replace \ \ ; 

filter. Format (" %s %s IN ('%s') and, f Name , fValue) ; 

filter .Replace ( ' * \ ' % ' ) ; filter .Replace ('?','_'); 

} 

else if (fValue . Find ('*', 0) >=0 || f Value . Find ('?', 0 ) >=0) // we have wildcards 
(. 

if ( fValue== " * " ] return; // anything goes 

filter, Format {" %s %s LIKE '%s' and, f Name , fValue); 

filter .Replace ('*','%'); f i Iter . Replace ( ' ? ' , ' ) ; 

} 

else // plain match 
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Beep(500, 100) ; 

if ( IGetSaf eHwnd ( ) ) return; 

if (m_SearchDialog.DoModal() \= IDOK) return; 
Beep(500, 100) ; 

m__RequestedClientService = f ind_root ; 
if ( !AfxBeginThread (Star tQRCl lent , this , 

GetThreadPriority () , m_Cl ientStackSize ) ) RunClientThread ( ) ; 

} 

void DQRControl: :FindAll 0 

if ( !m_LocalOnly) m_Pr eloadData= f al se ; //we preload only on local ! 

if (m^PreloadData) 

{ 

m_RequestedClientService=f ind_root ; 

if { ! AfxBeginThread (StartQRCl lent , this, GetThreadPriori ty( ) , 
m_ClientStackSize) ) RunCl ientThread ( ) ; 

} 

void DQRControl : :UpdateAfterFind(bool f ind_success) 

{ 

LoadFoundList ( ! f ind_success) ; 

if ( !f ind_success) AfxMessageBox {" Cannot find", MB_ICONEXCLAMATIOM | MB_OK) ; 
if (f ind_success m__DQR . Get FoundCount { ) >0 ) // Something's found 

{ 

// Set list selection 

if (m_RequestedClientService=f ind_previous) 

int nsel =m_ResultsLi St Select ion [max (l,m_DQR,GetLevel () ) -1] ; 
_ if (nsel<0 | | nsel>m_DQR. Get FoundCount () ) 

=11 nsel = 0; 

fn m_ButtonGet . EnableWindow (FALSE) ; 

'Z,^^ m But tonMoveTo . EnableWindow (FALSE) ; 

"'-J else 

m_ButtonGet . EnableWindow {nsel>0) ; 
m_ButtonMoveTo . EnableWindow (nsel>0) ; 

m__ResultsList .SetItemState(nsel,LVIS_SELECTED | LVI S__FOCUSED , LVI S_SELECTED \ LVIS_FO 

m ResultsList . EnsureVisible (nsel , FALSE) ; 



CySED) 



f] C-Get 

void DQRControl :: OnButtonGet ( ] 

{ 

Beep(500, 100) ; 
UpdateData (TRUE) ; 
int sel ; 

if ( GetResultsLi St Select ion (sel , m_DOB index) <2) 

{ 

AfxMessageBox (" Cannot get unspecified entry"); 
return; 

} 

Tn_RequestedClient Service=get__index ; 
if (in^UseTaskQueue) 

{ 

m_DQR. Get (m_DOB index, true); // queue 

} 

else 

if ( ! Af xBeginThread (StartQRClient , thi s , GetThreadPriori ty { ) , 
Tu ClientStackSize) ) RunCl ientThread () ; 
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* C-Move 

void DQRControl: : OnButtonMoveTo ( ) 
{ 

Beep(500,100) ; 
UpdateData (TRUE) ; 
int sel; 

if (GetResultsLi St Select ion [sel, m_DOB index) <2) 

{ 

AfxMessageBox (" Cannot move unspecified entry"); 
return; 

} 

UINT n=Tn_MoveArchiveList . GetCurSel ( ) ; 
if ( ! m_AEarray ) return; 

strcpy (m_MoveDest mat ionAE, m_AEarray- >Get (n) .ae_Title) ; 
m_Re que stedClient Service =move_index ; 
if (m_UseTaskQueue) 

{ 

m_DQR. Move (m__DOBindex,m_MoveDestinationAE , true) ; // queue 

} 

else 
{ 

if ( 1 AfxBeginThread (StartQRClient , this , GetThreadPriori ty ( ) , 
m_ClientStackSize) ) RunCl ient Thread () ; 

} 

* ff y 

* j% Run a CLIENT thready wrapped in C syntax 

UJa|T DQRControl :: StartQRClient (LPVOID ptrDQRControl ) 

Zl DQRControl* pDQRC= (DQRControl ) ptrDQRControl ; 

if (pDQRC==KrULL) return (UINT) FALSE; // illegal parameter 
s return pDQRC- >RunCl ient Thread () ; 

Thread-handling routines 

void DQRControl :: Set InterruptMode (bool interrupt) 
{ 

int sw = interrupt ? SW_HIDE : SW_SHOW; 
GetDlgItem(IDC__STATIC_MOVETO) - >ShowWindow ( sw) j 
if (m_LocalOnly ) 

{ 

GetDlgItem(IDC_BUTTON_DELETE) ->ShowWindov/(sv7) ; 

} 

m_ArchiveList . EnableWindow ( i interrupt && !m_LocalOnly) ; 
m_MoveArchiveList . ShowWindow ( sw) ; 
m_Resul t sList . EnableWindow ( 1 interrupt) ; 

m_ButtonSearch . ShowWindow ( sw) ; 
m_ButtonGet . ShowWindow ( sw) ; 
m^ButtonMoveTo . ShowWindow ( sw) ; 

// Enable animation 
if ( interrupt ) 

{ 

m^AnimNetwork . ShowWindow ( SW_SHOW) ; 

GetDlgItem(IDC_STATIC_PROGRESS) -> ShowWindow { SW_SHOW) ; 
m_AnimNetwork . Open ( IDR_AVI_CONNECT) ; 

} 

else 
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{ 

m_AnimNetwork- Close 0 ; 
m_AnimNetwork , ShowWindovj ( SW_HIDE) ; 
TTi_ButtonCancel . ShowWindow ( SW_HIDE) ; 

GetDlgItem(IDC_STATIC_PROGRESS) ->SetWindowText ( " ") ; 
GetDlgIteTn(IDC_STATIC_PROGRESS) ~>ShowWindow (SW_HIDE) ; 

} 

} 

* Thread-safe UpdateData 
* 

BOOL DQRControl :: UpdateData (BOOL bSaveAndVal idat e ) 

{ 

if (m_HWND) return FromHandle (m_HWND) ->UpdateData (bSaveAndValidate) ; 
else return FALSE; 

} 

*■ 

* Run client thread 

bool DQRControl: : RunClientThread ( ) 
{ 

//Disable window controls 
Set InterruptMode ( true ) ; 
// Lock on thread start 

CSingleLock singleLock ( &m__RunCl ientThread_CritSect ion) ; 
~f singleLock. Lock (3000) ; // attempt to lock the shared resource 

g""^ m_DQR. SetLastMessagelD (0) ; 

// Execute DIMSE service 
^"'■■^ bool success = f alse ; 
ifi^ switch (m_RequestedCl lent Service) 

J- { 

J"-" case echo: // C-Echo 

fy GetDlgItem(IDC_CONNECTION) -> 

^ SetWindowText ( "Archive connection: Verifying 

success = m_DQR.Echo(); 

if (success) GetDlgItem(IDC_CONNECTION) -> 
^« SetWindowText ( "Archive connection: Connected"),- 

^: else GetDlgItem(IDC_CONNECTION) -> 

'^^'^ SetWindowText (" Archive connection: Cannot connect"); 

break; 
case find_root: 

DICOMRecord dr ; 

m_SearchDialog. WritelntoDICOMRecord (dr) ; 
success=m__DQR . FindRoot (dr ) ; 

} 

UpdateAfterFind ( success) ; 

break; 
case f ind_previous : 

success=m__DQR . FindPreviousLevel ( ) ; 

UpdateAfterFind ( success) ; 

break; 
case find_next: 

succesg=m_DQR. FindNextLevel (Tn_DOBindex) ; 

UpdateAfterFind ( success) ; 

break; 
case find: 

if (m_DQR. Find ( ) ) UpdateAfterFind ( true) ; 
else 

{ 

CString info; 

info . Format (" Several records were removed from the local database\n\n" 
"Some of the records in the query results window\n" 
"may no longer be valid I'M; 

Af xMessageBox ( inf o, MB_ICONINFORMATION) ; 

} 

break; 
case get_index: 
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success=m_DQR . Get (m_DOBindex , false); // no queue 
LoadFoundLi st (false) ; 

if ([success) AfxMessageBox ( "Cannot get", MB_ICONEXCLAMATION | MB_0K:) ; 
break ; 
case move_index : 

success=m_DQR. Move (r[i_DOBindeX;m_MoveDestinationAE, false) ; // no queue 
LoadFoundLi St (false) ; 

if(lsuccess) AfxMessageBox ("Cannot move", MB_ICONEXCLAMATION | MB_OK) ; 
break; 

} 

m_DQR. SetLastMessagelD(O) ; 
SetlnterruptMode (false) ; 

// Signal thread end 
singleLock . Unlock ( ) ; 
Beep{700, 100) ; 

return success; // normal termination 

Get thread priority from DICOM message priority 



int DQRControl : : GetThreadPr ior ity ( ) 

{ 

if (m_DOR . GetPriority ( ) ServiceClass : : LowPr iori ty) 

return THREAD_PR IORI T Y_B E LO W_NORMAL ; 
if (m_DQR . Get Prior ity ( ) -= ServiceClass : iHighPriority) 
return THREAD_PRIORITY_ABOVE_NORMAL ; 
O return THREAD_PRIORITY_NORMAL ; 

*""=J Determine IP address of the local PC 

bf6l DQRControl : :GetLocaIIP (CString& sname, BYTE& ipl,BYTE& ip2, 

BYTE& ip3,BYTE& ip4) 

; , bool success - false; 

WORD wVersionRequested; 
iJ WSADATA wsaData; 
flj char name [255] ; 

est ring ip; 

PHO STENT host info; 
D wVersionRequested = MAKEWORD ( 2, 0 ); 
p% sname= " " ; 

if ( WSAStartup( wVersionRequested, &wsaData ) == 0 ] 

{ 

if( gethostname ( name, sizeof (name) ) =- 0) 

{ 

if((hostinfo = gethostbyname (name) ) != NULL) 

( 

ip = inet^ntoa (* (struct in_addr *) *hostinfo->h_addr_list ) ; 

sscanf ( (char*) (LPCSTR) ip, " %u . %u . %u . %u" , &ipl , &ip2 , &ip3 , &ip4) ; 

success = true; 

sname = CString (name) ; 

sname . Tr imRight ( ) ; sname . Tr imLef t ( ) ; 

sname .MakeUpper ( ) ; 

if (sname==" " ) sname =" This_PC " ; 

} 

} 

WSACleanup ( ) ; 

} 

if(!success) { ipl = 127; ip2 = 0; ip3 = 0; ip4=:l; } 

return success; 



* Server threads 
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UINT DQRControl: :StartQRServer (LPVOID index) 
{ 

UINT ae_index = (UINT) index; 

ApplicationEntityList *ael = (ApplicationEntityList 

{ SctheApp . app__DataBase . db_AElist ) ; 

if (ae_index>=ael- >Get Size () ) 

{ 

Af xEndThread ( 0) ; return 0; 

} 

ael->Get (ae_index) . Set PartnerTi tie ( ael - >GetLocalAE ( ) .ae_Title) ; 
Server srv ( &theApp . app_DataBase , SctheApp . app_ServerLog) ; 
MarkAEServerStatuses (ael , ae_index, true) ; 

srv.RunServer (& (ael->Get (ae_index) ) , false); // Multiple threads for CCancel ? 
MarkAEServerStatuses (ael , ae_index, false); 
Af xEndThread (1) ; 
return 1; 

} 

void DQRControl : :MarkAEServerStatuses (ApplicationEntityList *ael, UINT ae_index, 

bool status) 

{ 

if ( 1 ael ) return; 

if {ae_index>=ael->GetSize ( ) ) return; 

int nPort - ael ->Get ( ae_index) . ae_PortServer ; 

ael ->SetServedStatus (nPort , status) ; 

if ( 1 status) 

{ 

.^^.r^ CString info; info . Format (" Server at port %d abnormally terminated . \n" 

"Please restart the application,", nPort) ; 
AfxMessageBox(info, MB_ICONINFORMATION 1 MB_OK) ; 



bg|l DQRControl :: StartAEServer (UINT ae_index) 

if ( i m_AEarray) return false; 
US if(ae_index >= m_AEarray- >Ge t S ize ( ) ) return false; 
s if ( !m_AEarray->Get (ae_index) . ae^Served) // Need to start server 

L_ / / Launch server thread 

Q if (Af xBeginThread (StartQRServer , ( LPVOID) ae_index , 

THREAD__PRIORITY_BELOW_NORMAL, 10000) NULL) 

\i { 

^: return false; 

else // just wait for the server thread to start 

{ 

while (m_AEarray- >Get (ae_index) , ae_Served i= true) Sleep(lOO) 



return true; 



bool DQRControl: : StartAl iServers ( ) 

{ 

if ( !Tn_AEarray) return false; 
UINT f ailedCount=0; 
UINT nAEs = m_AEarray->GetSi2e ( ) ; 
for(UINX n=0; n< nAEs; n++) 

( 

ShowProgress (( 100* (n+1 )) /nAEs , "Initializing archive servers"); 
if ( I StartAEServer (n) ) failedCount ++; 
Sleep (10) ; 

} 

: : ShowProgress (0,0) ; 

if ( failedCount >0 ) AfxMessageBox (" Failed to launch server (s) for some AEg 
return ( f ailedCount=- 0) ; 
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* Function to be called from m_DQR and ServiceClass 

■k 

int DQRControl : :DQRCtrlCallbackFilter (void ^dqrctrl, UINT stepnum, UINT id) 
{ 

if(ldqrctrl) return 0; 
DQRControl'^ d; 

try { d = (DQRControl*) dqrctrl ; } 
catch (...) { return 0; } 
CString progress; 

if(stepnum == CallBackObj ect : :m_CBConnect ingToAE) 

{ 

progress = "Connecting to archive 

} 

else if(stepnura == CallBackObj ect : :Tn_CBConnectionFailed) 

{ 

progress = "Connection failed 
d- >m_AniraWetwork . Close ( ) ; 

} 

else if(stepnum == CallBackObj ect : :m_CBSendingRequest ) 

{ 

progress = "Sending request 
d- >m__AniTnMetwork . Close ( ) ; 
d->m_AnimNetwork,Open{ IDR_AVI_SEND) ; 

} 

else if(stepnum == CallBackObj ect : :Tn_CBGettingResponse) 

{ 

ri progress = "Getting response 

,7i d->m_AniTnNetwork. Close { ) ; 

2: d->m_AnimNetwork.Open (IDR_AVI_RECEIVE) ; 

0"^ d->EnableCancel 0 ; 

T"^ else if(stepnum == CallBackObj ect :: m_CBResponseReceived] 

progress = "Response received" ; 
iJJ d- >m_AnimNet work . Close () ; 

d->m_AniTnNetwork . ShowWindow ( SW_HIDE) ; 
d- >m_ButtonCancel . Shov/Window ( SW HIDE); 

f } 

else if(stepnum == CallBackObj ect : :m_CBCancelSent ) 

progress = "Cancel request sent"; 
else if(stepnum ~= CallBackObj ect :: m_CBDQRTaskSchedule) 
J! if (d->Tn_PromptForTaskScheduler] 

d->m_TaskScheduler .RunScheduler (* ( (DQRTask*) id) , true) ; 

} 

return 1; 

} 

else { } 
if (progress 

{ 

d->GetDlgItem{IDC_STATIC_PROGRESS) - >ShowWindow ( SW_SHOW) ; 
d->GetDlgItem(IDC_STATIC_PROGRESS) - > SetWindowText (progress) ; 

} 

return d- >ra_DQR . DQRCallbackFi Iter ( stepnum, id) ; 

) 

* Drug and drop support 

void DQRControl : :OnBeginDragListResults (NMHDR* pNMHDR, LRESULT* pResult) 
{ 

NM__LISTVIEW* pNMListView = (NM_LISTVIEW* ) pNMHDR; 

theApp . app_QueryRetrieve . OnBeginDrag ( & ( this- >m_Resul t sLi st ) , pNMHDR) ; 
*pResult = 0; 

} 

void DQRControl : :DropOn (CWnd '^win) 
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if ( ! win) return; 

if (win->GetParerLt ( ) Af xGetMainWnd () || 

(win->GetTopLevelFrame 0 Af xGetMainWnd ( ) && win->GetParent ( ] ! =this 
win- >Get Parent Frame ( ) ! = t hi s ~ >Get Parent Frame () ) ) 

{ 

OnButtonGet ( ) ■ 
return; 

} 

int nid = win- >GetDlgCtrl ID ( ) ; 

if (nid= = IDC_LIST_RESULTS) // drop on results lisst 

{ 

CWnd* par = win- >GetParent ( ) ; 

if(!par || par =- (CWnd* ) thi s ) return; 

DQRControl* destin = NULL; 

try 

{ 

destin = (DQRControl* ) par ; 
if(!destin) return; 

UINT nAEFrora = m_ArchiveLi st . GetCurSel { ) ; 

UIMT nAETo = dest in- >m_ArchiveList . GetCurSel ( ) ; 

if(nAEFrom nAETo) 

{ 

Af xMessageBox ( "You cannot copy to the same archive 1"); 
return; 

} 

m_MoveArchiveList . SetCurSel (nASTo) ; 
UpdateData (FALSE) ; 
OnButtonMoveTo 0 ; 



} 



} 

catch ( . 
return; 



vQid DQRControl :: DropOn (CWnd *wdrag, CWnd *wdrop) 

fy if (wdrag != (CWnd* ) ( &m_Result sList ) ) return; 
_ DropOn ( wdrop) ; 



*Jif Column soxts 

void DQRControl : :OnHeaderClicked(NMHDR *pNMHDR, LRESULT *pResult) 
{ 

HD_NOTIFy *phdn = (HD^NOTIFY *) pNMHDR; 

if ( phdn- >iButton == 0 && m_ResultsList . Get I temCount ( ) >2 ) 

{ 

// User clicked on header using left mouse button 
if ( phdn->iltem == m^nSortColumn ) 

m_bSort InlnsreasingOrder = ! m_bSort InlnsreasingOrder ; 
else m_bSort InlnsreasingOrder = true; 

m_nSortColumn = phdn->iltem; 

m^ResultsList . Sort Items (Compareltems , (DWORD) this) ; 

} 

*pResult = 0; 

} 

int CALLBACK DQRControl :: Compareltems (LPARAM IParaml, LPARAM lParam2, 

LPARAM IParamSort) 

{ 

int comp=0; 

DQRControl* pDQRCtrl = (DQRControl* ) IParamSort ; 
if ( ipDQRCtrl) return 0; 

// Check if we work with the parent item 

if ( (DWORD) IParaml == m_ParentList ItemData) return -1; 

if ( (DWORD) lParam2 m_ParentLi st I temData) return 1; 

// Find item index from item data 

LVFINDINFO info; 

info, flags = LVFI_PARAM; info.lParam = iParaml; 

int indl = pDQRCtrl->m_ResultsList . Findltem ( &inf o) ; 
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if(indl -1) return 0; 

info. flags = LVFI_PARAM; info.lParam = lParam2; 

int ind2 = pDQRCtr 1 - >Tn_Resul t sLi st . Findl tern ( &inf o] ; 

if(ind2 -1) return 0; 

// Compare the items 

int col = pDQRCtrl ->m_nSort Column ; 

CString si = pDQRCtrl->m_ResultsList . GetltemText ( indl , col) ; 
if(sl=-"*" II sl=="?" II sl==" " II sl=="") return 1; 
CString s2 = pDQRCtrl->m_ResultsList . GetltemText (ind2 , col); 
if(s2 = = "*" II s2 = ="?" II s2 = = " II s2 = ="") return -1; 
if ( col == m__ColumnBDate | | col m_ColumnBTime ] | 

col == m_ColumnSDate | | col m_ColumnSTime ) // dates 

{ 

COleDateTime dtl, dt2; 
dt 1 . ParseDateTime ( si) ; 

if (dtl .GetStatus 0 != COleDateTime valid) return 1; 
dt2 . ParseDateTime ( s2 ) ; 

if (dt2 , GetStatus ( ) 1= COleDateTime :: valid) return -1; 

if(dtl<dt2) comp=-l; 

else 

( 

if(dtl>dt2) comp=l; 
else comp=0; 

} 

} 

else if (col == m_ColumnSImgNum) // numbers 

{ 

int nl = atoi (si) ; 
int n2 = atoi(s2); 
if(nl<n2) comp=-l; 
■41 else 

if (nl>n2) comp=l; 
else comp^O; 

else // strings 




comp = si . CompareNoCase ( s2 ) ; 



= if ( J pDQRCtrl-->m_bSortInInsreasingOrder) comp = -comp; 
return comp; 

Task-processing threads 

UINT DQRControl : :RunTaskQueueThread(LPVOID pCtrl) 
{ 

if(!pCtrl) return (UINT) FALSE; 
DQRControl* pDQRC = (DQRControl* ] pCtrl; 
while (true) // task-processing loop 

{ 

pDQRC->UpdateTask.View(pDQRC->m_DQR.ExecuteMextTask() ) ; 
Sleep(lOOO) ; 

} 

} 

bool DQRControl : : StartTaskQueue ( ) 
{ 

if ( lm_UseTaskQueue) return true; // no queues 
return (Af xBeginThread (RunTaskQueueThread, this, 

THREAD_PRIORITy_LOWEST, m_ClientStackSize) 1= NULL); 

} 

void DQRControl : :UpdateTaskView (bool reload_list) 

{ 

if (reload_list ) m_TaskView . LoadTasksLi st ( ) ; 
m_TaskView. UpdateClock 0 ; 

} 
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* Persistent storage 

void DQRControl : : SerializeDQRControl (bool is_loading) 

{ 

CString fname = theApp , app_DirectoryData ; 

if (m_LocalOnly) return; //fname += CString (" WlocTasks , dat ") ; 
else fname += CString (" \\remTasks . dat ") ; 

FILE* fp; 

fp = fopen( (char*) (LPCSTR) fname, is_loading ? "r" : "w"); 
if ( ! f p) return ; 

: : Serializebool ( f p , m_PromptForTaskScheduler , is_loading) ; 
if (Tn_UseTaskQueue) 

{ 

if ( ! is_loading ) 

{ 

if (m_DQR. GetTasksSize ( ) >0 

AfxMessageBox (" Save your queued queries?", 
MB_ICONQUESTION ] MB_YESNO) === IDYES ) 

{ 

m_DQR. SerializeDQR(fp; is_loading) ; 

} 

) 

else m_DQR. Serial izeDQR (fp, is_loading) ; 

} 

f close ( f p) ; 

* Task Scheduler 

* yj 

vpj^Jd DQRControl : : SetTaskSchedulerPrompt (bool enable) 

%J m_PromptForTaskScheduler = enable; 

Oi // prompts on local or without queues 

if (m_LocalOnly || ! m_UseTaskQueue) m PromptForTaskScheduler=f al se 

btol DQRControl : : GetTaskSchedulerPrompt ( ) 

return m_Prompt ForTaskScheduler ; 
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#if ! defined (AFX_DQRTASKVIEW_H_INCLUDED_) 
#def ine AFX_DQRTASKVIEW_H_INCLUDED_ 

#if _MSC_VER > 10 0 0 
#pragma once 

#endif // _MSC_VER > 1000 

// dqrtaskview. h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// DQRTaskView dialog 

class DQRTaskView : public CDialog 

{ 

// Construction 



public : 

void UpdateClock ( ) ; 

void LoadTasksList ( ) ; 

bool AttachDQR(DQR* pDDR) ; 



DQRTaskView (CWnd* pParent = NULL) ; // standard constructor 
-DQRTaskView ( ) { m_ImageLi st . Delete ImageLi st () ; }; 

// Dialog Data 

// { {AFX_DATA (DQRTaskView) 

enum { IDD - IDD_DIALOG_DQRVIEW }; 

CListCtrl m_TasksList ; 

//} }AFX_DATA 



/y£l)ver rides 

d% II ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (DQRTaskView) 
protected: 

^ij virtual void DoDa taExchange ( CDataExchange* pDX) ; // DDX/DDV support 
/y } }AFX_V1RTUAL 

/ I Tup 1 erne n t a t i on 
p^Stected : 

// Generated message map functions 
: //{ {AFX_MSG (DQRTaskView) 

virtual BOOL Onini tDialog { ) ; 
rj afx_msg void OnDelete () ; 
Si; afx__msg void OnRescheduleTask () ; 
f^f //}}AFX_MSG 
'^1 DECLARE_MESSAGEjy[AP() 

f^-^ const static int m^ColumnTasks , m_ColumnArchive , m_ColumnData , 

m^ColumnAt tempts , m_ColumnSchedule ; 
CImageList m_ImageList ; 

DQR* m_pDQR; 

}; 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 

II DQRTaskSchedule dialog 

class DQRTaskSchedule : public CDialog 
{ 

// Construction 
public : 

void RunScheduler (DQRTask& t, bool prompt); 

void ScheduleTask (DQRTask& t); 

DQRTaskSchedule (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA (DQRTaskSchedule) 

enum { IDD = IDD_DIALOG__DQRVIEW_SCHEDULE }; 

CComboBox m_ComboTo; 

CComboBox m_ComboFrom; 

CTime m_EndDate; 

CTime m^EndTime; 

CTime m_StartDate; 

CTime m_StartTime; 
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UINT m_At tempt s; 

// } }afx_data 



// Overrides 

// ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (DQRTaskSchedule) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 
// } }AFX_VIRTUAL 

// Implementation 
protected : 

// Generated message map functions 
/ / { { AFX_MSG (DQRTaskSchedule) 
afx_msg void OnSelChangeComboFrom ( ) ; 
virtual BOOL Onini tDialog ( ) ; 
afx^msg void GnSelChangeComboTo ( ) ; 
virtual void OnOK(); 
//} }afx_msg 

DECLARE_MESSAGE_MAP { ) 
private : 

BYTE m_FromIndex, m_ToIndex; 

}r 

' //{ {afx_insert_location} } 
// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 

#e^i4if // ! defined (AFX_DQRTASKVIEW_H_INCLUDED_) 
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// dqrtaskview. cpp : implementation file 
// 

#include "stdafx.h" 
# include . .\DCM.h" 
# inc lude " dqrtaskview . h" 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////^///^^^^^^^^^^ 
// DQRTaskView dialog 

const int DQRTaskView : :m_ColumnTasks = 0; 
const int DQRTaskView : :m_ColumnArchive = 1; 
const int DQRTaskView : :m_ColumnData = 2; 
const int DQRTaskView :: m_ColumnAttempts - 3; 
const int DQRTaskView :: m_ColumnSchedule = 4; 

DQRTaskView: : DQRTaskView (CWnd* pParent /*=NULL*/) 
: CDialog (DQRTaskView: : IDD, pParent) 

^ //{ {AFX_DATA__INIT (DQRTaskView) 

// NOTE: the ClassWizard will add member initialization here 
//} }AFX_DATA_INIT 
r.,.;. m pDQR = NULL; 

]^ - 

volkjd DQRTaskView: :DoDataExchange (CDataExchange* pDX) 

""^1 CDialog: :DoDataExchange (pDX) ; 
dl 1 1 { { AFX__DATA_MAP (DQRTaskView) 

% DDX_Control(pDX, IDC_LI ST_TASKS , m_TasksList) ; 

2t // } }afx_data_map 

b£gIK_MESSAGE_MAP (DQRTaskView, CDialog) 
y //{ {aFX_MSG_MAP (DQRTaskView) 
Hi ON_BN_CLICKED ( ID_DELETE, OnDelete) 
L"n ON_BN_CLICKED (ID_RESCHEDULE, OnRescheduleTask) 

™: //} }afx_msg_map 

E£i_MESSAGE_MAP ( ) 

/////////////////////////////////////////////////////////////^^^//////^^^^/^^ 

// DQRTaskView message handlers 

bool DQRTaskView: :AttachDQR(DQR* pDQR) 

{ 

if(lpDQR) return false; 
m_pDQR - pDQR; 
return true; 

} 

BOOL DQRTaskView: :OnInitDialog 0 
{ 

CDialog: : OnlnitDialog ( ) ; 

// TODO: Add extra initialization here 

/* SET m_TasksList : */ 
// 1. Load icons 

if (m_ImageList . m_hImageList==NULL) 

^ if ( !m_ImageList. Create (16, 17, ILC__C0L0R4, 3,1) ) 
{ return FALSE; } 

m_ImageList .Add(theApp.LoadIcon(IDI_TASK_DOWNLOAD) ) ; 
m_ImageLi St • Add ( theApp . Loadlcon ( IDI_TASK_SCHEDULE ) ) ; 

m TasksList.SetlmageList (&m_ImageList ,LVSIL_SMALL) ; 
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// 2. Load columns 

m^TasksList . InsertColuTnn(m_ColumnTasks/'Task Status", LVCFMT_CENTER, 110 , 0) ; 
m_TasksList . InsertColumn (m_ColumnArchive , "Archive" , LVCFMT_CENTER , 110,0) ; 
m_TasksList . InsertColumn (m_ColumnData , "Data" , LVCFMT_CENTER, 190,0) ; 
m_TasksList . InsertColumn (m_ColumnAttempt s , "Attempts" , LVCFMT_CENTER , 50,0) ; 
m_TasksList . InsertColumn (m_ColumnSchedule , "Schedule" , LVCFMT_CENTER, 80, 0) ; 
m_TasksList . SetColumnWidth (m_ColumnSchedule , LVSCW_AUTOS I ZE_USEHEADER) ; 
// 3. Force entire row selection 

m_TasksList , SetExtendedStyle ( LVS_EX_FULLROWSELSCT | LVS_EX_SUBITEMIMAGES 

I LVS_EX_GRIDLIMES) ; 

// Display current tasks 
LoadTasksLi St ( } ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

■k 

* (Re) Load the list of tasks 
* 

void DQRTaskView: : LoadTasksList ( ) 
{ 

if(!m_pDQR 1| 1 m_TasksList . GetSaf eHwnd ( ) ) return; 
m_TasksLi st . Dele teAl II terns ( ) ; 
char s [12 8] ; 
int nitem, nItemType; 

est ring sItemType; 
^11 DQRTask t; 

""1- for (int n=m_pDQR- >GetTasksSize ( ) - 1 ; n> = 0; n--) 

"^1 if ( !m_pDQR->GetTask (n, t ) ) continue; 

iHl // Find out the item type 

7^. if ( t . CanExecuteNow ( ) ) 

nltemXype = 0; sItemType = " In Progress..,"; 

} 

else 

LrJ if ( t , CanExecuteLater 0 ) 

L""" nItemType = 1; sItemType = " On Schedule"; 

>b;rj' else 

nItemType = 0; sItemType = " Finishing ..."; 

} 

} 

nitem = m_TasksLi st , Insert I tern (n , sItemType, nItemType); 
m_pDQR- >GetAELocat ion ( t . m_nAE , s) ; 

m_TasksList . Setltem(nltem, m_ColumnArchi ve , LVIF_TEXT, s, 0, 0, 0, 0); 
sprintf ( s , " %s, %s", t . m_DRdata . GetPat ientName ( ) , t , m_DRdata . GetPat lent ID ( ) 
m_TasksList . Setltem (nItem, m_ColumnData , LVIF_TEXT, s, 0, 0, 0, 0); 
sprintf(s, "%d", t . GetExec ( ) ) ; 

m_TasksList . Set Item(nltem, m_ColumnAt tempts , LVIF_TEXT, s, 0, 0, 0, 0); 
t . Forma tSchedul est ring ( s , 127) ; 

m_TasksList , Set I tern (nItem, m_ColumnSchedule , LVIF_TEXT, s, 0, 0, 0, 0); 
m__TasksList . SetltemData (nltem^ t . Get ID ( ) ) ; 

} 

// Prevent horizontal scroll 

m_TasksList . SetColumnWidth (m_ColumnSchedule , LVSCW_AUTOS IZE_USEHEADER) ; 
UpdateClock ( ) ; 

} 

* Update clock on the dialog 
void DQRTaskView: :UpdateClock ( ) 

{ 
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if ( IGetSafeHwndO ) return; 
// Show current date and time 
CTime tm = CTime : : GetCurrentTime ( ] ; 
GetDlgltem ( IDC_CURRENT) 

->SetWindowText (tm, Format (" %A, %d %B %Y, %Hh %Mm %Ss")); 

* Delete selected tasks 
void DQRTaskView: :OnDelete 0 

{ 

if ( !m_pDQR) return; 

POSITION pes = m_TasksList -GetFirstSelectedltemPosition ( ) ; 
if (pos == NULL) return; // nothing selected 
int sel=~l; 
UINT taskID; 
while (pos) 

sel = m_TasksList .GetNextSelectedltem(pos) ; 
if ( se 1 < 0 ) cont inue ; 

taskID = m_TasksList . Get ItemData ( sel) ; 
m_pDQR->ReTnoveTaskID ( taskID) ; 

} 

LoadTasksList ( ) ; 

} 



* y;i Reschedule selected tasks 

* 'i 

vofe DQRTaskView: : OnRe scheduleTask ( ) 

nii if (imjDQR) return; 

POSITION pos = m_TasksList -GetFirstSelectedltemPosition 0 ; 
^ if (pos ^= NULL) return; // nothing selected 
1^^" int sel = -l; 

r% UINT taskID; 

DQRTask* pTask; 
^■=11 DQRTaskSchedule dts; 

""=^1 if (dts .DoModal ( ) IDOK) return; 

ri; while (pos) 

sel = m_TasksList .GetNextSelectedItem{pos) ; 
if(sel<0) continue; 

taskID = m_TasksList .GetltemData { sel) ; 
pTask = m_pDQR->GetTaskPtrFromID (taskID) ; 
if (pTask) dts. ScheduleTask (^pTask) ; 

} 

LoadTasksList ( ) ; 

} 



// DQRTaskSchedule dialog 

DQRTaskSchedule : :DQRTaskSchedule (CWnd* pParent /*=NULL*/) 
: CDialog (DQRTaskSchedule :: IDD, pParent) 

{ 

// { {aFX_DATA_INIT (DQRTaskSchedule) 
m_EndDate = CTime :: GetCurrentTime () ; 
m_EndTime = CTime :: GetCurrentTime () ; 
m_StartDate = CTime :: GetCurrentTime () ; 
m_StartTime = CTime :: GetCurrentTime () ; 
m_At t emp t s = 1 ; 
//} }AFX_DATA_INIT 
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m_FromIiidex=m_ToIndex= 0 ; 

} 



void DQRTaskSchedule : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
//{ {AFX_DATA__MAP (DQRTaskSchedule) 
DDX_Control (pDX, IDC_COMBO_TO , m_ComboTo) ; 
DDX_Control (pDX, IDC_COMBO_FROM , m^ComboFroin) ; 
DDX_DateTimeCtrl (pDX, IDC_END_DATE, m_EndDate) ; 
DDX_DateTimeCtrl (pDX, IDC_END_TIME, ni__EndTime ) ; 
DDX_DateTimeCtrl (pDX, IDC_START_DATE , m_StartDate) ; 
DDX_DateTimeCtrl (pDX, IDC_START_TIME , m_StartTime) ; 
DDX_Text {pDX, IDC_ATTSMPTS , m_Attempts} ; 
DDV_MinMaxUInt (pDX, m_Attempts, 1, 5); 
// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (DQRTaskSchedule , CDialog) 
// { {AFX_MSG_MAP (DQRTaskSchedule) 

OM_CBN_SELCHAMGE (IDC_COMBO_FROM, OnSelChangeComboFrom) 
ON__CBN_SELCHANGE (IDC_COMBO_TO, OnSelChangeComboTo) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 

//_ DQRTaskSchedule message handlers 

vcgli DQRTaskSchedule: : OnSelChangeComboFrom () 

m__Fromlndex = m__ComboFrom. GetCurSel ( ) ; 
est ring txt; 

m_ComboFrom. GetWindowText ( txt J ; 
Si int sw = (txt = =" specif ic time" ? SWJSfORMAL : SW_HIDE) ; 
GetDlgItem(IDC_START_DATE) - >ShowWindow ( sw) ; 
GetDlgItem(IDC_START_TIME) - >ShowWindow ( sw) ; 

}§ 

v®aid DQRTaskSchedule: : OnSe IChangeComboTo () 

C 

;\ m_ToIndex = m_ComboTo . GetCurSel () ; 
t'' CString txt ; 

Q m_ComboTo . GetWindowText ( txt ) ; 

Slj int sw = (txt = = " specif ic time" ? SW_NORMAL : SW_HIDE) ; 
I'^t GetDlgltem (IDC_END_DATE) ->ShowWindow( sw) ; 
'"'^1 GetDlgl tern ( IDC__END_TIME) ->ShowWindow ( sw) ; 

bS6l DQRTaskSchedule: : Onini tDialog ( ) 

{ 

CDialog: : OnlnitDialog ( ) ; 

m_ComboFrom. SetCurSel (m_FromIndex) ; OnSelChangeComboFrom ( ) ; 
m__ComboTo, SetCurSel (m_ToIndex) ; OnSelChangeComboTo ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTIOM: OCX Property Pages should return FALSE 

} 

void DQRTaskSchedule : :OnOK() 

{ 

UpdateData (TRUE) 

CDialog : :OnOK( ) ; 

} 

* Write schedule information into a task 
void DQRTaskSchedule :: ScheduleTask (DQRTask &t) 

{ 

CTime tm; 

// 1. Find out start date/time 



4 



AEOptions_Dialog. cpp 



10/27/00 



// No choice was made from the listbox, 
// and the edit control was empty 
m_List Index- 0 

m_AEComboList . SetCurSel { 0) ; 
UpdateAllFields ( true} 

} 

else if ( (n=m_AEComboList . FindStringExact (-1, inf o) ) != CB_ERR) 
{ 

// The edited string already exists 
Tn_List Index=n; 
m_AEComboList . SetCurSel (n) ; 
UpdateAllFields (true) ; 

} 

else 

{ 

// Totally new string was entered 

m_ASarray->Get (ra_ListIndex) . SetLocation ( (char*) (LPCSTR) info) ; 
Tn_AEComboList . SetCurSel (m_List Index) ; 

} 

} 



* Buttons 

vc^d AEOptions_Dialog: :0nOK( } 

Z^. II TODO : Add extra validation here 

UpdateAllFields (false) ; 
"^'J OnCloseupComboAeList 0 ; 

CDialog: : OnOK () ; 

vgid AEOptions_Dialog : :OnAENew() 

^. ApplicationEntity a("<Mew AS Title>", 255,255,255,255); 
L,i m__AEarray->Add (a) ; 

^7 ResetAEList (m_AEarray- >GetUpperBound ( ) ) ; 
vp|d AEOptions__Dialog : :OnAeClone() 

UpdateAllFields (false) ; 
LI ApplicationEntity a = m_AEarray->Get (m_List Index) ; 
Q CString s; s , Format (" %s_Copy" , a . ae_Title) ; 

s = s . Lef t (min ( s .GetLength ( ) f 16] ) ; 

a. SetTitle ( (char*) (LPCSTR) (s) ) ; 

m_AEarray- >Add (a) ; 

ResetAEList (m_AEarray->GetUpperBound ( ) ) ; 

} 

void ASOpt ions_Dialog : :OnAEDelete() 
{ 

int ind = m_AEComboList . GetCurSel ( ) ; 
if(ind ( int ) m_AEarray- >GetLocalIndex ( ) ) 

{ 

Af xMessageBox { " You cannot delete local AE", 
MB_ICONEXCLAMATION|MB_OK) ; 

return; 

} 

if ( ind>= ( int ) (m_ASarray- >GetSize 0 ) |1 ind<0) return; 
m_AEarray->RemoveAt ( md) ; 
if ( ind>0 ) ind- - ; 
ResetAEList ( ind) ; 

} 



* Totally reset AE list 

it 
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void AEOptions_Dialog : : ResetAELi st ( int new__select ion) 

( 

m__AEComboList .ResetContent ( ) ; 
CString loc; 

for(UINT i = 0; i<Tn_AEarray->GetSize () ; i + +) 

{ 

loc=CString (m_AEarray- >Get ( i ) . ae_Locat ion) ; 

if ( i==m_AEarray- >Get Local Index ( ) loc . Find ( " <Local> " } < 0 ) 

{ 

loc=CString ( " <Local> ")+loc; 

} 

m_AEComboList . Insert String ( i , loc) ; 

} 

if (new_select ion>= ( int ) (m_AEarray- >GetSize ( ) ) || nevj_select ion< 0 ) new__select ion=0 
m_List Index=new_selection; 
m_AECo^lboList . SetCurSel ( new_select ion) ; 
UpdateAllFields (true) j 



* 

* Update selection index 

void AEOpt ions_Dialog : : OnSelchangeComboAeList () 

{ 

m_List Index =m_AEComboList , GetCurSel ( ) 
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#if ! defined (AFX_DQRCONTROL__H_INCLUDED_) 
#def ine AFX_DQRCONTROL_H__INCLUDED_ 

#include " . . \Controls , h" // Added by ClassView 
#include " dqrtaskview . h" // Added by ClassView 
#if _MSC_VER > 1000 
#pragma once 

#endif // _MSC_VER > 1000 

// dqrcontrol -h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// DQRSearch dialog 

class DQRSearch : public CDialog 

{ 

// Construction 
publ ic : 

void WritelntoDICOMRecord (DICOMRecord& dr) ; 

DateTimeSegment* GetBirthDatePtr ( ) ; 

DQRSearch (CWnd* pParent = NULL); // standard constructor 
// Dialog Data 

//{ {AFX_DATA{DQRSearch) 

enum { IDD = IDD_D IALOG_DQRSEARCH }; 
CString m_Pat lent ID ; 
CString m_PatientName ; 
CString m_AccessionMuTnber ; 
CString m_StudyID; 
CString m_StudyInstUID ; 
CString m_Modality; 
J; // } }AFX_DATA 

/ )^:Overr ides 

'"^^ // ClassWizard generated virtual function overrides 
//{ {AFX_VIRTUAL (DQRSearch) 
protected: 

J.; vj_3;t^al void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
nj // } )AFX_VIRTUAL 

I'xLi Implementation 
p^ptected : 

%^ 11 Generated message map functions 
P; //{ {AFX__MSG (DQRSearch) 

virtual BOOL Onini tDialog ( ) ; 
-^r virtual void OnOK() ; 

'^'^ afx_msg void OnBut tonAdvancedOrBasic ( ) ; 
//}}afx_msg 

DECLARE_iyiESSAGE_MAP ( ) 
private : 

bool m_Advanced; 

DateTimeControl m_B irthDateControl , m_BirthTimeControl , 

m_StudyDateControl , m_S tudyTimeControl ; 

void SizeDialogArea ( ) ; 

}; 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 U 1 1 1 / 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

11 DQRControl dialog 

class DQRControl : public CDialog 
{ 

// Construction 
public : 

void SetTaskSchedulerPrompt (bool enable); 

void LoadArchiveLi st (UINT selection = 0) ; 

void DropCn(CWnd* wdrag , CWnd* wdrop] ; 

void UpdateAf terFind (bool f ind_success) ; 

void Set InterruptMode (bool interrupt); 

void SetPr iority (BYTE priority) { m_DQR . Set Priori ty (priori ty) ; } 

void ShowTaskView( ) { if (HasTaskQueue () ) m__TaskView . DoModal ( ) ; 

bool DisplayOverControl ( int controlID, CWnd ^parent); 
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bool 
. bool 

bool 
BYTE 



GetTaskSchedulerPrompt ( ) ; 

CreateDQRControl (DICOMViewLog* ptrClientLog, DICOMDatabase* ptrDB, 

bool local_only) ; 
HasTaskQueue ( ) { return m_UseTaskQueue ; } 



GetPriority ( ) 



{ return m_DQR . GetPriority () ; }; 



DQRControl (CWnd* pParent = NULL) 
-DQRControl () ; 



// constructor 
// destructor 



// Dialog Data 

// { (AFX^DATA' 

enum { IDD = 

CAnimateCtrl 

CButton 

CButton 

CButton 

CButton 

CListCtrl 

CComboBox 

CComboBox 

// ) }afx_data 



DQRControl) 
IDD_DIALOG_DQRCONTROL 

m__AnimNe t work ; 

m_ButtonSearch 

m_ButtonCancel ; 

TU_ButtonMoveTo ; 

m_ButtonGet ; 

m_ResultsList ; 

m_MoveArchiveList ; 

m_ArchiveList ; 



// Overrides 

// ClassWizard generated virtual function overrides 
/ / { {AFX_VIRTUAL (DQRControl) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

// } }apx_virtual 

/ ^3 1 mp 1 emen t a t i on 
pEJStected : 

,1' void OnHeaderClicked(NMHDR* pNMHDR, LRESULT* pResult) ; 

%J II Generated message map functions 

//{ {AFX_MSG (DQRControl) 

virtual BOOL Onini tDial og () ; 
"-^i afx_msg void OnButtonStart Search () ; 
J"-'; afx^msg void OnBut tonGet ( ) ; 
Cj afx__msg void OnBut tonMoveTo () ; 

3, afx_msg void OnDoubleCl ickLi stResul ts (NMHDR* pNMHDR, LRESULT* pResult) ; 
I. afx_msg void OnSelChangeArchiveLi st ( ) ; 
\2 afx__msg void OnSelChangeMoveArchiveList ( ) ; 
afx_msg void OnButtonCancel () ; 

afx^msg void OnBeginDragListResults (NMHDR* pNMHDR, LRESULT* pResult); 
l^A afx_msg void OnButtonDelete ( ) ; 
J: //}}AFX_MSG 

L;? afx_msg void OnOk () {}; // ignore when Enter is pressed 

□ afx_msg bool OnClickListResul ts (NMHDR* pNMHDR, LRESULT* pResult); 

afx_msg void OnRightClickListResults (NMHDR^ pNMHDR, LRESULT* pResult); 
DECLARE_MESSAGE_MAP ( ) 
private : 
bool 
bool 
bool 
char 
int 
int 
int 
const 



static int 



const static UINT 
const static DWORD 
HWND 

CCri ti cal Sect ion 

Appl icat ionEnt ityLi St * 

CImageList 

DQRSearch 

DQR 

DQRTaskView 

DQRTaskSchedule 

enum 



m_LocalOnly, m_UseTaskQueue , m_PromptForTaskScheduler ; 
m__PreloadData ; 
m_bSort InlnsreasingOrder ; 
m_MoveDest inationAE [20] ; 
m_nS or t Column ; 
m__Result sListSelection [5] ; 
m_DOB index ; 

m__ColumnPnaTne , m_ColumnPid , m_ColumnAnum, 
m_ColumnMod f m_ColumnSDate , 
m_ColumnBDate , m^ColumnBTime , 
m_Cl ient Stacks ize ; 
m_ParentList ItemData; 
m_HmD ; 

Tn_RunCl ientThread_Cr i t Sect ion; 
m_AE array ; 
m_ImageList ; 
m_SearchDialog ; 
TTn_DQR; 
m_TaskVieV7; 
m TaskScheduler ; 



m_ColumnSTime , 
m_Co lumnS I mgNum ; 



echo , 
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find, find_root, f ind_previoiis , find_next, 
get_index, move_index 



1 

} 




m RequestedClientService ; 


void 




SerializeDQRControl (bool is_loading) ; 


void 




EnableCancel ( ) ; 


void 




UpdateTaskView (bool reload list) ; 


void 




DropOn(CWnd* win) ; 


void 




TestArchiveConnect ion ( ) ; 


void 




FindAll ( ) ; 


static 


void 


MarkAEServerStatuses ( Applicat ionEnt ityList *ael , 






UINT ae_index, bool status) ; 


bool 




LoadFoundList (bool erase); 


bool 




StartAllServers () j 


bool 




StartAEServer (UINT ae_index) ; 


bool 




StartTaskQueue () ; 


bool 




RunCl lent Thread ( ) ; 


static 


bool 


GetLocallP (CString& snarae, BYTE& ipl,BYTE& ip2 , 






BYTESc ip3,BYTE& ip4 ) ; 


BOOL 




UpdateData ( BOOL bSaveAndValidate=TRUE) ; 


int 




GetThreadPriority ( ) ; 


int 




GetResultsListSelection ( intS: sel, int& dcm_index) ; 


Stat ic 


int 


DQRCtrlCallbackFilter ( void* dqrctrl, UINT stepnum=0, 






UINT id=0) ; 


static 


int CALLBACK 


Compare I terns ( LPARAM 1 Par ami ^ 






LPARAM lParam2, LPARAM iParamSort); 


static 


UINT 


StartQRServer (LPVOID index); 


static 


UINT 


StartQRClient (LPVOID ptrDQRControl ) ; 


static 


UIMT 


RunTaskQueueThread (LPVOID pCtrl) ; 


CString 


GetLevelPrompt (bool higher) ; 



#Mjdif // 1 defined (AFX_DQRCONTROL_H_INCLUDED_) 
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// dqrcontrol . cpp : implementation file 

// 

#inclTJide "stdafx,h" 

#include " , .\DCM.h" 

^include " dqrcontrol . h" 

#include " Server. h" 

#include <process-h> 

#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS__FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// DQRSearch dialog 

DQRSearch: :DQRSearch(CWnd* pParent /*=NULL*/) 
: CDialog (DQRSearch :: IDD, pParent) 

{ 

// { {AFX_DATA_INIT (DQRSearch) 
m_PatientID _T ( " " ) ; 
m_PatientName = _T ( " " ) ; 
m_AccessionNumber = __T ( " " ) ; 
m_StudyrD = _T ( " " ) ; 
m_StudyInstUID = _T ( " " ) ; 
m_Modality = _T ( " " ) ; 
// } )AFX_DATA_IMIT 
m_Advanced = false; 

Tn_BirthDateControl . SetDateFormat ( ) ; 
L;J m_BirthDateControl . SetTitle ( "Birth Date: "); 
■i| m_BirthTimeControl . SetTimeFormat 0 ; 
fn m_BirthTimeControl . SetTitle ( "Birth Time: "); 

m_StudyDateControl . SetDateFormat () ; 
^.J Tn_StudyDateControl . SetTitle ( "Study Date: 

m_StudyTimeControl , SetTimeFormat ( ) ; 
-il m_StudyTimeControl . SetTitle ( "Study Time: "); 



void DQRSearch :: DoDataExchange (CDataExchange* pDX) 

CDialog: : DoDataExchange (pDX) ; 
O //{ {AFX_DATAjy[AP (DQRSearch) 

fll DDX_Text (pDX, IDC__PATIENT_ID , m_PatientID) ; 

DDX_Text (pDX, IDC_PATIENT_NAME , m_PatientName) ; 
J: DDX_Text (pDX, IDC_STUDY_ACCMUM , m_AccessionNumber) ; 
isj DDV_MaxChars {pDX, m_AccessionNumber , 16); 
Q DDX_Text (pDX, IDC_STUDY_ID , m_StudyID) ; 

DDV_MaxChars (pDX, m_StudyID, 16); 

DDX_Text (pDX, IDC_STUDY_INSTUJD , m_St udylnst UID) ; 
DDV__MaxChars (pDX, m_StudyInstUID , 64) ; 
DDX_Text (pDX, IDC_MODALITY , Tn_Modality) ; 
DDV__MaxChars (pDX, m_Modality, 3]; 
// } }AFX_DATA_MAP 

} 



BEGIN_MESSAGE_MAP (DQRSearch, CDialog) 
//{ {AFX_MSG_MAP (DQRSearch) 

OM_BN_CLICKED { IDC_BUTTON_ADV, OnBut t onAdvancedOrBas i c ) 
//} }AFX_MSG_MAP 
EKD_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// DQRSearch message handlers 

BOOL DQRSearch : rOnlnitDialog 0 
{ 

CDialog: : GnlnitDialog ( ) ; 

// Place DateTimeSegment controls 

if ( !m_BirthDateControl . Di splayOverControl ( IDC_B IRTHDATE , this) ] 
return FALSE; 

if ( !m_BirthTimeControl . Di splayOverControl ( IDC__B IRTHT IME , this) ) 
return FALSE; 
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if { !m_StudyDateControl . Di splayOverControl ( IDC^STDATE, this) ) 
return FALSE; 

if ( !m_StudyTiTneControl .DisplayOverControl (IDC_STTIME, this) ) 
return FALSE 

SiseDialogArea ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 



^ Validating input on exit 
■k 

void DQRSearch: :OnOK ( ) 
( 

UpdateData(TRUE) ; 

m_BirthDateControl .UpdateData (TRUE) ; 
m_BirthTimeControl . UpdateData (TRUE) ; 
CDialog: :OnOK() ; 

} 

* Switch between advanced and basic parameters 

■k 

void DQRSearch: : SizeDialogArea ( ) 

Jj CWnd* pWnd = GetDlgl tern ( IDC_BUTTON_ADV) ; 
if(lpWnd) return; 
if (im Advanced) 



aj { 



CRect rc, rcb; 
pWnd->GetWindowRect (rcb) ; 
GetRindowRect (rc) ; 
//ScreenToClient (rc) ; 
rc. bottom = rcb . bottom+10 ; 
MoveWindow (rc ) ; 

pWnd->SetWindowT€Xt ( "Advanced >>") ; 



else 



} 



CWnd* pWnd2 = GetDlgl tem ( IDC_STTIME) ; 

if(!pWnd2) return; 

CRect rc, rcb; 

pWnd2 - >GetWindovjRect (rcb) ; 

GetWindowRect (rc ) ; 

//ScreenToClient (rc) ; 

rc. bottom = rcb . bottom+lQ ; 

MoveWindow (rc ) ; 

pWnd->SetWindowText ( "Basic <<") ; 



void DQRSearch: : OnBut tonAdvancedOrBasic ( ) 

{ 

m_Advanced = ! m_Advanced ; 
SizeDialogArea ( ) ; 

} 

■k 

* Access DateTimeSegments 
* 

kifkkkkiekkkkiek*icki<-'^irickkick*k-kii:*iiri(:kk'kic-kif^kk^*kiT^kifk 

DateTimeSegment* DQRSearch: : GetBirthDatePtr ( ) 

{ 

return & (m_B irthDateControl . GetDateTimeSegment () ) ; 

} 

/:k*:lei(ifiei(it-kicifickicie-kickickiciekkkk-kki(if-kieif-kkirkkifkki(kiikk*-kk*-k 
k- 

* Fill DICOMRecord with the data from this dialog 
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void DQRSearch : : WritelntoDICOMRecord (DICOMRecord &dr) 
{ 

if (!m Advanced) // baseline search 



{ 



dr . SetRecord ( (char*) (LPCSTR) m_Pat ientID, 
(char*) (LPCSTR) m_PatientName, 
Sc (m_BirthDateControl . GetDateTimeSegment ( } ' 
& (iti^BirthTiTueControl . GetDateTimeSegment ( ) ; 
NULL, 

NULL, NULL, NULL, 
NULL, NULL, 
NULL, NULL, NULL, 
NULL, NULL, NULL) ; 



else 

{ 



dr, SetRecord ( (char*) ( LPCSTR) nn_Pat ie: 
(char*) (LPCSTR) m_PatientName, 
Sc (m_BirthDateControl . GetDateTirae 
& (Tn_BirthTiTneControl . GetDateTime 
(char*) (LPCSTR) m_StudyInstUID, 
(char*) (LPCSTR) m_StudyID, 
(char*) (LPCSTR) m_Acces sionNumber 
& (m_StudyDateControl . GetDateTime 
& (m_StudyTimeControl . GetDateTime 
NULL, (char*) (LPCSTR) m_Modality 
NULL, NULL, NULL) ; 



ntID, 

Segment 
Segment 



, NULL, 
Segment 
Segment 
NULL, 



{)] 
0 ) 



/^J DQRControl . cpp 

mi 

c^o|ist int DQRControl 

c^|ist int DQRControl 

enlist int DQRControl 

cSfist int DQRControl 

const int DQRControl 

const int DQRControl 

const int DQRControl 

const int DQRControl 

const int DQRControl 

const UINT 

const DWORD 



implementation file 



m_ColuranPname = 0; 
m_ColumnPid = 1; 
m_ColumnBDate = 2; 
m_ColumnSDate = 3; 
m_ColumnSTime = 4; 
m_ColumnMod = 5 ; 
m_ColumnSImgNum = 6; 
m_ColumnAnum = 7; 
m__ColumnBTime = 8; 
DQRControl : :m_Cl lent Stacks ize= 10 00 ; 
DQRControl : :m_ParentListI temData=999999 ; 



///////////////////////////////////////////////////////////////////////////// 
// DQRControl dialog 

DQRControl : rDQRControl (CWnd* pParent /*=NULL*/) 
: CDialog (DQRControl :: IDD, pParent) 
{ 

// { {AFX_DATA_INIT (DQRControl) 

// } }apx_data_init 

m_HWND = NULL; 
m_AEarray ~ NULL ; 

m_LocalOnly=f alse ; m_UseTaskQueue= true ; // Queue tasks on remote 

m^PromptForTaskScheduler = true; // Prompt for task scheduler on remote 

m_PreloadData = false; 

m_bSort InlnsreasingOrder = true; 

m nSortColumn = 0; 



DQRControl : : -DQRControl ( ) 
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m_ImageList . DeletelmageList ( ) ; 
if ( ! m_LocalOnly && m_AEarray) 

( 

m__AEarray- >Set Current Index (m_DQR . GetCurrentAEIndex ( ) ) ; 

} 

SerializeDQRControl (false) ; 



void DQRControl : :DoDataExchange (CDataExchange* pDX) 



CDialog: : DoDataExchange (pDX) ; 
// { { AFX_DATA_MAP (DQRControl ) 

DDX_Control (pDX, IDC_ANIMATE_KETWORKING, m_AnimNetwork) ; 
DDX^Control (pDX, IDC_BUTTON_START_SEARCH , m_But tonSearch) ; 
DDX_Control (pDX, IDC_BUTTON_CANCEL , m_But t onCance 1 ) ; 
DDX^Control (pDX, IDC_BUTTON_MOVETO, m_But tonMoveTo) ; 
DDX_Control (pDX, IDC_BUTTOW_GET , m_Butt onGet ) ; 
DDX_Control (pDX, IDC_LI ST_RESULTS , m_Result sList ) ; 
DDX__Control {pDX, IDC_COMBO_MOVEARCHIVE , m_MoveArchiveLi st ) 
DDX^Control (pDX, IDC_COMBO_ARCHIVE , m__Archi veLi st ) 
// } } AFX_DATA_MAP 



BEGIN_MESSAGE_MAP (DQRControl , CDialog) 
// ( {AFX_MSG_MAP (DQRControl) 
_ OM_BN_CLICKED ( IDC_BUTTON_START_SEARCH , OnButtonStart Search) 
y ON_BN_CLICKED(IDC__BUTTON_GET, OnButtonGet) 
kB ON_BN_C LICKED CI DC__BUTT0N_MO VETO, OnBut tonMoveTo) 

^ ON_NOTIFY(NM_DBLCLK, IDC_LIST_RESULTS , OnDoubleClickListResults) 
Z~ ON_CBN_SELCHANGE (IDC_COMBO_ARCHIVE, OnSelChangeArchiveList ) 

ON_CBN_SELCHANGE ( IDC_C0MBO_M0VEARCHIVE , OnSe iChangeMoveArchiveLi s t ) 
%j ON_BN__CLICKED {IDC_BUTTON_CAMCEL, OnBut tonCancel ) 

ON_NOTIFy (LVN_BEGINDRAG, IDC_LIST_RESULTS , OnBeginDragListResults) 
I'l" ON_MOTIFY(NM_CLICK, IDC^LI ST_RESULTS , OnCl ickLi stResult s ) 

ON_NOTIFY(™_RCLICK, IDC_LI ST_RESULTS , OnRightCl i ckLi S tResul t s ) 

ON_BN_CLICKED (IDC_BUTTON_DELETE, OnBut tonDelete) 
2 // } }AFX_MSG_MAP 
Lr. ON_COMMAND ( IDOK, OnOk) 
^ 0N_COMMAND(IDCANCEL, OnOk) 

C ON_NOTIFY (HDN_ITEMCLICKA, 0, OnHeaderCl icked) // column sort 
fil OM_MOTIFY(HDM_ITEMCLICKW, 0, OnHeaderClicked) // column sort 
^P_MESSAGE_MAP ( ) 

m //////////////////////////////////////////////////////////// ////////////// 
til DQRControl message handlers 

■k 

* Display the control 
*■ 

bool DQRControl : :DisplayOverControl ( int controlID, CWnd ^parent) 

{ 

if ('parent || 'controlID) return false; 
CWnd'^ pWnd = parent - >GetDlgI tem ( control ID) ; 
if (pWnd) 
{ 

CRect rc; 

pWnd->GetWindowRect (rc) ; 
parent->ScreenToClient (rc) ; 
this->Create (IDD, parent) 

this->SetWindowPos (pWnd, rc . lef t , rc . top, 0,0, SWP_NOSIZE ] SWP_SHOWWINDOW) 
return true; 

) 

return false; 

) 

Get string for the current QR level 
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CString DQRControl : ; GetLevelPrompt [bool higher) 

{ 

CString prompt,- 

BYTE lev = m_DQR . Get Level () ; 

if ( ! higher) 

{ 

if (lev DICOMRecord: :LevelPatient) prompt = "PATIENT"; 



LevelStudy) prompt = "STUDY"; 
LevelSeries) prompt = "SERIES"; 
Levellmage) prompt = " IMAGE" ; 



else if (lev DICOMRecord: 

else if (lev DICOMRecord: 

else if (lev DICOMRecord: 

else prompt = " " ; 

} 

else 

{ 

if (m_DQR . I sOnRootLevel ( ) ) prompt=" Start new search"; 

else if (lev == DICOMRecord :: LevelStudy) prompt = " Go to patient level 
else if (lev D ICOMRecord :: LevelSeries) prompt = Go to study level"; 
else if (lev DICOMRecord : :LevelImage) prompt = " Go to series level" 
else prompt = " " ; 

} 

return prompt; 

} 

* 

* (Re) Load the list of archives 

vM'd DQRControl :: LoadArchiveList (UINT selection /*=0^/) 

f||' if ( i m_ASarr ay) return; 
CString loc; 

-•"J m_ArchiveList . ResetContent ( ) ; m_MoveArchiveList . Rese tContent ( ) ; 
for(UINT i=0; i<m_AEarray- >GetSize ( ) ; i++) 

m i 

.j-.^. loc = CString (m_AEarray->Get ( i ) . ae__Location) ; 

2; if ( i==m_AEarray- >GetLocal Index ( ) && loc . Find( "<Local>" ) <0) 

■.V, loc = CString (" <Local> ")+loc; 

u } 

m__ArchiveList . Insertstring ( i , loc) ; 
US m^MoveArchiveList . InsertString ( i , loc) ; 

if {m_LocalOnly) selection - m_AEarray- >GetLocal Index () ; 
m_DQR . SetCurrentAEIndex ( selection) ; 
Q selection=m_DQR.GetCurrentAEIndex 0 ; 
m_ArchiveList . SetCurSel (selection) ; 
if ( selection>0) selection=0; else selection=l; 
m_MoveArchiveList . SetCurSel ( select ion) ; 
if (m_LocalOnly] 

{ 

m_ArchiveList . GetWindowText ( loc) ; 
loc += CString (" archive");; 

GetDlgItem(IDC_ARCHIVE__LOCATION) ->SetWindowText ( loc) ; 
m_ArchiveList . ShowWindow ( SW_HIDE) ; 

} 

UpdateData (FALSE) ; 

} 

* 

* On new selection in the archive list 
void DQRControl: : OnSelChangeArchiveList ( ) 

{ 

if ( ! m_AEarray && m_LocalOnly) return; 
UINT n=m_ArchiveList , GetCurSel ( ) ; 

if (n ! =m_DQR. GetCurrentAEIndex { ) ) LoadFoundLi st ( true ) ; 

if ( !m_DQR . Se tCurr entAEIndex (n) ) 

{ 

UINT m = m_DQR. GetCurrentAEIndex 0 ; 
if (m>n) 



5 



dqrcontrol . cpp 



10/27/00 



{ 

Tn= 0 ; 

m_DQR. SetCurrentAEIndex ( 0) ; 

} 

m_ArchiveLi St . SetCurSel (m) ; 
LoadFoundList ( true) ; 

} 

TestArchiveConnect ion ( ) ; 

// Make sure current archive is different from "Move to" archive 

n=m_ArchiveList . GetCurSel ( ) ; 

if (m_MoveArchiveList . GetCurSel { ) == ( int) n) 

{ 

if (n>0) n=0; else n=l; 
m_MoveArchiveList . SetCurSel (n) ; 

} 

} 

void DQRControl : : OnSelChangeMoveArchiveList ( ) 

( 

if ( ! Tia_AEarray) return,- 

int n = in^ArchiveLi St . GetCurSel 0 ; 

if (n>= ( int ) Tn_AEarray- > Get Size ( ) ) 

{ 

LoadArchiveList ( ) ; return; 

} 

if (m_MoveArchiveList . GetCurSel { ) == n) 

{ 

CString s; 

m_Archi veLi s t . GetWindowText ( s ) ; 
CString info; 

Cl inf o . Format ( "You are currently connected to %s\n" 

i|l " and cannot use it as move destination.", s) ; 

AfxMessageBox (inf o, MB_ I CON INFORMATION) ; 

if(n>0) n=n-l; else n=l; 

m_MoveArchiveList - SetCurSel (n) ; 

■kfl I 

(Re) Load the list of found DICOM data objects 

i^J)l DQRControl : : LoadFoundLi St (bool erase) 

y^:: if ( 1 GetSaf eHwnd ( ) ) return false; 
2^ CString label ; 

D CString lev=GetLevelPrompt ( f al se ) ; 

CString res_lev=CStr ing ( " on ) +lev+CStr ing ( " level"); 
le v . MakeLower ( ) ; 

m_ButtonGet . EnableWindow (FALSE) ; 

label = m_LocalOnly ? "Open " : "Download "; 

m_But tonGet - SetWindowText (label+lev) ; 

m_ButtonMoveTo . EnableWindow ( FALSE) ; 

label = m_LocalOnly ? "Upload " : "Move "; 

m_ButtonMoveTo . SetWindowText (label4-lev+ CString (" to: ")); 
m_Resul t sList . DeleteAl II terns ( ) ; 
CString res ( "Result s : no matches"); 
if (erase) 

{ 

m_DQR. Clear Found 0 ; 
m__Re suit sList Select ion [0] =1 ; 
m_ResultsList Select ion [1] =1 ; 
m__ResultsList Select ion [2] =1 ; 
m_Result sListSelection [3] =1; 

GetDlgItem(IDC_RESULTS_FRAME) ->SetWindowText (res+res_lev) ; 
UpdateData (FALSE) ; 
return true ; 

} 

int nFound = m_DQR . Get FoundCount ( ) ; 

m_ResultsList . Set ItemCount (nFound+1 ) ; 
GetDlgltem(IDC_STATIC_PROGRESS) - >SetWindowText ( 

nFound>0 ? "Loading data..," : ""); 

char 3 [64] ; 
int nitem, nl ; 
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CString str; 

DICOMRecord dr; 

f or (nI=nFound-l ; nl>=0; nl--) 

{ 

m_DQR. Get FoundRe cord (dr , nl ) ; 
// Patient name 

str=CString (dr . GetPatientName ( ) ) ; str . Replace (' ^ ' '); 
nIteTn=m_Res-ultsList , Insert Item (nl , str, max ( 1 , m_DQR . Get Level C) } -1) ; 
// Patient ID 

m_ResultsList . Set Item (nl tern, m_ColumnPid, LVIF_TEXT, 

dr. Get Patient ID ( ) ,0,0,0,0) ; 
// Accession number 

m_ResultsList , Set Item (nitem, m^ColiamnAnum, LVIF_TEXT, 

dr . GetAccessionMumber ( ) ,0,0,0,0) ; 
II Modality 

m_ResultsList . Set I tern (nl tern, m_ColumnMod , LVIF_TEXT/ * \ LVIF_IMAGE*/ , 

dr .GetModality 0 ,0,0,0,0) ; 
// Study Date 

dr . Format StudyDate { s , 64 , f al se) ; 

m_ResultsList . Set I tern (nl tern, m_ColumnSDate , LVIF_TEXT , s , 0,0,0,0) ; 
// Study Time 

dr . Format StudyTime ( s, 64 , false) ; 

m^ResultsList , Set I tern (nl tern, m_ColumnSTime, LVIF_TEXT , s , 0,0,0,0) ; 
// Birth Date 

dr . FormatPat ientBirthDate ( s , 64 , false) ; 

m_ResultsList . Set I tern (nl tern, m_ColumnBDate , LVIF__TEXT , s , 0, 0, 0, 0} ; 
// Number of study related images 

m_ResultsList . Set Item (nl tem,m_ColumnSImgNum, LVIF_TEXT , 
dr ,GetStudyImagesMum() ,0,0,0,0) ; 
LJ // Associate array index with item data, to allov/ for list sorting 

m__Result sLi st . Set ItemData (nl tern, nl ) ; 
II Birth Time - do not use 
//dr . FormatPatientBirthTime ( s , 64 , false) ; 

//m_ResultsList . Set Item (nl tern , m__ColumnBTiTne , LVIF_TEXT, s , 0 , 0 , 0 , 0) ; 

d;% II "Higher level" item 

nItem=m_ResultsList . Insert Item ( 0 , (const char^) (GetLevelPrompt { true ) ) ,4) ; 
2f m_ResultsList . SetltemData (nItem,m_ParentListItemData) ; 
nj // Prevent horizontal scroll 

m_ResultsList , SetColumnWidth (m_ColumnAnum, LVSCW_AUTOSIZE_USEHEADER) ; 
, , // Results label 

if(nFound>0) 

Wi if (nFound==l) res . Format { "Resul t s : 1 match found"); 

else res , Format (" Result s : %d matches found" , nFound) ; 

res += res lev; 

C3 } 

r\ GetDlgItem(IDC_RESULTS_FRAME) - >SetWindowText (res) ; 
GetDlgItem(IDC_STATIC_PROGRESS) ->SetWindowText ( " " ) ; 
// Sise columns to their data 

for(int i=0; i<=6; i++} 

{ 

if ( i ! =m_ColumnPname && i ! =m_ColumnPid) continue; 
m^ResultsList . Set ColumnWidth ( i , LVSCW_AUTOSIZE_USEHEADER) ; 

} 

UpdateData (FALSE) ; 
return true ; 

} 

•k 

* Get current selection from the Results list 

* and corresponding found object index 

* Returns number of parameters successfully retrieved 

■k 

ieici(iei(:itici(ieicieifiri(ific±ic-k*ici(ici(ii:ici(iti:^iciciciit:k'k*ic*±:fc* 

int DQRControl : iGetResultsListSelection (intS: sel, int& dcm_index) 

{ 

sel=dcm_index= - 1 ; 

POSITION pos = m_ResultsList . GetFirstSelectedltemPosi tion ( ) ; 
int result; 

if (pos == NULL) result=0; // nothing selected 
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else 

{ 

sel = m_Result sList . GetNextSelectedltera (pos) ; //single selection 
dcm__index= ( int ) (m_Resul t sLi st . Get I temData ( sel ) ) ; 
if (dcm_index<0 1] dcm_index>=m_DQR . Get FoundCount ( ) ) 

{ 

dGm_index= - 1 ; result=l; 

} 

else 

{ 

result=2 ; 

} 

} 

m_Bufc tonGet . EnableWindow { result>l) ; m_ButtonMoveTo . EnableWindow (result >1 
return result; 

} 

* clicks on Results list 

bool DQRControl : rOnClickListResults (MMHDR* pMMHDR, LRESULT* pResult) 
{ 

if(pResult) *pResult = 0; 
int sel, dcTU; 

bool iteTn= (GetResultsListSelect ion ( sel , dcm)==2}; 
return item; 

} 

vald DQRControl : :OnDoubleClickListResults (NMHDR* pNMHDR, LRESULT* pResult) 

dj *pResult = 0; 

int sel; dcm; 
"■^J int item^GetResultsListSelection (sel , dcm); 
Ski int nlev=max ( 1 , m_DQR . GetLevel ( ) ) -1 ; 
^1 switch (item) 

"t^:^ case 1:// go to higher level 

%i if [m_DQR. IsOnRootLevel ( ) ) OnButtonStartSearch () ; 

01 else 

7 { 

, ,, m_RequestedGlientService = f indjrevious; 

if ( ! Af xBeginThread ( St art QRCl lent , this , GetThreadPr ior i ty ( ) , 
Q m_ClientStackSi2e) ) RunCl ient Thread () ; 

return; 

2f case 2:// go to lower level 

CJ if {m_DQR. IsOnBottomLevel 0 ) ( OnBut tonGet ( ) ; return; } 

pr„ else 

{ 

m_ResultsLi St Select ion [nlev] =sel ; 
m_DOB index = dcm; 

m_RequestedClient Service=f ind_next ; 

if ( !Af xBeginThread ( St art QRCl ient , this , GetThreadPriori ty ( ) , 

m_ClientStackSi2e) ) RunCl ientThread ( ) ; 
return ; 

} 

} 

return ; 

} 

void DQRControl : .-OnRightClickListResults {NMHDR* pNMHDR, LRESULT* pResult) 
{ 

if ( lOnClickListRe suits (pNMHDR, pResult) ) return; 
// Click positioning 
CPoint p (GetMessagePos ( ) ) ; 
m_Result sList . ScreenToCl ient ( &p) ; 

// Create popup menu 
CMenu menu; 

menu, CreatePopupMenu ( ) ; 
CMenu menul; 

menul . LoadMenu ( IDR_MENU_DQRCONTROL) ; 
CMenu* pop=menul . Ge tSubMenu { 1 ) ; 

// Set acceptable menu IDs 
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UINT ids[2]={ IDC_EUTTON_GET, 

IDC_BUTTON_MOVETO} ; 

// Create the popup menu 

int n=0; 

unsigned int nid; 

CString strMenu, remAET; 

for(unsigned int i=0; i<pop- >GetMenuI temCount ( ) ; 

{ 

nid=pop- >GetMenuItemID ( i ) ; 

if ( nid!=ids[0] && nidl=ids[l] ) continue; 

if {nid-=IDC_BUTTON_GET) m_But tonGet . GetWindowText (strMenu) ; 

else if (nid==IDC BUTTON MOVETO) 

{ 

m_ButtonMoveTo- GetWindov7Text ( StrMenu) ; strMenu . TrimRight ( " :"); 
m^MoveArchiveList .GetWindowText (remAET) ; 
StrMenu += CString (" " ) +remAET ; 

} 

else pop->GetMenuString ( i , StrMenu, MF_BYPOSITIOM) ; 
int status = pop->GetMenuState (i , MF__BYPOSITION) ; 
menu. InsertMenu (n, status, nid, strMenu) ; 
n++; 

} 

// Display popup menu 
ClientToScreen { &p) ; 
p=CPoint (p.x,p.y) ; 

menu. TrackPopupMenu (TPM_LEFTALIGN, p . x , p . y , thi s ) ; 
pop- >DestroyMenu ( ) ; 
menu . DestroyMenu ( ) ; 
f 'i menul . DestroyMenu () ; 

Start the dialog 

B^9L DQRControl : .-OnlnitDialog ( ) 

^- CDialog : :OnInitDialog ( ) ; 
Li m_HWND=GetSafeHwnd() ^ 

r% LoadArchiveList (m_DQR, GetCurrentAEIndex ( ) ) ; 

LoadFoundList ( true) ; 
HJ m_ButtonCancel . ShowWindow(SW_HIDE) ; 
""=1 rti_AnimNetwork . ShowWindow ( SW_HIDE) ; 

pi GetDlgItem(IDC_STATIC_PROGRESS) - >ShowWindow ( SW^HIDE) ; 
J*;! if ( 1 m_LocalOnly) 

GetDlgItem{ IDC__BUTTON_DELETE) - >ShowWindow ( SW_HIDE ) ; 

GetDlgItem(IDC_ARCHIVE_LOCATION) ->SetWindowPos (this, 0, 0, 90, 14, 
SWP_NOMOVE I SWP^NOZORDER | SWP_SHOWWINDOW) ; 

} 

else GetDlgItem(IDC_CONNECTION) - >ShowWindow ( SW_HIDE) ; 



/* SET m_ResultsList : */ 
// 1. Load icons 

if (m__ImageLi st . m_hImageLi st = =NULL ) 

{ 

if ( 'm_ImageList .Create (16 , 17, ILC_C0L0R4 ,5,1)) 
{ return FALSE; } 

m_ImageList . Add (theApp . Loadlcon ( IDI_ICON_LEVEL_PATIENT) ) ; 
m_ImageList .Add(theApp.LoadIcon(IDI_ICON_LEVEL_STUDY) ) ; 
m_ImageList. Add {theApp. Loadlcon (IDI_rC0N_LEVEL_SERIES) ) ; 
m_ImageList . Add ( theApp . Loadlcon ( IDI_ICOM_LEVEL_IMAGE) ) ; 
m^ImageList .Add(theApp.LoadIcon(IDI_ICON_LEVEL_HIGHER) ) ; 

} 

m_Result sList . Set ImageList ( &m_ImageList , LVSIL_SMALL) ; 
// 2. Load columns 

m__Result sList . InsertColuran (m_ColuTOnPname , " Patient Name" , LVCFMT_CENTER , 120,0) 
m_ResultsList . InsertColumn {m_ColumnPid, "Patient ID", LVCFMT_CEMTER , 80 , 0 ) ; 
m_ResultsList , InsertColumn (m_ColumnBDate , "Birth Date", LVCFMT_CENTER , 8 0 , 0 ) ; 
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m_ResultsList , InsertColumn(m_ColuTunSDate, "Study Date", LVCFMT_CENTER, 80, 0) ; 
m_ResultsList . InsertColumn(m_ColumnSTime, "Study Time", LVCFMT_CENTER, 80 , 0 ) ; 
m^ResultsList . InsertColumn (m_ColumnMod , "Modality" , LVCFMT_CENTER , 6 0 , 0) ; 
m_ResultsList - InsertColumn (m^ColumnSImgNuTn, " Images" , LVCFMT_CSNTER, 50,0) ; 
m_ResultsList . InsertColumn (m_ColumnAnum , "Access . #" , LVCFMT_LEFT, 10 0,0) ; 
//m_ResultsList . InsertColumn (m_ColumnBTime, "Birth Time", LVCFMT_CEMTER ^ 80 , 0) ; 
m_ResultsList . SetColumnWidth (m_ColumnAnum , LVSCW_AUTOSr ZE_USSHEADER) ; 
// 3. Force entire row selection 

m_ResultsList . Se tExtendedS tyle ( LVS_EX_FULLROWSELECT | LVS_EX_SUB ITEMIMAGES 

I LVS_EX_GRIDLINES) ; 
// Load all data if required 
FindAll ( ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

* Set log files (client and server) 

bool DQRControl : : CreateDQRControl (DICOMViewLog* ptrClientLog, DICOMDatabase* ptrDB, 

bool local_only} 

( 

static bool getIP=true, start Server s= true ; 

if ( iptrClientLog |1 IptrDB) 

{ 

AfxMessageBox (" Cannot initialize Query/Retrieve control with NULL parameters" ] 
return false ; 

// Set parameters 

if { lm_DQR. CreateQR (ptrClientLog, ptrDB) ) 
{ 

'■^■J AfxMessageBox (" Failed to initialize Query/Retrieve control"); 

%J return false; 

'^f m_DQR.SetDQRCallBack(DQRCtrlCallbackFilter, this) ; 
%i TU_TaskView. AttachDQR (Scm_DQR) ; 
fIJ m_LocalOnly=local_only; 

m_UseTaskQueue - i m_LocalOnly ; // Queue tasks on remote only 
f m_PromptForTaskScheduler = m_UseTaskQueue ; // Prompt for schedule by default 
'r- m_PreloadData = m_LocalOnly; // Preload patient data on local 
O Tn_AEarray = m_DQR . GetAEListPtr () ; 
f{l fl Find local AE at first call 

if(getlP) 

Q BYTE ipl, ip2, ip3 , ip4 ; 

p% est ring comp_name; 

if (GetLocallP ( comp_name , ipl , ip2 , ip3 , ip4 ) ) 

{ 

if ( ' m_AEarray->SetLocalAE ( ipl , ip2 , ip3 , ip4 , (char*) (LPCSTR)comp name)) 

{ 

AfxMessageBox ( "Cannot find Application Entity for this PC"); 
return false; 

) 

} 

get IP=f alse ; 

} 

if ( ! St artXaskQueue ( ) ) 

{ 

AfxMessageBox (" Failed to initialize background task queue"); 
return false; 

} 

// Start all servers at first call 
if { startServers) 

( 

St artAll Servers ( ) ; 
start Server s = false ; 

} 

// Retrieve serialised task data 
Serial izeDQRControl (true) ; 
return true; 
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* Test network connection to current remote archive (C-ECHO) 

void DQRControl : : TestArchiveConnect ion ( ) 
{ 

Beep(500, 100) ; 

m_RequestedCl lent Service-echo ; 

if ( ! AfxBeginThread ( StartQRClient , this , 

GetThreadPriority ( ) , m_Cl ientStackSise) ) RunCl ientThread { ) 



* Delete. Works with local database only ! 
■* 

void DQRControl: : OnBut tonDelete { ) 

{ 

if ( lm_LocalOnly) return; 
int sel=~l, dcm=-l; 
DICOMRecord dr; 
// Anything selected ? 

if (GetResult sListSelect ion ( sel , dcm) == 2} 

{ 

if ( I m_DQR.GetFoundRecord (dr , dcm) ) return; 

} 

else 

c { 

m DQRSearch ds; 

if (ds.DoModal 0 != IDOK) return; 
ds . Write Int oDICOMRecord (dr) ; 

if (AfxMessageBox ( "Delete specified items from the local database 

MB^YESNO) 1= IDYES) return; 
int n = m_DQR,DeleteFromLocalDB (dr) ; 
Til if(n>0) // Repeat last Find to refresh the worklist window 

V i 

. _ m_RequestedClientService=f ind; 

^ if( lAfxBeginThread (StartQRClient , this , 

J:: GetThreadPriority 0 ,m_ClientStackSize) ) RunCl ientThread () ; 

B ^ 

Cancel last network CFind, CGet or CMove 

void DQRControl: : OnButtonCancel () 
{ 

Beep (500, 100) ; 
m_DQR. Cancel ( ) ; 

GetDlgltem ( IDC_STATIC_PROGRESS) - >SetWindowText ( "Cancelling requested, wait 

} 

void DQRControl : : EnableCancel ( ) 

{ 

if {Tn_RequestedClientService 1= echo) 

{ 

iti ButtonCancel . ShowWindow(SW_SHOW) ; 



} 



* Start search 

void DQRControl : : OnBut tonStartSearch () 

{ 
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long Image :: TR__Sobel (const int x, const int y) 

{ 

long aOO=GetLuminance (x- 1 ; y~ 1 ) long alO=GetLuminance (x, y- 1 ) ; 

long a20=GetLuminance (x+1 , y- 1 ) ; long aO l^GetLuminance (x- 1 , y ) ; 
/*long all=GetLuminance (x, y) ; 

long a21=GetLuminance (x+1 , y] ; long al2=GetLuminance (x, y+1 ) ; 

long a02-GetLuminance (x-1 , y+1 ) ; long a22=GetLuminance (x+1 , y+1 ) ; 

long tx= (a22-a02) + (a2 0-a0 0 ) +2* (a21 -aOl) ; 

long ty= (a0 0-a02) + Ca20-a22) +2* (al0-al2) ; 

long t=(long) ( sqrt ( tx* tx+ty*ty ) ) ; 

if (t<m_EdgeThreshold) t=0; 

if ( t >m__maxPixelValue ) t = m_maxPixelValue ; 

return t; 

! 



* Apply Hurst fractal operator 

long Image :: rR__Fractal { const int x, const int y) 



long p, pmin, pmax; 
double t, sl-0.0, s2=0.0; 

// Find log variance for each distance from the central pixel 



L.i p=GetLuminance (x-1 ,y) ; 
p = GetLuminance (x + 1 , y ) ; 
p=Ge tLuminance (x, y-1 ) ; 
p=GetLuminance (x , y+l ) ; 
t = log (max (pmax -pmin, 1) ) 
M si += 0.0; s2 += t; 

^f, 11 d = sqrt (2) 

'".^ p=GetLuminance (x-l,y-l) 
p=GetLuminance (x+1 , y-1) 

Til p=GetLuminance (x-1 ^y + l ) 
p=Ge t Luminance (x+1 , y+1) 
t = log f max (pmax-pmin , 1 ) ^ 

k^= t*0 . 34657359 ; s2 

O // d=2 

r-; p^GetLuminance (x-2 , y) ; 

! p = GetLuminance (x + 2 ,y) ; 

'^"l p=GetLuminance (x ,y-2 ) ; 

CI? p=GetLuminance (x,y+2) ; 

f^^. t = log (max (pmax-pmin, 1) ) 

'"^^ si += t^O. 69314718 ; s2 
// d=sqrt(5) 
p^GetLuminance (x-1 ,y-2) 
p=GetLuminance (x-1 ,y+2) 
p=GetLuminance (x+l,y-2) 
p= Get Luminance (x+1 ,y+2 ) 
p= Get Luminance (x-2 ,y-l) 
p=Get Luminance (x-2 ^ y+1 ) 
p= Get Luminance (x+2 ,y- 1 ) 
p~ Get Luminance (x+2 , y+1 ) 
t = 1 og { max ( pmax - pm in , 1 ) ) 
si += t*0 . 80471896 ; s2 
// d=sqrt(8} 
p= Get Luminance (x-2 , y- 2 ) 
p= Get Luminance (x+2 ,y-2) 
p= Get Luminance (x-2 , y+2) 
p=Get Luminance (x+2 , y+2 ) 
t= log (max (pmax-pmin, 1 ) ) 
si += t*l . 03972077; s2 
// d-3 

p=GetLuminance (x-3 , y) ; 
p=GetLuminance (x+3 , y) ; 
p= Get Luminance (x , y- 3 ) ; 
p=GetLuminance (x , y+3 ) ; 
t= log (max (pmax-pmin, 1 ) ) 

si += t*l . 09S61229 ; S2 



pmax=pmin=p; 
if (p>pmax) pmax= 
if (p>pmax) pmax= 
if (p>pmax) pmax= 



p; else if (p<pmin) pmin=p 
p; else if (p<pmin) pmin=p 
p; else if (p<pmin) pmin=p 



pmax=pmin=p ; 

if (p>pmax) pmax=p; else if (p<pmin) pmin=p 

if (p>pmax) pmax=p; else if (p<pmin) pmin^p 

if(p>pmax) pmax^p; else if (p<prain) pmin=p 

s2 += t; //we use ln(sqrt(2]); 



pmax=pmin-p ; 
if (p>pmax) pmax=p; 
if (p>pmax) pmax=p; 
i f ( p > pmax ) pmax = p ; 

+ = t; 



else if(p<pmin) pmin=p; 
else if(p<pmin) pmin^p; 
else if (p^pmin) pmin=p; 



pmax= 
if (p> 
if (P> 
if (P> 
if (P> 
if (P> 
if (P> 
if (P> 



pmin=] 
pmax) 
pmax) 
pmax) 
pmax) 
pmax) 
pmax) 
pmax) 



+ = t; 



pmax=pmin=] 
i f (p>pmax) 
if (p>pmax) 
i f {p>pmax) 



pmax=p 
pmax=p 
pmax=p 
pmax=p 
pmax=p 
pmax=p 
pmax=p 



pmax=p; 
pmax=p; 
pmax=p; 



else 
else 
else 
el se 
el se 
else 
else 



if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 



else if (p<pmin) 
else if (p<pmin) 
else if (p<pmin) 



pmin=p; 
pmin=p ; 
pmin=p; 
pmin=p ; 
pmin=p ; 
pmin=p ; 
pmin=p ; 



pmin=p ; 
pmin=p ; 
pmin=p ; 



+ = t; 

pmax=pmin=] 
if (p>pmax) 
if (p>pmax) 
if (p>pmax) 

+ = t; 



pmax=p; else if (p<pmin) pmin=p; 
pmax=p; else if (p<prnin) pmin=p; 
pmax=p; else if (p<pmin) pmin=p; 
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// d=sqrt(10) 
p=Get Luminance (x-1 , y-S ) 
p=GetLuminance (x- 1 , y+3 ) 
p=Get Luminance (x+1 , y-3 ) 
p=Get Luminance (x+1 , y+3 } 
p=Get Luminance (x-3 ^7-1) 
p=GetLuminance (x-3 ,y+l) 
p=GetLuminance (x+3 ,y-l) 
p=GetLuTninance (x+3 ,y+l) 
t = log (max (pmax-pmin, 1 ) ) 
si += t*l. 15129255; s2 
si ^= 0 . 14285714 ; s2 



pmax=pmin=p ; 

if (p>pmax) pmax=p; else 

if (p>pmax) pmax=p; else 

if (p>pmax) pmax=p; else 

if (p>pmax) pmax=:p; else 

if (p>pmax) pmax=p; else 

if (p>pmax) pmax=p; else 

if (p>pmax) pmax=p; else 

+ = t; 

= s2*0 . 10477684 ; 



if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if (p<pmin) 
if {p<pmin) 



//Find fractal dimension as slope of the Hurst line 
//t=max (6 . 386491206* (sl-s2) , 0 . 0) ; // fractal dimension 
t=max ( 1000* ( sl-s2) , 0 . 0) ; // fractal dimension 
return ( (long) (t) ); 



pmin=p ; 
pmin=p; 
pmin=p ; 
pmin=p ; 
pmin=p ; 
pmin=p/ 
pmin=p ; 



* Apply a pixel neighborhood function (with code mask__type) to the image 
bool Image :: TR_PixelNeighboorhood ( char mask_typef bool show_progress) 

{ 

int rad , i , j , j 1 , top , bot ; 

long p, pmin, pmax; 

double tr_scale=l . 0 ; 

~!^ // pointer to the masking function 

long ( Image :: *maskF) (const int x, const int y) = 0; 
™' switch (mas k_type) 

^ I 



case 




. maskF=TR_ 


DeNoise ; 


rad=2 ; 


break; 


// 


denoi sing 


case 


'a' 


: maskF=TR_ 


_Smooth ; 


rad=l ; 


break; 


// 


average smoothing 


case 


' s ' 


: maskF=TR 


Sharp ' 


rad=l; 


break; 


// 


sharpening 


case 


' e ' 


- maskF=TR_ 


^Sobel; 


rad=l; 


break; 


// 


edge detector 


case 


^ f , 


: TnaskF=TR 


^Fractal ; 


rad=3 ; 


break ; 


// 


fractal dimension 



default: return false; // invalid mask type 

} 

// Create temporary buffer 

int w = GetWidthO ; 

int h = GetHeightO ; 

long *(*buf)=new long* [rad+1] ; 

if ( !buf ) 

{ 

Af xMessageBox ( "Lev/ memory, cannot transform") 
return false; 

} 

for(i=0; i<=rad; i++) 



{ 



buf[i] = new long [w] ; 
if (buf [i] ==0) 

{ 

Af xMessageBox (" Low memory, cannot transform"); 
for(j=0; j<i; j+ + ) { if (buf [j]) delete [] buf[j]; 
delete [] buf; 
return false; 
} // out of memory 



// Display progress control in the main frame status bar 

if ( show__progress) theApp . ShowProgress ( 5 Transforming ..."); 

// Find transform scaling factor 

if {mask_type ! = ' e ' && mask_type ' = ' f M 

{ 

pmin=0; tr_scale-l . 0 ; 

} 

else 

{ 
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// Estimate transformed pixel value range 
p=pmin=pmax= { this- >*maskF) (rad+1 , rad+1 ) ; 
int dw = w>>3; if(dw<l) dw=l,- 
int dh = h>>3; if(dh<l) dh-1,- 
for(i=rad+l; i<w-rad; i += dw) 

{ 

for(j=rad+l; j<h-rad; j += dh) 

{ 

p= ( this- >*maskF) r 
if (p>pmax) pmax=p/ 
else if (p<pmin) pmin=p; 



pmax++ ; 

tr_scale = (double) (m_maxPixelValue) / (pmax-pmin) ; 

} 

if ( show_progress) theApp . ShowProgress (10 ) ; 

// Backup pixel values 
ResetPixels { true) ; 

// Apply ( 2^rad-l ) * ( 2*rad-l) masking operator 
bot=~l; 
top=rad-l ; 
int procent=0; 
for(j=rad; j<=h; 

{ 

if ( show_progress && j%50 == 0) 
{ 

procent = 10+(90*j)/h; 

if (procent%3==0 ) theApp . ShowProgress (procent ) ; 

} 

jl=j -rad-l; 
if ( jl>=rad) 
{ 

for(i = rad; i<-w-rad; i++) SetPixel ( i , j l , buf [bot ] [i] ) ; 

} 

bot = (bot+1) % (rad+1) ; 
top = (top+l) % (rad+l) ; 
if ( j <h-rad) 

{ 

for(i=rad; i<w-rad; i++) 

( 

buf [top] [ i] =( long) ( tr_scale* ( ( this->*maskF) (i , 3 ) -pmin ) ); 

} 

} 

o } 

// Clean up 

for(j=0; j< = rad; { if (buf [j]) delete [] buf[j]; } 

delete [] buf ; 
theApp . ShowProgress ( 0 ) ; 
Beep(500, 50) ; 
return true; 

} 



* Inverts the image 
* 

bool Image :: TR_Negate ( ) 
{ 

if (m_pPal - >p_act ive) m_pPal - >Negate ( ) ; 
el se 
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// Display progress control in the main frame status bar 

theApp . ShowProgress ( 1 Changing to negative image ..."); 

// Backup pixel values 

ResetPixel s ( true) 

// Invert pixels values 

if {m_RGB) 

{ 

BYTE r, g, b; 
long p; 

f or (long i = 0; i< ( long) m__numPixels ; i + + ) 

{ 

if ( i%1000==0) theApp . ShowProgress ( (99*i) /m_numPixels) 
p=GetPixel ( i) ; 

r=m_maxPixelValue-GetRValue (p) 
g=m_maxPixelValue-GetGValue (p) 
b=m_maxPixelValue -GetBValue (p) 
Set Pixel (i, RGB (r,g,b) ) ; 



el se 

{ 

for (long i=0; i< ( long) m_numPixels ; i++) 
{ 

if(i%1000==0) theApp, ShowProgress ( (99*i) /m_numPixel s) 
Set Pixel ( i ,m maxPixe lvalue -Get Pixel (i) ) ; 



} 

theApp , ShowProgress ( 0 ) 
Beep(500, 100) ; 
return true; 



m I 

* Copy pixels from current to safe buffer (on true) 
? or vice versa (on false) 

s=oid Image : :ResetPixels (bool current_to_saf e ) 

ft 

"r; if ( current_to__saf e) // current ~> safe 

if (m_UndoFile 1= " + ") return; 
'^*" m_UndoFileCount + + ; 

m_UndoFile . Format ( " %s\\__pix%04d . tmp'* , theApp . app_DirectoryTmp , m_UndoFi leCount ) ; 

FILE* fp = f open (m__UndoFile , "wb" ) ; 

if(!fp) { m_UndoFile = "+"; return; } 

//f write (m_Pixels , 1 , m_numPixelBytes , f p) ; 

Serialiselmage (f p , false); 

f close ( f p) ; 

} 

else // safe -> current 

{ 

if (m_UndoFile == || m_UndoFile ^= "") return; 

FILE* fp = f open (m_UndoFile , "rb" ) ; 
if(!fp) { return; } 

//f read (m_Pixels , 1 , m_numPixelBy tes , f p) ; 
Serializelmage ( f p , true); 
f close (f p) ; 
m_UpdateBitmap=true ; 

} 

} 

* Complete image serialization into a binary file 

■k 
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bool Image :: Serializelmage (FILE '^fp, bool is_loading) 

{ 

int width, height, bpp; 
if ( ! is^loading) 

{ 

width = m_Width; 

height ~ m_Height; 

bpp = m__Bytes_per_Pixel ; 



if ( 
if ( 
if ( 



Serializelnteger (f p, v/idth, is_loading) ) return false 
Serializelnteger { f p , height, is_loading] ) return false 
Serializelnteger (fp, bpp, is_loading) ) return false 



if ( is_loading) 

{ 

// reformat the image if needed 

if (width! =m_Width || height i =m_Height ] 

{ 

if (! Createlmage (width, height, bpp) 



bpp 1 =m_Bytes_per_Pixel ) 
return false; 



if ( im_ScreenMap . SerializeScreenMap (f p, is_loading) ) return false; 

if ( !m_DICOMRecord. SerializeDICOMRecord (fp, ls_loading] ) return false; 

if ( ! is_loading) f write (m_Pixels , 1 , m_numPixelBYtes , f p) ; 

else f read (m_Pixels , 1 , m^numPixelBytes , f p) ; 

return true; 



til 

{^^ Histogramm stretch from [amin,amax] to [bmin,bmax] color range. 
R,G and B components are stretched together 

b'iol Image :: TR_Hi St Stretch ( int amin,int amax,int bmin,int bmax, 
2f bool show_progress) 

1 long i, cmax/ p; 

/* Create color map */ 

if (m_pPal->p_active) cmax=m_pPal - >p_S ize ; 
fij else Get_Pixel_minmax ( i , cmax) ; 
; cmax + + ; 

long* color_map; 

try { color__map=new long [cmax] ; } 
O catch (...) 

{ 

Af xMessageBox ( " Low memory, cannot perform this transform", 

MB_OKlMB_ICONEXCLAMATION) ; 
return false; 

} 

if ( ! color_map) 

{ 

Af xMessageBox (" Low memory, cannot perform this transform", 

MB_OK|MB_ICONEXGLAMATIOM) ; 
return false; 
} // out of memory 

/* Set color map parameters 
if(amin<0) amin=0; 
if(bmin<0) bmin=0; 
if (amax>m__maxPixe lvalue) arnax=m 
if (bmax>m_maxPixelValue) bmax=m 
if (amin>=amax | | bmin>=bmax) 

{ 

delete [] color_mapr return 

} 

if (aTrin= = bmin && amax==bmax) 

{ 

delete [] color_map; return 

} 



max Pixe lvalue ; 
maxPixelValue ; 
// invalid map 

false ; 

// no stretch needed 
t rue ; 
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/* Fill the color map */ 
long da=:amax~amin; 
long db=bmax-bmin; 
for (1=0; i<cmax; i++) 

{ 

p=bmin+ ( db* ( i -amin) ) /da; 

if (p<bmin) p=bmin; else if (p>bmax) p=bmax; 
color_map[i] =p; 

} 

SetPalette ( color_map , cmax, show^progress) ; 

delete [] color_Tnap; 
return true; 

} 



* 

* Histogramm stretch from (percent) % median neighborhood 

* to the maximal [ 0 , m^maxPixe 1 Value] range 

■k 

bool Image :: TR_Hi stStretch (BYTE percent^ bool show_progress) 

{ 

long i, amin, amax, amed, p; 

/* Validation */ 
O if (percent>=100 ) percent=99; 
iTl if (percent<0) return true; 

/* Find pixel statistics */ 
Ml Get__Pixel_minmax (amin, amax) ; 

\| if (percent==0 ) return TR_HistStretch (amin, amax, 0 , 

,^.'.1. m_maxPixelValue , show_progress) ; // simple stretch 

m /* Initialise image histogram */ 
HJ long cmax=amax+l; 

int* hist; 
^ try { hist=new int[cmax] ; } 
F"'- catch (...) 

Af xMessageBox ( "Low memory, cannot perform this transform", 
= -f MB_OK|MB_ICONEXCLAMATION) ; 

'"^i return false; 

^ if(!hist) 

Af xMessageBox (" Low memory, cannot perform this transform"); 

return false; 
} / / out of memory 
for(i=0; i<cmax; i++) hist[i]=0; 

/* Estimate image histogram */ 
int hmax=20000; 

int di= max { 1 ,m_numPixels/l 000 0) ; 

if(m_RGB) // Color image 

{ 

for(i=0; i<m_numPixelBytes ; i += di) 

{ 

p=m_Pixels [i] ; 

if (hist [p] <hmax) hist [p] di; 

} 

} 

else // Greyscale image 

{ 

for(i=0; i< ( long) m_numPixels; i += di) 
{ 

p = GetPixel (i) ; 

if (hist [p] <hmax) hist [p] += di ; 

} 

! 
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Find histogram color average */ 
double ptot=0, tot=0; 
for(i=0; i<CTnax; i + + ) 
{ 

ptot += ( (double) i) *hist [i] ; 
tot += hist [i] ; 

} 

amed = ( long) { 0 . 5+ptot/ tot ) ; 

I Find new intensity range to preserve */ 

double keep_max= { 100-percent ) *tot/100; // number of pixels to keep 

double keep=hist [amed] ; 

long bmin=amed; long bmax = ame d ; 

do // do at least once to guarantee bmin<bnnax 

{ 

if (bmin>amin) 

{ 

bmin- - ; 

keep += hist[bmin]; 

} 

if (bmax<amax) 

{ 

binax++ ; 

keep += hist [bmax] ; 

} 

} while {keep< = keep__max) ; 
delete [] hist; 

if { ( (bmin 1 =amin) | | (bmax ' =amax) ) Sc& (bmin<bmax) ) 
CJ return TR_Hi st Stretch (bmin, bmax, 0 ,m_maxPixelValue, shov/_progress) ; 

■J% else return false; 

ii 



%J Histogramm equalization 

'•k 'i -k -k -k -k -k -k ie -k -k ic i( -k i( -k it -k -k -k it -k if i( -k ± ic -k it ii^ i: it ^ 

Bool Image :: TR_HistEqualize (bool show_progress ) 

't: 

r| long i, amin, amax^ p; 

/* Find pixel statistics 
"vi Get_Pixel_minmax (amin, amax) ; 
Q Beep(300,100) ; 

-^•s- 1^ Initialize image histogram, also used as color map */ 
long cmax-amax+lf 
long* hist=new long[cmax]; 
if ( !hist) 

( 

Af xMessageBox { " Lov/ memory, cannot perform this transform"); 

return false; 
} / / out of memory 
for(i=0; i<cmax; i + + ) hist[i]=:0; 

/* Compute image histogram */ 
long hmax"2 0 00 0 00 ; 

int di= max ( 1 ,m_numPixels/lO00O) ; 

if(m_RGB) // Color image 

{ 

for(i=0; i<m_numPixelBytes ; i += di) 

( 

p=m_Pixels [ i ] ; 

if (hist [p] <hmax) hist [p] += di ; 

} 

} 

else // Greyscale image 

{ 

for{i=0; i< ( long) m_numPixels ; i += di) 

{ 

p=GetPixel ( i) ; 
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if (hist [p] <hmax) hist [p] += di ; 

1 

} 

/* Integrate the histogram */ 
double htotal=0; 

for{i=0; i<cmax; i++) htotal += hist[i]; 

if (htotal<l) // did we have negative pixels or empty image ? 

{ 

delete [] hist; return false; 

) 

if (hist [0] <htotal-l) { htotal hist [0] ; hist[O]=0; ) 

/* Fill the color map */ 
double hcum=0; 
for(i-0; i<cmax; i++) 

{ 

hcum += hist[i] ; // update cumulative hist 
hist [i] = (long) ( (m_maxPixelValue*hcum) /htotal) ; 

} 

/* Remap the pixel data */ 

SetPalette (hist , cmax , show__progress) ; 

/* Clean up */ 
delete [] hist; 
return true ; 

) 



•^l Image Gamma correction 

feyol Image :: TR_GammaCorrect ion (double gamma) 

OJ 

„ long 1, p, pmax; 

^ /* Validation */ 

L| if (gamma<=0 . 1) gamma=0 . 1 ; 

fil if ( fabs (gamma- 1 . 0) <0 . 1 ) return true; // gamma is nearly 1.0, no correction 

2^ /* Find maximum pixel value */ 
Get_Pixel_minmax ( i , pmax) ; 

if (pmax==0) return true; //blank image, no correction 



/* Create color map */ 
long* color_map; 

try { color_map=new long [pmax+1] ; } 
catch (...) 

{ 

Af xMessageBox ( "Low memory, cannot run gamma correction", 

MB_0K|MB_ICCNEXCLAMATI0N) ; 
return false; 

} 

if ( ! color_map) 

{ 

Af xMessageBox (" Low memory^ cannot run gamma correction", 

mb_ok1mb_iconexclamation) ; 

return false; 
) // out of memory 

/* Fill the color map */ 
double c= 1.0 /pmax; 
double gamma_l=l . O/gamma ; 
for(i=l; i<=pmax; i++) 

{ 

p= ( int ) ( 0 . 5+pmax*pow ( i , gamma_l ) ) ; 
if(p>pmax) color_map [i] =pmax ; 
else color__map [ i ] =p ; 
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} 

color_map [0] =0 ; 

// Display progress control in the main frame status bar 
theApp. ShowProgress ( 1 Performing gamma correction ..."); 

/* Remap the pixel data */ 

SetPalet te (color_map/ pmax+1, true) ; 

/* Clean up */ 
delete [] color_map; 
theApp . ShowProgre s s ( 0 ) ; 
Beep[500,100) ; 
return true; 

} 



■k 

* Log transform to enhance dark images 
bool Image : ;TR_PixelLog () 

{ 

long i, p, pmax; 

~£| Find maximum pixel value */ 

f^j Get_Pixel_minmax ( i , pmax) ; 

Z-^ if (pmax< = 2) return true; //blank image ^ no correction 

'^i /* Create color map */ 
dj long* color_map; 

try { color_map=new long [pmax+ 1 ] ; } 

cat ch ( , . . ) 

Af xMessageBox ( " Low memory, cannot enhance dark image", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

if ( ! color_map) 
Si ^ 

^- Af XMessageBox ( "Low memory, cannot enhance dark image'', 

Q MB_0K|MB_IC0NEXCLAMATI0N} ; 

rj return false; 

} // out of TTiemory 

/* Fill the color map */ 

double c=m_maxPixelValue/log ( ( double) pmax) ; 

for(i=0; i<=pmax; i++) 

{ 

p={long)( 0.5+c*log( (double) (i+1) ) ); 

if (p>m_maxPixelValue) color_map [i] =m_maxPixelValue ; 

else color^map [i ] =p ; 

} 

/* Remap the pixel data */ 
SetPalette (color_map , pmax+1, true); 

/* Clean up */ 
delete [] color_map; 
Beep(500;100) ; 
return true; 

} 



* Exp transform to enhance light images 
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bool Image : t TR_Pixel Exp ( ) 

( 

long i , P; pmax; 

/* Find maximum pixel value */ 
Get_Pi xel_minmax ( i / pmax) ; 

if(pmax<=2) return true; //blank image, no correction 



/* Create color map */ 
long* color_map; 

try { color_map=new long [praax+1] ; } 
catch (...) 

{ 

Af xMessageBox ( " Low memory, cannot enhance bright image", 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

) 

if ( 1 color_map) 

{ 

Af xMessageBox (" Low memory, cannot enhance bright image", 

MB_OKiMB_ICONEXCLAMATION) ; 
return false; 
} // out of memory 

/* Fill the color map */ 
double c=l . 0/m_maxPixelValue; 
for(i=0; i<=pmax; i + + ) 

p=(long)( pow ( (double) m_maxPixelValue , c*i ) ); 
Q'l if {p>m_maxPixelValue) color_map [ i] =m_maxPixelValue ; 

'I-rr. else col or_map [ i ] =p ; 

J: } 

/* Remap the pixel data */ 

SetPal ette ( color_map , pmax+l, true); 

Hi /* Clean up */ 

s- delete [] color_map; 

I , Beep (50 0 , 100) ; 

l", return true; 

iS 

f1 

Rotate the image 

* 

bool Image :: TR_Rotate ( int degrees) 

{ 

degrees %= 360; 

if (degrees == 0) return true; 

if (degrees != 90 && degrees != ISO degrees 1= 270) return false; 

int x, y, w, h; 

// Do we have 180 degrees ? 

if (degrees == 180) 

{ 

// Backup 

ResetPixels (true) ; 
// Central symmetry 

w = GetWidthO; h = GetHeight(); 

long p; 

for(x=0; x<w/2; X++) 

{ 

:: ShowProgress ( (200*x) /w, "Rotating by 180 degrees..."); 
for(y=0; y<h; y++} 

{ 

p = GetPixel (x , y) ; 

SetPixel (x,y, GetPixel (w-x,h-y) ) ; 

SetPixel (w-x,h-y,p) ; 



21 



Image . cpp 



10/27/00 



} 

if Cw%2 = = 0) 
{ 

X = (w/2) ; 

for(Y=0; y<h/2; Y++) 

{ 

p = GetPixel (X; y) ; 
'G4 2Xn um<m_NumberOf Frames ; imagenum++) 



{ 

info . Format ( "Loading image # %d/%d" , imagenum+1 , m_NumberOf Frames) ; 

// Allocate next image frame 

p]mg = &(Add()); if(lplmg) break; 

if ( ! (pImg->Create Image (m_Width , m_Height , (m_Bit sAllocated+7 ) /8 , 

m_Palette} ) ) 

{ 

AfxMessageBox ( "Out of memory for image data", MB_ICONEXCLAMATI0N | MB_OK) 
RemoveLast { ) ; 
pimg = NULL; 
break; 

} 

// Load pixels 
int percent=0; 

long pmax=Get ( 0) .m_maxPixelValue ; // set acceptable pixel max. 
double aprog=imagenum*m_Height ; 
for(UINT y=0; y<m_Height; y++) 

{ 

if (y%60==0) 

{ 

percent = (int) ( (y+aprog) *kprog) ; 

if (percent%2 = = 0) :: ShowProgress (percent , (char*) (LPCSTR) info) ; 

} 

for{UINT x=0; x<m_Width; x++) 

{ 

p=rpd- GetBuf f eredPixel (i) ; i++; 

pImg->SetPixelFromLum(x,y , (pmax* {p-p_min) ) /dp ) ; 

) 

} 

// Set record data 

pImg- >Set ImageData ( &dr, &:m_Pixe 1 Spacing , Siimagenum) ; 

// Create series palette 

if ( imagenum==0 ) // first image 

{ 

m_Palette = new Palette ( theApp . app_Metheus , 

pImg- >m_maxPixelValue , 

pImg->m_RGB) ; 
pImg->LinkToPalette (m_Palette) ; 

} 

) 

vr->Reset(); // Clear data from the vr 

// Update image series parameters 

if (GetSize 0 >0) 

{ 

m_Width=Get (0) .GetWidthO; 
m_Height=Get (0) ,GetHeight() ; 

m_SamplesPerPixel=l ; // we merged multiple samples 
m_BitsAllocated=8*Get ( 0) . GetBytes Per Pixel ( ) ; 
m_BitsStored=m_HighBit=m_BitsAl located; 

} 

SetShowSeriesImageInf o ( true) ; 
theApp . ShowProgress ( 0 ) ; 

return true; 



Save bitmap image array as VR data 

This function is required and overrides abstract virtual 
in the base class 
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bool ImageSeries : : WritePixels (VR *vr) 

{ 

int i ; 

UINT32 data^sise, dsize; 

// Find total data size 

int imagenum=GetUpperBound ( ) +1 ; 

if ( imagenum<=0 ) return true; 

data_size=0 ; 

for{i = 0; i< imagenuTTi; i + +) 

( 

Get{i) . GetPixelBytes (dsize) ; 
data_size += dsize; 

} 

// Allocate pixel encoder 

RawPixelEncoder rpe ; 

if ( ! rpe . Set Size (data_size) ) 

{ 

Af xMessageBox ( "Out of meinory on saving pixel data", 
MB_ICONEXCLAMATION|iy!B_OK) ; 

return false; 

} 

// Copy image data into the encoder buffer 
for(i=0; i<imagenum; i++) 

{ 

BYTE* data = Get (i) .GetPixelBytes (dsize) ; 

rpe . AddData (data , dsize, Get { i ) . GetBytesInRaw [ ) ) ; 

'Zl // Attach encoder buffer to the vr 
rpe . Transf erDataToVR (vr ) ; 

J\ return true; 

Get image pointer (safe), and update m_Current Image Index 

lUage* ImageSeries : ;Get Image ( int n) 

// Validate image index 
p if ( IHasData 0 ) 

m_Cur rent Image Index= - 1 ; 
return NULL; // no images 

} 

if (n<0) n=0 ; 

else if (n>GetUpperBound ( ) ) n=GetUpperBound ( ) ; 

// Retrieve image pointer 

m_CurrentImageIndex=n; 

return Si:(Get (m^Current Imagelndex) ) ; 

} 

Image* ImageSeries: : GetCurrent Image ( ) 

{ 

return Get Image (m_CurrentImageIndex) ; 

} 

Image* ImageSeries :: Get ImageFromScreenPoint (CPoint &p) 

{ 

Image* img = GetCurrent Image () ; 
if (limg) return NULL; 

if (m_Di splay Columns == 0) return img; 

if ( img- >ContainsScreenPoint (p) ) return img; 
for{int n=0; n< ( int ) Get Size () ; n++) 

( 

if (n==m_Current Imagelndex) continue; 
if (Get (n) . ContainsScreenPoint (p) ) 
{ 

img = Getlmage(n); 
SetSelectedlmage ( ) ; 
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break; 

} 

} 

return img; 

) 

* Sets selection to current image 
void ImageSeries: : Set Selectedlmage ( ) 

{ 

for (unsigned int n=0; n<GetSize{); n++) 

{ 

if (Get (n) . GetDisplayStatus ( ) i= Image :: DisplaySelected) continue 
Get(n) . SetDisplayStatus { Image : : DisplayNormal ) ; 

} 

Image* img = GetCurrent Image () ; 

if ( img) img- >SetDisplayStatus ( Image : r DisplaySelected) ; 



•k 

* Adding new DICOMOb j ect s to the series 

bool ImageSeries :: AddDDO (DICOMDataObj ect &ddo, bool de s t roy_original ) 

{P 

bool success = true ; 
^"„^ bool read - !HasData(); 

ImageSeries tmp__series; 
y.5 if (destroy_original ) // we can destroy ddo 

^.^Z if (read) success = ReadDO (ddo) ; 

-^vj- else success = tmp_series . ReadDO ( ddo) ; 

fll else // we must keep the original => use clone 

7 ( 

DICOMDataObj ect ddo_tmp; 
f"" success = ddo_tmp , Clone From (&ddo) ; 

CI i f ( success ) 

if (read) success=ReadDO (ddo_tmp) ; 

^"^i else success = tmp_series . ReadDO (ddo__tmp) ; 

™" if ( ! success) 

{ 

AfxMessageBox (" Cannot add DICOM object to the series", 
MB_ICONEXCLAMATI0N|MB_OK) ; 

return false; 

} 

if (read) return success; //no need to append 
else return AddSer ies ( tmp_series , true ) ; 

} 

bool ImageSeries : :AddDDOFile (CString filename) 
{ 

DICOMDataObj ect ddo ; 

// Load DDO completely, but without RTC 

if ( ddo . LoadFromFile ( (char*) (LPCSTR) filename , false) ) 

{ 

return AddDDO (ddo, true); 

} 

else return false; 

} 

void ImageSeries :: AddDICOMRecords (Array<DICOMRecord>& a) 

{ 

int n=0; 

while (n< ( int ) a . GetSize ( ) ) 

{ 

if (BelongsToThisSeries (a [n] ) ) 

{ 
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AddDDOFile (a [n] , GetFi leName ( ) ) ; 
a . RemoveAt (n) ; 

} 

else n++; 

} 

* Adding new series to "this" series, assuming "this" is not empty 

bool ImageSeries: :AddSeries(ImageSeries bool delete_s) 

int ns=s . GetUpperBound ( ) ; 

if(ns<0) return true;// nothing to do 

int n = GetUpperBound ( ) ; 

if (n<0) return true; // do not add to empty 1 

if (delete_s) Array<Iraage> : : Include (s) ; 
else SetSize (n+l+ns+1) ; 

for(int i=0; i<=ns; i++) 

{ 

int k=n+i+l; 

if ( ldelete_s) Get (k) . CloneFrom ( &s [i] ) ; 
if(k>0) 

^ Get (k) .LinkToPalette(Get (0) ,m_pPal) ; 

} 

:fl // Force layout update 

2f SetDisplayColumns (DisplayColumnsAutomatic) ; 

SetShowSeriesImageInf o (Get ShowSer ies Imageinf o ( ) ) ; 

%ji return true; 



****** ************ 

* 

Test if dr represents an object that belongs to the same series 
as (this) 

^^!;,^^^^^*^* + ^* + *********d^***^**^**************** *********************/ 

iMol ImageSeries: :BelongsToThisSeries (DICOMRecord &dr) 
& 

if (GetSize 0 <=0) return true; _ 

S return (Get ( 0 ) . CompareToDI COMRecord ( dr , DICOMRecord :: LevelSeries) 0) 

U 

/*****************************************************************''*** 

* Save the series as a set of BMP files 

* in the given directory 

*^^^^*^**^***********vr***^****************************** *************/ 
bool ImageSeries: :SaveAsImageFiles (CString ^directory, CString prefix) 

{ 

if ( IHasDataO ) return true; 

// Set validated directory and prefix 

directory. TrimLeft 0 ; directory . TrimRight () ; 

if ( ! ; :CreateAndSetCurrentDirectory ( (char*) (LPCSTR) directory) ) 
^ AfxMessageBoxC Cannot set image directory\n" +directory , 

mb__iconexclamation1mb_ok) ; 
return false; 

prefix.ReplaceC'W/. - ? 1 *_ ",NULL) ; 
if (pref ix==" ") pref ix="img" ; 
prefix += " _" ; 

pref ix=directory+CSt ring ( "\\" ) +pref ix; 

// Store image series 
CString num; 

for(int i=0; i<=GetUpperBound ( ) ; i++) 
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num. Format ( " %s%03d.bmp" , prefix, i + 1) ; 
if (IGet(i) . WriteToFile (num) ) 

{ 

return false; 

} 

} 

return true; 

} 

*********************** ^* ********* 

* 

* Set image info for all images in the series 

*^^^********************************************^*** ******* 
void ImageSeries: :SetShowSeriesImageInfo(bool show) 

^ for(unsigned int i=0; i<GetSize(); i++) Get ( i ). SetShowImageInf o ( show) ; 

bool ImageSeries: : GetShowSeries Imageinf o ( ) 

^ if (GetSize ( ) <1) return false; 

return Get(O) . Get Showlmageinf o ( ) ; 

} 

^^^^^*********** ************************************ ****************** 
* 

* Display images 

tg* **************************************************************** V 
IriSge* ImageSeries : :Display Images (CDC *pDC, CPoint pScroll/* = CPoint ( 0 . 0 ) */ ) 

II Grab current image pointer 
^11 Image* pimg = GetCurrent Image () ; 

C| if (iplmg) return NULL; // no images in this series 

II Initialize screen rectangle, if needed 
y3 if (m_ScreenRect .Width 0 0) Set ScreenRect ( 1 . 0 ) ; 

// Compute image layout, if needed 
" if (m_DisplayColumnsChanged) 

f% ^ SetOptimallmageLayout 0 ; 

m_DisplayGolumnsChanged= false ; 

pi; // Display 

if (m_DisplayColumns 0) // Single image 

^ pImg->DisplayDIB (pDC, pScroll) ; 
} 

else 

^ for (unsigned int n=0; n<GetSize(); n-f + ) 
^ Get (n) .DisplayDIB (pDC, pScroll); 

} 

} 

return pImg; 



/ 



******* 



************************************************************** 



* Set the number of display columns. 



* * 



^^^^^^* *************************************************** *********/ 



bool ImageSeries: :SetDisplayColumns( int ncol) 

^ m_DisplayColumnsChanged = (ncol != m_DisplayColumns) 
m_DisplayColumns = ncol; 
return m_Di splayColumnsChanged ; 



y'******* 



****** 



******************************************************** 
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* Find the optimal multi-image layout. 

****************************************** 
void ImageSeries: : SetOpt imallmageLayout ( ) 
{ 

int icount=0/ n; 

// Process individual image display 
if {m_DisplayColumns == 0) 

for(unsigned n=0; n<GetSize(); n++) 

^ Get(n) m_ScreenMap. FitlnsideScreenRect (m_ScreenRect) ; 

} 

return; 

// Process multiple image display 
for(n=0; n< (int)GetSi2e() ; n++) 

^ if (Get (n) .GetDisplayStatus 0 == Image :: Di splayHidden) continue; 
icount ++; 

if(icount<l) return; // nothing to display 

int nr, best_nc; 

jmage* pimg = GetCurrent Image () ; 

if ( ! pImg) return; 

int iw = pImg->GetWidth ( ) ; 

int ih = pImg->GetHeight ( ) ; 

const static int d = 16; 



dj II Find the best image zooming factor 
d 
i 

{ 



double best_zoom; 

if (m_DisplayColumns>:=0) // Column number was specified 



best_nc = max ( 1 , min (m_Di splayColumns , i count )) ; 
nr ="(icount+best_nc-l) /best_nc; 
''^ best_zoom = min ( (m_ScreenRect . Width () -d* (best_nc + l . 0 ))/( iw*best_nc ) , 

O (m_ScreenRect .Height ( ) -d* (nr+1 . 0) ) / (ih*nr) ) ; 

else // Column number unknown, find best 

\ { 

double zoom; 
□ best_zoom = 0.0; 

for (int nc=l; nc <= l + icount/2; nc + + ) 

:t { 

■■^^ nr = (icount+nc-1) /nc ; 

:i zoom = min( (m_ScreenRect . Width () -d* (nc + 1 . 0) )/( iw*nc) , 

(m_ScreenRect .Height 0 -d*(nr+1.0) )/(ih*nr) ) ; 
if (zoom>best_zoom) 

{ 

best_zoom = zoom; best_nc = nc ; 

} 

} 

m_Di splayColumns = best_nc; 

} 

// Find image screen sizes 

nr = (icount+best_nc-l) /best_nc ; 

int w = max(4, (int) ( iw*bes t_zoom) ); 

int h = max(4, (int) ( ih*best_zoom) ); 

int dx = max(l, (m_ScreenRect . Width () -w*best_nc )/ (best_nc+l ) ); 
int dy = rnaxd, (m_ScreenRect . Height () -h*nr) / (nr + 1) ); 

// Set screen viewing rectangles for images 
int X, y; 

CRect r; 

for(n=0; n< (int) GetSize 0 ; n++) 

^ if (Get (n) .GetDisplayStatus 0 Image :: DisplayHidden) continue; 

X = dx+(n % best_nc) * (w+dx) ; 
y = dy+(n / best_nc) * (h+dy) ; 
r , SetRect (x , y , x+w, y+h) ; 

Get(n) .m_ScreenMap. Fit InsideScreenRect (r ) ; 

} 
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return ; 

} 

■k 

* Alternate between browse and non-browse states 

•k 

void ImageSeries: : Swi t chBrowseView ( ) 

^ if (m_DisplayColumns == 0) SetDi splayColumns (Di splayColumnsAutomat ic ) ; 
else" SetDisplayColumns ( 0) ; 



/ 



************* 



^^^^^^^^*^^^^^it***************************************** 



* Set screen rectangle from a zoom factor 
* 

^^^^*^^^^;t*****************************^*****************************/ 
void ImageSeries :: SetScreenRect (double zoom/ . 0*/ ) 

{ 

if(zoom<0.1 II zoom > 10.0) return; 
// Find screen size 

( (CMDIFrameWnd*) AfxGetMainWndO ) - >MDIGetAct ive ( ) - >GetCl ientRect (m_ScreenRect ) 
m_ScreenRect .BottomRight ( ) .y 20; 
m_ScreenRect . BottomRight ( ) . X 20; 
if (zoom! =1 . 0) // zoom 

Oi int w = max (64, (int) ( zoom*m_ScreenRect . Width () ) ); 

,li int h = max(64, ( int )( zoom*m_ScreenRect . Height () ) ); 

2: int X = max(0, (m__ScreenRect . Width ( ) -w) / 2 ); 

yji int y = max(0, (m_ScreenRect . Height () -h) /2 ); 

y!! m_ScreenRect , SetRect (x,y,x+w,y+h) ; 

\J } 

SetOptimal ImageLayout () ; 



/ 



**************** 



***************************:t***************it****** 



* Zoom and offset images 

^ ^****************************************************************/ 
vqj^ ImageSeries :: Zoomlmages (double zoom) 

'"^1 for {unsigned int n=0; n<GetSize(); n+ + ) 

Get(n) . Set ImageRect Zoom (zoom) ; 

void ImageSeries : :OffsetImages (double dx, double dy) 
{ 

for(unsigned int n=0; n<GetSize(); n++) 

{ 

Get(n) . SetlmageRectOf f set (dx, dy) ; 

} 

} 

double ImageSeries : :GetZoom ( ) 

{ 

Image* pimg = GetCurrent Image () ; 
if(plmg) return pImg- >GetZoom ( ) ; 

else return 1.0; //no zoom 

} 
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// Palette, h: interface for the Palette class. 
// 

f I / 1 1 1 1 1 1 1 1 1 1 ! 1 1 { I f 1 1 1 f 1 1 1 11 1 1 1 1 1 1 1 1 1 n 1 1 ! 1 1 1 1 ( 1 1 1 1 1 1 / 1 1 ( f 1 1 f f I / 1 1 1 1 1 f 

#if 1 defined ( AFX_PALETTE_H_INCLUDED_) 
#define AFX__PALETTE_H_INCLUDED_ 

#if _MSC_VER > 100 0 
#pragma once 

#endif // _MSC_VHR > 100 0 
class Palette 



public : 
bool 
int 



p_act ive ; 
p_Size ; 



void 
void 
void 
bool 
bool 
bool 
bool 
bool 
bool 
bool 



Backup 0 ; 

Negate (bool RGB=:false) ; 

Get_Pal_minmax ( longSL pmin, longS: pmax, bool RGB = false) ; 
CreateNewPalette (bool Metheus, long max_color, bool rgb) 
CloneFromPalette ( Palette *pPal) ; 
I sCorrect Palette ( ) ; 

LoadPalette(CDC* pDC, bool RGB=false) ; 
SetPalette ( ) ; 

SetPalette ( long* color_map, long color_Tnap_si2e) ; 
SetPalette { long offset, double stretch); 



inline long Get PaletteColor ( long index); 
Palette 0 ; 

Palette (bool Metheus, long max_color, bool rgb) 
01~Palette() ; 
private : 

p_Metheus ; 
p_update ; 



bool 
"'vi bool 

long 

USHORT* 
= y USHORT* 
E HPALETTE 

void 



p_f actor ; 
p_maxCol ; 
p_Val; 

p_Val_backup ; 
p_Hpal ; 

DeletePalette ( ) ; 



* rj Return palette color at the given index 
inline long Palette GetPalet teColor ( long index) 

{ 

if (index<0) index=0; 

else if { index>=p_Size) index=p_Si2e-l ; 

return p__Val [ index] ; 



#endif // ! def ined (AFX_PALETTE_H_INCLUDED_) 
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// Palette, cpp: implementation of the Palette class. 
// 

1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 { 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

#include "stdafx.h" 
# include " , .\DCM.h" 
# include " Palette . h" 



#ifdef _DEBUG 
#undef THIS__FILE 

static char THIS_FILE[]= FILE_ 

#define new DEBUG_NEW 
#endif 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
// Construction/Destruction 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

Palette: :Palette() 

{ 

p_Val = NULL; p_Val_backup = NULL; p_Hpal = NULL; 

p_update=true ; p_Metheus = false; 

p_f actor = 1; p__maxCol = 25 5; 

p_active - false; p__Size = 0; 

) 

Palette :: Palette (bool Metheus, long max_color, bool rgb) 

{ 

p_Val = NULL; p_Val_backup NULL; p_Hpal = NULL; 

CreateNewPalet te (Metheus , max__color, rgb); 

} 

Palgtte: :~Palette() 
rteletePalette { ) ; 

} 

voiS'i: Palette: :DeletePalette() 

{ 2 

^^;:if (p_Val) delete [] p_Val; 

ySf (p_Val_backup) delete [] p_Val_backup ; 

rii|Lf (p_Hpal) : : DeleteObj ect {p_Hpal ) ; 

^ p_Val = NULL; p_Val__backup = NULL; p_Hpal = NULL; 

|=:^p_update = true ; p_Metheus ^ false; 

f"p_f actor = 1; p_maxCol = 255; 

i''p_active = false; p__Size = 0; 

} 

■k ^:|^eset palette 

bool Palette :: CreateNewPalette (bool Metheus, long max color, bool rgb) 

{ 

DeletePalette ( ) ; 

p_Metheus=Metheus ; p_factor=l; p_maxCol=Tnax_color ; 
if (p__Metheus) 

{ 

p_Size=max_color+l ; p_f actor=USHRT_MAX/ (p_Size- 1 ) ; 

} 

else 

{ 

if ( ! theApp , app_SupportedPalet teSize) 

{ 

p_Size=128; p_factor=2; //No support for 8-bit palettes 

} 

else 

{ 

p_Size=255; p_factor=l; 

} 

} 

if (p_maxCol>=p_Size) p_maxCol=p_Size- 1 ; 

p_Val=0; p_Val_backup=0 ; 

try 

{ 
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p_Val_backup=new USHORT [p_Size] ; 

if (p_Val_backup) p_Val = new USHORT [p_Size] ; 

p_active = (p_Val ! =MULL) ; 

} 

catch (...) 

{ 

Af xMessageBox ( " Low memory, cannot allocate image palette", 

MB_0K|MB_ICONEXCLAMATI0N) ; 
p_active= false ; 
return false; 

} 

if (p_active) 

{ 

for(USHORT i=0; i<p_Size; p_Val[i]=i; 
Backup ( } ; 

) 

p_upda te=true ; 



// Only greyscale palettes 
if(p_active] p_act ive= I rgb; 
return true; 



/ 



* Copying palettes 

bdfil Palette :: CloneFromPalette (Palette *pPal) 

i}"- if(lpPal) return false; 

if( ! CreateNewPalette (pPal ->p_Metheus , pPal ->p_maxCol , 
J'T, 1 (pPal->p_active) ) ) return false; 

if (pPal->p_Val} 

'J'^ memcpy {p_Val , pPal->p_Val, p_S ize* ( sizeof USHORT) ) ; 

Backup 0; 

s return true; 

4U Set identity palette 
l?tfel Palette :: SetPalette 0 

p 

if ( Ip^active ] | lp_Val) return false; 
for (USHORT i=0; i<p_Size; i++) p_Val[i]=i; 
p_upda t e - 1 rue ; 
return true; 

} 

* 

* General (from array) palette update 

bool Palette :: SetPalette ( long *color_map, long color_map__size) 

{ 

if(lp_active || lp_Val) return false; 
long i ; 

long imax= ( p_Size>color_map_si2e ? color_map_size : p_Size ) ; 
for(i=0; i<imax; p_Val [i] - (USHORT) labs (color_map [i] ) ; 

for(i=imax; i<p_Size; i + + ) p_Val [ i] =p_Val [imax-1] ; 
p^upda te=true ; 
return true; 

} 

■k 

* Linear palette update for Fast Color/Contrast 
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bool Palette :: SetPalette (long offset, double stretch) 

{ 

if(Jp_active || ip_Val) return false; 

1 ong i , n ; 

long l_of f set=of f set<<10 ; 

long l_stretch = (long) ( 1024*stretch) ; 

for(i=0; i<p_Size; i++) 

{ 

n= ( l_of f set+ ( (long) p_Val_backup [ i] ) *l_stretch) ; 

if (n<=0) p_Val [i] =0; 

else 

{ 

n >>= 10; 

if Cn>=p_maxCol ) n=p_maxCol - 1 ; 
p_Val [i] = (USHORT) (n) ; 



p_update=true ; 
return true; 

} 



*f~'i Create and load palette into the given DC 

bOll Palette : rLoadPalette (CDC *pDC, bool RGB) 

r'l: if{!p_Val} return false; // cannot allocate palette 

J if ( ! p__act ive) return true; // disabled palettes 
^1 long i; 

if ( ! p_Metheus) // load Windows palette 

if ( ! p_update) // same palette as before, skip palette reload 
{ 

■ :SelectPalette (pDC->m_hDC,p_Hpal,TRUE) ; 
pDC->RealizePalette ( ) ; 
p_update = f alse ; 
return true; 

^ BYTE r,g,b; 

^ int cPalette = sizeof (LOGPALETTE) +sizeof { PALETTEENTRY) *p_Size ; 

y LOGPALETTE* pPal = (LOGPALETTE=^ ) new BYTE [cPalette] ; 

if(lpPal) return false; 

pPal - >palVers ion = 0x300; 

pPal- >palNumEntries = (unsigned short ) p_Size ; 
for(i = 0; i<p_Size; i++ ) 

{ 

if (RGB) 
{ 

r=GetRValue (p_Val [i] ) 
g = GetGValue (p_Val [i] ) 
b=GetBValue (p_Val [i] ) 

} 

else r=g = b=p_f actor* (BYTE) min (p__Val [i] ,p_Si2e-l) ; 

pPal - >palPalEntry [i] , peRed = r; 
pPal ->palPalEntry [i] . peGreen = g; 
pPal->palPalEntry [i] .peBlue = b; 
pPal ->palPalEntry [ i] . peFlags = NULL; 

} 

DeleteObj ect (p_Hpal ) ; // free display memory 
p_Hpal = CreatePalette (pPal ) ; 
delete [] (BYTE*)pPal; 
if(lp_Hpal) return false; 

: : SelectPalette (pDC - >m_hDC , p_Hpal , FALSE) ; 
pDC->Reali2ePalette ( ) ; 

DeleteObj ect (p_Hpal ) ; // free display memory 

} 

else // Metheus device 
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{ 

if ( I p_update) return true; //same palette as before 
USHORT* p_Val_tmp = new USHORT [p_Sise j 
if ( ! p_Val__tmp) return false; 

for(i = 0; i<p_Size; p_Val_tmp [ i] =p_f actor ^p_Val [ i ] ; 

if (MetheusLoadGrayPalette {pDC- >GetSaf eHdc ( ) , 

theApp . app_DynamicPaletteStart , p_Size , p_Val_tmp) ==PALSE) 

{ 

delete [] p_Val_tmp; 
return false; 

} 

delete [] p_Val_tmp; 

} 

p_update= false; 
return true; 

} 



^ Find min and max palette colors 

void Palette :: Get_Pal_minmax ( long &pmin, long &pmax , bool RGB) 

{ 

long i, p; 

prain=0; pmax = l; 
O if(lp_Val) return; 
-j% if(iRGB) // greyscale 

pmin=p_Val [0] ; pmax=pmin+l; 
yTa for(i = l; i<p_Size; i + + ) 

if (p__Val [i] >pmax) pmax=p_Val [ i ] ; 
"^;f else if (p_Val [i] <pmin) pTnin=p_Val [i] ; 

else 

:., { 

r BYTE r , g , b ; 

Q pmin=GetRValue (p_Val [0] ) ; pmax=pmin+l ; 

for(i = 0; i<p_Size,- i + 

H p=p_Val[i]; 

r| r-GetRValue (p) r g=GetGValue (p ) ; b=GetBValue ( p) ; 

p.^, if (r>pmax) pmax=r; 

else if (r<pTnin) pmin=r; 

if (g>pmax) pmax=g; 

else if(g<pmin) pmin=g; 

if (b>pmax] pmax=b; 

else if (b<pmin) pmin^b; 

} 

} 

} 

* Invert palette colors 
+ 

void Palette : :Negate (bool RGB) 

{ 

long i, p; 

if(ip_active || ip_Val) return; 

if ( ! RGB) 

{ 

for(i=0; i<p_Size; i++) 

{ 

p=p_inaxCol-l- (long) p_Val [i] ; 

if(p<0) p=0; else i f (p>=p_maxCol ) p=p_maxCol - 1 ; 
p_Val [ i ] = ( USHORT ) p ; 

} 
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} 

else 
{ 

BYTE r,g,b; 
for(i=0; i<p_Si2e; 

( 

r=GetRValue (p_Val [i] ) ,• g=GetGValue (p_Val [i] ) ; b=GetBValue (p_Val [i] ) 
p_Val [i] = (USHORT)RGB {255-r , 255-g, 25 5-b) ,- 

} 

1 

p_updat e = t rue ; 

} 

■k 

* Return "true" if palette supports the same color range as the image 
bool Palette : : IsCorrectPalette ( ) 

{ 

return (p_factor==l | | p_Metheus) ; 



-A 

* Save current palette colors 

v£|d Palette : :BackUp ( ) 

if(Ip_active (| !p_Val || i p_Val_backup || !p_Size) return; 
memcpylp Val backup, p Val, p Si2e*(sizeof USHORT) ) ; 
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// ScreenMap . h ; interface for the ScreenMap class. 
// 

////////////////////////////////////////////////////////////////////// 

#if [defined (AFX_SCREENMAP_H C4AA3 744_7 7E9_11D2_95 8 6_0 0105A21774F INCLUDED^) 

#define AFX_SCREENMAP_H C4AA3744 77E9 11D2_9586_00105A21774F INCLUDED^ 



#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >^ 1000 
class ScreenMap 

{ 

public : 

CRect crScreen; 

CRect cr Image; 



void Fit InsideScreenRect (CRect screen); 

void ValidateZoom (doubled x) ; 

void Rotate(int degrees); 

void SetLef tTopScreenPoint ( int x, int y) ; 

bool Initialize ( const CRect cr) ; 

bool Screen_in_Image { const CPoint screenP, const int bound=0) 

bool Screen_in_Image ( const CRect screenR, const int bound=0); 

bool SerializeScreenMap ( FILE* fp, bool ig_loading) ; 

double GetZoomO; 

CSize GetScreenCenteredSize ( ) ; 

^xs. CPoint Image_to_Screen ( const CPoint cpl); 

it CPoint Image_to__Screen (const CPoint cpS, const CPoint offset); 

y^J CPoint Screen_to_Image (const CPoint cpS) ; 

111 CPoint Screen__to_Image (const CPoint cpS, const CPoint offset); 

CRect Image_to_Screen (const CRect cri); 

J^": CRect Image_to_Screen (const CRect crI , const CPoint offset); 

■"■^ CRect Screen_to_rmage (const CRect crS) ; 

yj CRect Screen_to_Image ( const CRect crS^ const CPoint offset); 
ScreenMap ( ) ; 

ScreenMap (ScreenMapSc sm) ; 
s -ScreenMap () ; 
firavate : 



IfBidif // 1 defined (AFX_SCREENMAP_H C4AA3 744_77E9_11D2 9586 00105A21774F INCLUDED 
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// ScreenMap . cpp : implementation of the ScreenMap class. 
// 

////////////////////////////////////////////////////////////////////// 

#include "stdafx.h" 
#include " . . \DCM.h" 
# include " ScreenMap . h " 

#ifdef _DEBirG 
#undef THIS^FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 
ScreenMap : : ScreenMap ( ) 

{ 
} 

ScreenMap: : ScreenMap ( ScreenMap^ sm) 

{ 

cr Image = sm. cr Image; 
crScreen = sm.crScreen; 

s5|^enMap : : -ScreenMap ( } 

bopl ScreenMap :: Initialize (const CRect cr) 

ifj crlmage = cr; 
kV;; crScreen=cr; 
return true; 

¥_ 

Qispint ScreenMap :: Screen_to_Image { const CPoint cpS) 

lU CPoint p; 

P = cpS-crScreen. TopLef t ( ) ; 
f^2 p,x= (p , x*cr Image , Width ()) /crScreen . width {) ; 
if P-y= {p . y^cr Image . Height ()) /crScreen . Height () ; 
Li return (p+cr Image . TopLeft ()) ; 

} 

CPoint ScreenMap :: Screen_to_Image ( const CPoint cpS, const CPoint offset) 

{ 

return Screen_to_lTnage ( cps-of f set ) / 

} 

CRect ScreenMap :: Screen_to_Image (const CRect crS) 

{ 

return CRect ( thi s- >Screen_to_Image ( crS . TopLef t {) ) , 

thi s ->Screen_to_Image ( crS . BottomRight ( ) ) ) ; 

} 

CRect ScreenMap :: Screen_to_Image ( const CRect crS, const CPoint offset) 

{ 

CRect r=crS; 

r . Of f setRect (of f set ) ; 

return Screen_to_Image (r) ; 

} 



CPoint ScreenMap :: Image_to_Screen (const CPoint cpl) 
{ 

CPoint p; 

p = cpl -crimage . TopLef t 0 ; 

p.x= {p , x*crScreen . Width ( ) ) /crimage . Width () ; 
p . y= (p . y*crScreen . Height ( ) ) /crimage , Height ( ) ; 
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return (p+crScreen. TopLef t ( ) ) ; 

} 

CPoint ScreenMap :: Image_to_Screen ( const CPoint cpS, const CPoint offset) 

{ 

return Image_to_Screen ( cpS) +of f set ; 

} 

CRect ScreenMap :: Image_to_Screen ( const CRect cri) 

( 

return CRect ( this - > Image_to_Screen ( cr I .TopLeft {) ) j 

this->Image_to_Screen (crI -BottomRight ( ) ) ) ; 

} 

CRect ScreenMap :: Image_to_Screen (const CRect crS, const CPoint offset) 

{ 

CRect r= Image_to_Screen ( crS) ; 
r . Of f setRect (of f set ) ; 
return r; 

} 



void ScreenMap : rValidateZooKi (double & x) 

( 

if (x^crlmage . Width 0 <16 ) x= 16 . 0 / cr Image . Width ( ) ] 
else if {x*crlmage. Width( ) >4096) x=4 096 . 0/cr Image , Width () ; 
if (x*crlmage . Height 0 <16 ) x = 16 . 0/crImage . Height ( ) ; 
else if (x^crlmage. Height (} >4096) x=4096 . o/crlmage .Height () ; 
int w__screeni=4 * ( (2+ ( int) { 0 . 5+x*cr Image . Width {))) /4 ); 
int h_screen=4 * ( ( 2+ ( int } (0 . 5+x*crImage . Height ())) /4 ); 
crScreen . SetRect ( crScreen . TopLeft (). x ; crScreen. TopLeft () .y, 
'JJ. crScreen . TopLeft { ) . x+w__screen, 

crScreen . TopLeft () .y+h_screen ) ; 

CSize ScreenMap: : Ge t ScreenCenteredSize ( ) 

Q 

y-J return CSize ( crScreen . right + crScreen . left , crScreen . top+crScreen . bottom) ; 

void ScreenMap :: SetLeftTopScreenPoint (int x, int y) 

if(x<0) X=0; 
ps, if(y<0} y=0,- 

CSize of fset=CPoint (x, y) -crScreen, TopLeft () ; 
crScreen . Of f setRect (of f set ) ; 

M 

WSol ScreenMap Screen^ 

CPoint p=Screen_to_ 
CRect ir=crlmage,- 
return (ir.PtlnRect 

} 



in^Image ( const CPoint screenP, const int bound) 

Image ( screenP) ; 

ir . DeflateRect (bound, bound) ; 
(p) ==TRUE) ; 



bool ScreenMap :: Screen_in_Image (const CRect screenR, const int bound) 

{ 

return ( Screen_in_Image ( screenR . TopLeft (), bound) && 

Screen_in_Image ( screenR, BottomRight ( } .bound) ) ; 

} 

* Rotate screen map rectangles by 90 degrees, 
void ScreenMap : :Rotate ( int degrees) 

{ 

if (degrees ]= 90 degrees != 270) return; // nothing to do 
crScreen. SetRect ( crScreen . lef t , crScreen . top , 

crScreen. left + crScreen .Height () , 

crScreen . top+crScreen . Width ( ) ) ; 



crimage . SetRect (crimage . left , crimage . top, 
crimage . left+crlmage . Height ( ) , 
crimage . top+cr Image . Width ( ) ); 

} 
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* Serialize this screen map, 

* Used as a part of image serialization 

********** :t**********************7t7t*?lr7lr*)t***A-** 

bool ScreenMap SerializeScreenMap (FILE *fp, bool is_loading) 

{ 

int ixO , ixl , iyO , iyl , sxO , sxl , syO , syl ; 
if ( [ is_loading) 

( 

ixO = crimage . lef t ; 

iyO = crimage. top; 

sxO = crScreen . lef t ; 

syO = crScreen . top ; 



} 

if ( 
if ( 
if ( 
if ( 
if ( 
if ( 
if ( 
if C 
if ( 
if ( 



Serializelnteger (fp, 
Serialize Integer ( f p , 
Serialiselnteger (fp, 
Serializelnteger { f p, 
Serializelnteger (fp, 
Serializelnteger (fp, 
Serializelnteger ( f p , 
Serializelnteger (fp, 
Serializelnteger { f p, 
Serializelnteger ( f p , 



ixl 


= crimage . right ; 




iyl 


= crimage . bottom; 




sxl 


= crScreen. 


right ; 




syl 


= crScreen, 


bottom; 




ixO , 


is loading) 


) return 


false 


ixl , 


is_loading} 


) return 


false 


iyo , 


is_loading) 


) return 


false 


iyl. 


is loading) 


) return 


false 


sxO , 


i s_loading) 


) return 


false 


sxl , 


is^loading) 


} return 


false 


syO , 


is loading) 


) return 


false 


syl , 


is_loading) 


) return 


false 


ixl, 


is__loading) 


) return 


false 


iyO, 


is loading) 


) return 


false 



if ( is__loading) 

Ifj, crimage . SetRect ( ixO , iyO , ixl ^ iyl ) ; 

crScreen. SetRect C sxO , syO , sxl , syl ) ; 

\i return true; 

y^sjf ******************************************************itr**iif:>(*:<r 

% Place "crScreen" inside given "screen" 

************************************************************/ 
^lid ScreenMap :: Fi t InsideScreenRect ( CRect screen) 

Hi 

~. ^ double c ^ min (screen. Width ()/ (1 . 0+crScreen, Width 0 ) , 

screen . Height () / ( 1 . 0 + crScreen . Height { ) ) ) ; 
Ls int w ~ ( int ) max ( 4 , c*crScreen , Width ( ) ) ; 
Q int h = (int) max (4 , c*crScreen. Height 0 ) ; 

int X = ( screen . TopLeft (). x+screen . BottomRight (), x) /2 ; 

int y = ( screen, TopLeft (). y+screen. BottomRight () .yl /2 ; 

crScreen = CRect (x-w/2 ,y-h/2 , x+w/2 , y+h/2) ; 

} 

y^*************************************************************^)!:* 
* 

* Get current map zoom factor 
* 

***************************************************************^ 
double ScreenMap : : GetZoom ( ) 



return ( crScreen . Width () +0.00 01)/ ( crimage . Width () +0 . 00 01) ; 
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#if 1 defined (AFX_AEOPTIONS_DIALOG__H INCLUDED_) 

#def ine AFX_AEOPTIONS_DIALOG_H INCLUDED^ 

#if _MSC_VER > 1000 
#prag]na once 

#endif // __MSC_VER > 10 0 0 

// AEOptions_Dialog . h : header file 

// 

///////////////////////////////////////////////////////////////////////////// 
// AEOpt ions_Dialog dialog 

class AEOpt ions_Dialog : public CDialog 

{ 

// Construction 
public : 

virtual int DoModal (Applicat ionEnt ityList *AEarray) ; 

AEOptions_Dialog (CWnd* pParent = NULL); // standard constructor 

// Dialog Data 

// { {AFX_DATA ( AEOpt ions_Dia log) 
enum { IDD = IDD_DIALOG_AE_OPTIOWS }; 
BOOL m_useiyioveToRetrieve ; 

int m_Port; 
int m_PortServer ; 

int m_Timeout; 
est ring m_Comments ; 

CIPAddressCtrl ni_IP; 
Cl CComboBox ni_AEComboList ; 

est ring m_Title; 
2f //}}AFX_DATA 

/^ i; Overrides 

.J // ClassWizard generated virtual function overrides 
// ( {AFX__VIRTUAL (AEOpt ions_Dialog) 
yij protected: 

nf virtual void DoDataExchange (CDataExchange* pDX) ; // DDX/DDV support 
/ / } }AFX_VIRTUAL 

47^'=: Implementation 
^ptected : 

// Generated message map functions 
"^J //{ {AFXjyiSG(AEOptions_Dialog) 
rl virtual BOOL Onini tDialog ( ) ; 

virtual void OnOK ( ) ; 

afx_msg void OnCloseupComboAeList ( ) ; 
afx_msg void OnAENew ( ) ; 
afx_msg void OnAEDelete ( ) ; 
afx_msg void OnAeClone ( ) ; 
afx_msg void OnSe IchangeComboAeLi st ( ) ; 
//} }AFX_MSG 
DECLARE^MESSAGE^MAP ( ) 
private : 

int m_ListIndex; 
Applicat ionEnt ityList *m_AEarray ; 



void ResetAEList ( int new_selection=0) ; 

void UpdateAllFields (bool from_data_to_dialog=true) ; 

}; 

// { {afx__insert_location} ] 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 
#endif // Idef ined (AFX_AE0PT10NS_DIAL0G_H INCLUDED_) 
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// AEOpt ions_Dialog . cpp : implementation file 
// 

# include "fstdafx.h" 
#include " . . \R-esource . h" 
#include "AEOpt ions_Dialog . h" 

#ifdef _DEBUG 

# define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// AEOptions_Dialog dialog 



ASOptions__Dialog :: AEOpt ions_Dialog (CWnd* pParent /*=NULL*/) 
: CDialog (AEOptions__Dialog : : IDD , pParent) 

{ 

// { {AFX_DATA_INIT (AEOptions_Dialog) 
m_useMoveToRetr ieve = FALSE; 
m_Port = 0; 
m_PortServer = 0; 
m^Timeout = 0; 
m_Comments = _T ( " " ) ; 
m_Title = _T("") ; 
//} }AFX_DATA_INIT 
O ^_List lndex=0 ; 



vgld AEOpt ions__Dialog : iDoDataExchange (CDataExchange* pDX) 

CDialog: ; DoDataEx change (pDX) ; 
'O //{ {AFX_DATA_MAP (AEOpt ions_Dialog) 

i|| DDX_Gheck(pDX, IDC_CHECK_MOVSTOGET , m_useMoveToRetrieve) ; 

DDX_Text (pDX, IDC_EDIT_PORT, m_Port); 
■■'^ DDV__MinMaxInt (pDX, m_Port , 0, 70000); 
s DDX_Text (pDX, IDC_EDIT_PORT_SERVER , m_PortServer) ; 

DDV_MinMaxInt {pDX, m_PortServer , 1, 70000); 

DDX_Text (pDX, IDC_EDI T_TIMEOUT , m_Timeout); 
J; DDV_MinMaxInt (pDX, m_Timeout, 0, 100000); 

DDXJCext (pDX, IDC_EDIT_COMMENTS , m^Comments) ; 
\| DDV_MaxChars (pDX , m_Comments, 63); 
f^; DDX^Control (pDX, IDC_AE_IPADDRESS , m__IP} ; 
Sf; DDX_Control {pDX, IDC_COMBO_AE_LIST , m_AEComboList) ; 
M DDXJlext (pDX, IDC_EDI T_T1 TLE , m_Title) ; 

DDV_MaxChars (pDX, m_Title, 16); 

// } }AFX_DATA_MAP 

) 



BEGIN__MESSAGE_MAP (AEOpt ions_Dialog , CDialog) 
// { {afX_MSG__MAP (AEOpt ions_Dia log] 

ON_CBN_CLOSEUP ( IDC_COMBO_AE_LI ST , OnCloseupComboAeLi st ) 
ON_BN_CLICKED ( ID_AE_NSW, OnAENew) 
ON_BW_CLICKED(ID_AS_DELETE, OnAEDelete) 
ON_BN_CL I CKED ( I D_AE_CLONE , OnAe Clone) 

ON__CBN_SELCHANGE ( IDC_COMBO_AE_L 1ST, OnSe 1 changeComboAeL i s t ) 
// } }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// AEOpt ions_Dialog message handlers 

* Display modal dialog for AE setup 

int AEOpt ions__Dialog :: DoModal (ApplicationEntityList *AEarray) 

{ 

if(lAEarray) return -1; 
m_AEarray = AEarray; 
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m_Listlndex=m_AEarray- >GetCurrent Index ( ) ; 
CDialog: :DoModal() ; 
return m_List Index ; 



* Initialize all parameter fields 
BOOL AEOptions_Dialog : rOnlnitDialog ( ) 

{ 

CDialog : : Onini tDialog () ; 
ResetAEList(m_ListIndex) ; 
GotoDlgCtrl (GetDlgl tern ( IDCANCEL) ) ; 

return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

* Update all parameter fields 

********* it ****** + ***ilf**lt***5t*****:Jf*it***'jlr* 

void AEOpt ions_Dialog : :UpdateAllFields (bool f rom_data_to_dialog} 

{ 

int ind = m_AECon\boList , GetCurSel ( ) ; 
if ( f rom._data_to_dialog) 

if (ind>= (int) (Tn_AEarray->GetSi2e ( ) ) || ind<0) ind=rn_List Index ; 
%i else m_List Index=ind; 

01 Appli cationEnt ity^ a = & (m_AEarray - >Get [ ind) ) ; 

m_IP . Set Address (a- >ae_IPl , a->ae_IP2 , a->ae_lP3 , a- >ae_IP4 ) ; 

m_Title = CString (a->ae_Tit lej ; 
3 m_Port =a->ae_Port ; m_Port Server=a- >ae_PortServer ; 

m._Timeout-a~>ae_Timeout ; 
ifli m_Comment s = CString (a - >ae__ComTnent s) ; 

il; m_useMoveToRetrieve = a- >ae__useMoveAsGet ; 

UpdateData(FALSE) ; 



else 
{ 



UpdateData (TRUE) ; 

if ( ind>= ( int ) (m_AEarray- >Get Size ( ) ) || ind<0) ind=m_List Index ; 
else m_List Index=ind; 

CString location; i:t\_AEComboLis t . GetLBText ( ind , location) ; 

BYTE ipl, ip2, ip3 , ip4 ; Tn__IP . GetAddress ( ipl , ip2, ip3 , ip4); 
m_AEarray- >Get { ind) . SetAppl icat ionEnt i ty ((char*) (LPCSTR) Tn_Ti t le , 
ipl, ip2, ip3, ip4,m_Port, 

m__PortServer , m_Timeout , (char*) (LPCSTR) location, 
(char*) (LPCSTR) m_Comment s , m_useMoveToRetrieve==TRUE) 



y****************^******************************************************** 
* 

* Combo List message handler 
* 

**************************************************************************** y' 
void AEOpt ions_Dialog : : OnCloseupComboAeLi st () 

{ 

int n; 

int ind = m_AEComboList . GetCurSel () ; 
CString info; 

m_AEComboList . GetWindowText (info) ; 

if (ind 1= CB_ERR) 

{ 

// If a valid choice was made from a listbox, 
// update all AE parameters 
m_List Index=ind; 
UpdateAllFields (true) ; 

} 

else if ( inf o . IsEmpty ( ) TRUE) 
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// MainFrm.cpp : implementation of the CMainFrame class 
// 

#include "stdafx.h" 
#include "DCM.h" 
#include "MainFrm.h" 

#ifdef _DEBUG 

# define new DEBUG__NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CMainFrame 

IMPLEMENT_DYNAMIC (CMainFrame, CMDIFrameWnd) 

BEGIN_MESSAGE__MAP (CMainFrame, CMDIFrameWnd) 
//{ {AFX_MSG_MAP (CMainFrame) 
ON_WM_CREATE( ) 

ON_COMMAND (ID_VIEW_TOOLBAR, OnViewToolbar) 

ON_UPDATE_COMMAND_UI ( ID_VI EW_TOOLBAR , OnUpdateViewToolbar ) 
ON^WM^DROPFILES () 
//} }AFX_MSG_MAP 

ON_UPDATE_COMMAND_UI ( ID_PROGRESS_STATUS , OnUpdateProgressStatus ) 
// Support dropdown toolbar buttons 

OM_NOTIFY(TBN_DROPDOWN, AFX_IDW_TOOLBAR , OnToolbarDropDown) 
// Global help commands 

0 ON_COMMAND (ID_HELP_FINDER, CMDIFrameWnd :: OnHelpFinder) 

01 ON_COMMAND(ID_HELP, CMDIFrameWnd :: OnHelp ) 
ON_COMMAND(ID_CONTEXT_HELP, CMDIFrameWnd: : OnContextHelp) 

f': ON_COMMAND(ID_DEFAULT_HELP, CMDIFrameWnd: : OnHelpFinder ) 

eM_message_map ( ) 

s.teatic UINT indicators!] = 

HJ ID_SEPARAT0R, // status line indicator 

5 ID_PROGRESS_STATUS , 

%^ ID__I WD I CATOR_CAPS , 

J™. //ID__INDICATOR_NUM, 

^ 111 D_' IND I CATOR_S CRL , 

fl J I D_D I CT I ONAR Y_S TATUS 

H 

////// n n 1 11 1 1 11 1 f f ///// f /// f / f ////////////////////////////// f / f //////// / 

O CMainFrame construct ion/ destruct ion 
CMainFrame : : CMainFrame ( ) 

{ 

m_showToolbars=true ; 

/* Dummy string to size progress indicator in the status bar */ 
m_paneString=CStr ing ( ' ' , 60) r 

1 

CMainFrame : : -CMainFrame ( ) 

{ 
} 

int CMainFrame : lOnCreate (LPCREATESTRUCT IpCreateStruct) 
{ 

if (CMDIFrameWnd : -.OnCreate ( IpCreateStruct ) == -1) return -1; 
ShowWindow(SW_MAXIMIZE) ; 

// Create application toolbars 
if { Jm_ToolBarBasic . CreatelE ( thi s , 32,32, 
IDR__TOOLBAR_BASIC) ) 

{ 

return -1; // fail to create 

} 

m^ToolBarBasic. AttachDropDown(ID_BUTTON_ROI , IDR_DCMTYPE, ID_BUTTON_SELECT_RECT ) 
m_ToolBarBasic . AttachDropDown (ID_VIEW_FLIP, IDR_DCMTYPE, ID_VIEW_FLI P_VERTICAL) ; 
m^ToolBarBasic .AttachDropDown ( ID_BUTTON_MEASURE , IDR_DCMTYPE, 

ID BUTTON MEASURE RULER) ; 
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if ( !Tti__ToolBarMult:if rame . CreatelE (this , 32 , 32 , 
IDE_TOOLBAR_MULTIFRAME) ) 

{ 

return -1; // fail to create 

) 

m_ToolBar]yiult if rame . At tachDropDown ( ID_BROWSE_FRAME ; IDR_DCMTYPE , 

ID_FRAMES_LAYOUT_STACK) ; 

// Create application dialog bar 
if (!m wndDlgBar .Create (this, IDD_BAR_INFO , 
CBRS_ALIGN_RIGHT, AFX_IDW_DIALOGBAR) ) 

{ 

TRACEO (" Failed to create dialogbar\n" ) ; 
return -1; // fail to create 

) 

// Create animated logo 

if ( !m_Animate. Create (WS_CHILD | WS_VISIBLE | ACS_AUTOPLAY , 
CRect (0 , 0 , 80 , 60) , this, 0) 1| 
1 m_Animate . Open ( rDR_AVI_DCM) ) 

{ 

TRACEO ( "Failed to create animation control\n"); 
return -1; // fail to create 

) 

// Create application ReBar 
if ( !m_ReBar . Create (this , 0) || 

!m_ReBar .AddBar (&m_Animate, NULL, MULL , RBBS_FIXEDBMP | RBBS_FIXEDSI ZE) 

im_ReBar . AddBar (&m_ToolBarBasic) | ] 

I m_ReBar . AddBar ( &m_ToolBarMultif rame) || 
""tl ! m_ReBar . AddBar ( Scm^wndDlgBar ) ) 

y1 TRACEO (" Failed to create rebar\n" ) ; 

i.f| return -1; // fail to create 

€J // Create application status bar 

^1 if ( 1 m_StatusBar. Create ( this) || 

■Zl i ra_StatusBar . Set Indicators ( indicators , 

^ sizeof (indicators) /sizeof (UIWT) ) ) 

- { 

|^=, TRACEO (" Failed to create status bar\n"); 

rctum "l; // fall to create 

%^ f I Insert image counter into multiframe toolbar 

m^ToolBarMultiframe.MakeCStatic ( ID_FRAME_NUMBER) ; 
'™f ShowFrameMumber ( - 1 ) ; 

// Size progress bar 
CClientDC do (this); 

SIZE size=dc . GetTextExtent (mjaneString) 

int index=m_StatusBar . CommandToIndex ( ID_PROGRESS_STATUS) ; 

m_StatusBar.SetPaneInfo (index, ID_PROGRESS_STATUS , SBPS^NORMAL, size. cx) ; 

// Drag-and-drop file support 
DragAcceptFiles ( ) ; 

return 0 ; 

} 

BOOL CMainFrame :: PreCreat ©Window (CREATESTRUCT& cs) 

{ 

// Size the main frame window to the screen size and center at 
return CMDIFrameWnd : : PreCreateWindow(cs) ; 

} 

/ n / 1 1 n / n 1 1/ 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 n / 1 1 1 / 1 11 1 1 n 

// CMainFrame diagnostics 



#ifdef _DEBUG 

void CMainFrame AssertValid ( ) const 

{ 

CMDIFrameWnd: : AssertVal id () ; 

} 
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void CMainFrame : rDump (CDumpContextS: dc) const 

{ 

CMDIFrameWnd : :Dump(dc) ; 

} 

#endif //_DEBUG 

1 1 1 1 1 1 II 11 // HI I / 1 1 /! I II 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 
// CMainFrame message handlers 

void CMainFrame : lOnUpdateProgressStatus (CCmdUI ^pCmdUI) 

{ 

pCmdUI ->Enable ( ) ; 

pCmdUI ->SetText (m_paneString) ; 

} 



•k 

* Sets the number currently displayed in the frame edit toolbar 
void CMainFrame :: ShowFrameKumber ( int n) 

{ 

CString st; 

if (n>0) St . Format ( "%d" ,n) ; 
else St. Formate 

m_ToolBarMultif rame . Set InsertedControlText ( st ) ; 




*if| Exit from application - clean up 
* 

ic -k"-^ **************************************************)t**ilr***********************^ 

B&L CMainFrame; .-DestroyWindow ( ) 
^\ 11 Close main window 

iMt 3-eturn CMDIFrameWnd : iDestroyWindow () ; 

y-5b.^ ****************************************************************************** 

*^'^'' 

*iy Show/hide all toolbars 

W ***************************************************************************** y 
^gfid CMainFrame : ; OnViewToolbar ( ) 

1=3 

m_showToolbars = ! m_showToolbars ; 

m_ReBar . GetReBarCtrl ( ) .ShowBand(0, m_showToolbars) ; 
m_ReBar , GetReBarCtrl 0 .ShowBandfl, m_showToolbars ) ; 
m_ReBar .GetReBarCtrl { ) .ShowBand(2, m_showToolbars ) ; 

i 

void CMainFrame : :OnUpdateViewToolbar [CCmdUI* pCmdUI) 

{ 

pCmdUI - >SetCheck (m_showToolbar s ) ; 

) 

void CMainFrame :: ShowMultif rameToolbar (bool show) 

{ 

m_ReBar . GetReBarCtrl ( ) .ShowBand(l, show) ; 

} 

y'******************************************************************************** 
* 

* Process dropdown toolbar buttons 
* 

******************************************************************************** y' 
void CMainFrame OnToolbarDropDown (NMTOOLBAR *pnmtb, LRESULT *plr) 

{ 

m_ToolBarBasic . TrackDropDownMenu (pnmtb->iltem, this) ; 
m^ToolBarMult if rame . TrackDropDownMenu (pnmtb- > i I tem, this) ; 

} 
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* Drag-and-drop support 

void CMainFrame : :OnDropFiles (HDROP hDropInfo) 

{ 

// Find the number of files 

UINT nFiles = : : DragQueryFile (hDropInf o , (UINT)-l, NULL, 0) 

for(UINT iFile^O; iFile<nFiles ; iFile++) 

{ 

TCHAR szFileName [_MAX_PATH] ; 

; :DragQueryFile (hDropInf o, iFile , ssFileMame ,_MAX_PATH) ; 
theApp . OpenDocumentFile ( szFileName , true) ; 

} 

: :DragFinish (hDropInf o) ; 

} 

* Switch logo animation on the menu bar 

void CMainFrame : : EnableLogoAnimation (bool enable) 
{ 

if (enable) m_Animate . Open ( IDR_AVI_DCM) ; 
else m_Animate . Stop { ) ; 

} 

*y1 Show dictionary availability on the status bar 

■k , xz^ 

void CMainFrame :: SetDictionaryStatus (bool enabled) 

.r, int index=m_StatusBar . CommandToIndex ( ID_DICTIONARY__STATUS) j 
f\ CString stat = enabled ? "DICT ENABLED" : "DICT DISABLED"; 
Tn_StatusBar . SetPaneText ( index , stat); 
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// DICOMDocument .h: interface for the DICOMDocument class. 
// 

1 1 1 1 f 1 1 1 f 1 1 1 1 f I If I n fi 1! 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 n 1 1 1 1 } 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

#if !defined( AFX_D I COMDO CUMEMT_H I NCLUDED_ ) 

define AFX_DICOMDOCUMENT_H INCLUDED^ 

#include "DICOMInf o . h" // Added by ClassView 
^include " winmodules , h" // Added by ClassView 
#if _MSC_VER > 1000 
#pragma once 

i^endif // __MSC_VER > 1000 

class DICOMDocument : public Array< ImageSeries>// Study 

( 

public : 

static const BYTE FormatDICOMOriginal ; 

static const BYTE FormatDICOMModif ied; 

static const BYTE FormatWINDOWSMul t imedia ; 



void 

void 

void 

void 

bool 

bool 

bool 

bool 
f?^; bool 
"J bool 
%^ bool 
01 int 

int 

est ring 
~^ est ring 
Image* 
inline 



ImageSeries^ 



AddDICOMRecords (Array<DICOMRecord> &a) ; 
DisplayDICOMInfoO ; 

GetPixelSpacing ( double &dx , double &:dy) ; 
SetShowInf o (bool show) ; 
GetShowInf o ( ) ; 

AddDDOFile {CString f ilename) ; 
IsEmptyO { return m_DDO.I sEmpty ( ) ; } 
SaveDICOM(CString f ilename= " " ) ; 
SaveDocument (CString fname, int format); 
LoadFile (CString filename); 

LoadDDO (DICOMDataObj ect Scddo , bool clone), 
GetNumberOf Images ( ) ; 
GetCurrent Imagelndex ( ) ; 

GetFilename ( ) { return m_Filename; } 
GetMRUAlias ( ) ; 
Get Image ( int n) ; 

GetCurrentSeries ( ) 



return S£m_ImageSeries ; 

if (GetSise [ ) <=0) return NULL; // empty 

if [m_CurrentSeries<0) m_Current Series=0 ; 

if (m_CurrentSeries>= ( int ) Get size () ) m_Current Series=Ge tUpperBound ( ) 
return &(Get(m CurrentSeries) ) ; 



}; 

DICOMRecord* 
DICOMDocument ( ) ; 
virtual -DICOMDocument () ; 



GetDICOMRecordPtr ( ) 



return &m FileRecord; 



private : 
int 

DICOMRecord 
CString 
PDU_Service 
DICOMDataObj ect 
DICOMInf o 
ImageSeries 

bool 



m_CurrentSer ies ; 
m__FileRecord; 
m_F ilename ; 
m_PDU; 
m__DDO ; 

m_Inf oDialog ; 
m_ImageSeries ; 

InitializeDocument (DICOMDataObj ectS: m_DDO, 
CStringSc m_Filename) ; 



#endif // 'defined {AFX DICOMDOCUMENT H INCLUDED 
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// DICOMDocument , cpp : implementation of the DICOMDocument class. 
// 

////////////////////////////////////////////////////////////////////// 

#include "stdafx.h" 

#include " „ .//DCM.h" 

# include "DICOMDocument . h" 

#ifdef __DEBUG 
#undef THIS_FrLE 

static char THIS_FILS[]= FILE ; 

#define new DEBUG_NEW 
#endif 

////////////////////////////////////////////////////////////////////// 
// Construction/Destruction 

////////////////////////////////////////////////////////////////////// 

const BYTE DICOMDocument :: FormatDICOMOriginal = 0; 
const BYTE DICOMDocument :: FormatDICOMModif led = 1; 
const BYTE DICOMDocument :: FormatWINDOWSMultimedia = 2; 
DICOMDocument: : DICOMDocument ( ) : m_Inf oDialog ( & ( theApp . app_RTC) , 

theApp . app_DirectoryTmp) 

{ 

if ( ! theApp . app_RTC . IsEmpty ( ) ) 
{ 

m_ PDU.AttachRTC (& (theApp. app_RTC) , FALSE) ; 

} 

Tl m CurrentSeries = -1; 
DflSoMDocument : : -DICOMDocument { ) 

Kj 

Load DICOM Data from 

1. A file 

2 . Another DDO 

bB^l DICOMDocument :: LoadFile (CString filename) 

£^ filename . TrimRight (} ; f ilename . TrimLef t ( ) ; 
if if (f ilename==" " ) 

AfxMessageBox ( "Cannot load: file name is empty", 
MB_OK|MB_ICONEXCLAMATION) ; 

return false; 

} 

// Store filename 
m_Filename = f ilename ; 

// Load DDO, completely, using m_PDU for RTC 
m_DD0 .Reset ( ) ; 

if ( Jm_DD0 . LoadFromFile ( (char*) (LPCSTR) (f i lename ) , f al se , &m PDU) ) 
( 

AfxMessageBox ( "Cannot read DICOM from file\n" +f ilename , MB_0K | MB_IC0NEXCLAT4ATI0N) 
return false; 

} 

// Initialise data 

if { 1 Ini tializeDocument {m_DDO, m__Filename) ) return false; 
// OK 

return true; 

} 

bool DICOMDocument : ;LoadDDO (DICOMDataObject &ddo, bool clone) 
{ 

VR * vr; 
// Set m_DDO 
m_DDO . Reset ( ) ; 
if (clone) 

( 
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if ( !m__DDO.CloneFrom(&ddo) ) 
{ 

AfxMessageBox ( "Cannot load DICOM" , MB__OK | MB_ICONEXCLAMATroN) 
return false; 



I 

f 
t 
I 
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} 

else 

{ 

whLle(vr=ddo.Pop() ) m_DDO . Push (vr) ,• 

} 

// Set filename 
char f f [65] ; 

m__DDO. Suggest FileMame (f f , 65) ; 

m_Filename = theApp . app_DirectoryTmp+ " / " +CString ( f f ) ; 
// Classify VRs 

theApp . app_RTC . RunTimeClass ( &:m_DDO} ; 

II Save m_DDO copy into m_Pilename for consistency 

if ( !m_DDO. SavelntoFile ( (char'^) (LPCSTR) (m_Filename) , true , &m_PDU) ) 
{ 

AfxMessageBox ( "Cannot save DICOM in file \n" +m_Filename , 
MB_OK|MB_ICONEXCLAMATI0N) ; 

return false; 

) 

// Initialize data 

if ( ! Init ializeDocument (m_DDO, m_Filename) ) return false; 
return true; 

* y'l Initialize all document data from m_DDO and m^Filename 

hd^l DICOMDocument: : Ini tializeDocument (DICOMDataObj ect& m__DDO, 

CString& m_Filename) 

II Do we have anything inside the DICOM object ? 
s if (m_DDO- IsEmpty ( ) ) 

ps, AfxMessageBox ( "Empty or invalid DICOM object", MB_ICONEXCLAMATIOM | MB_OK) 

5":! return false; 

%J // Display, parse and hide DICOM Info 

//if ( 1 m_Inf oDialog . PopInf o (m_DDO , m_Filename) ) return false; 
if // Set file record 

L3 m^FileRecord , SetRecord (m_DDO , (char*) (LPCSTR) m_FilenaTue) ; 
// Parse image data into bitmaps 

m_ImageSeries .ReadDO (m_DDO, (char*) (LPCSTR) m_Fi lename ) ; 
//Array< ImageSeries> : : Add (m_ImageSeries) ; 

//m_CurrentSer ies = Array< ImageSer ies> : : GetUpperBound ( ) ; 
// If no images found, display info dialog 

if (GetNumberOf Images () <1) m_Inf oDialog , DoModeless (m_DDO , m_Fi lename) ; 
return true; 

} 

* Save DICOM Data into a file 

bool DICOMDocument :: SaveDICOM (CString filename /* */) 

{ 

if (f ilename = = " *' ) f ilename=m_Filename ; 
if ( f i lename = = " " ) 

{ 

AfxMessageBox ( "Empty filename, cannot save " ,MB_OK | MB_ICONEXCLAMAT ION) ; 
return false; 

} 

// Save copy DO 

DICOMDataObject do_tmp; 

if ( ! do_tmp . CloneFrom (&:m_DDO) ) 
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{ 

AfxMessageBox{ "Cannot save DICOM data" , MB_OK | MB^ICONEXCLAMATION) 
return false; 

} 

if ( !GetGurrentSeries ( ) ->WriteDO (do_tmp) ) 
t 

AfxMessageBoxC Cannot save image data" , MB_OK | MB_ICONEXCLAMATIOM] 
return false; 

} 

if ( ! do_tmp . SavelntoFile ( (char*) (LPCSTR.) (filename) .false) ) 

{ 

AfxMessageBox ( "Cannot save DICOM in file \n" +f ilename , 
MB_OKlMB_rC0WEXCLAMATION) ; 

return false; 

} 

return true; 

} 



* Display DICOM Object 

void DICOMDocument: : Di splayDI COMInf o ( ) 
{ 

m_Inf oDialog .DoModeless (m_DDO, m_Filename) ; 

}_ 

*01 Navigating in image series 

Im^ge* DICOMDocument :: Get Image ( int n) 

ifi ImageSeries* pS = GetCurrentSeries { ) ; 

1! if(lpS) return NULL; 

- '•^ else return pS->Get Image (n) ; 

iut DICOMDocument: : GetNumberOf Images ( ) 

k 

ImageSeries* pS = GetCurrentSeries () ; 
lU if ( ! pS) return 0 ; 

\1 else return pS->GetUpperBound ( ) +1 ; 

B 

xrit DICOMDocument: : GetCurrent Imagelndex () 

Ci 

ImageSeries* pS = GetCurrent Series () ; 
if { ! pS) return - 1 ; 

else return pS- >GetCurrent Imagelndex ( } ; 

} 

Save the entire document in specified format 

* 

bool DICOMDocument :: SaveDocument (CString fname, int format) 

{ 

bool success= true ; 

CString err ("Error saving the document"); 
// Clean proposed file name 
f name . TrimLef t ( ) ; f name . Tr imRight ( ) ; 
if { f name== " " ) 

{ 

Af xMessageBox (" Cannot save: file name is empty", 
MB_OK|MB_ICONEXCLAMATION) ; 

return false; 

} 

// Save in requested format 

if (f ormat==FormatDICOMOriginal) // Save unchanged DICOM 

{ 
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if (fname ' =in_Filenarae) 

i 

bool success^ (CopyFile (m_Filename , fname , FALSE) !=0); 

} 

} 

else if (f orTnat==FormatDICOMModi f ied) // Save modified DICOM 

{ 

return SaveDICOM (fname) ; 

) 

else if ( f ormat==FormatWINDOWSMult imedia) // Save DICOM as multimedia directory 

{ 

/ / Create new directory 

if ( 1 : -.CreateAndSetCurrentDirectory ( (char*) (LPCSTR) fname) ) 
{ 

AfxMessageBox (" Cannot access directory\n" +f name , 

MB_OK|MB_ICONEXCLAMATION) ; 
return false; 

} 

// Save all bitmaps 

success = GetCurrentSeries ()- >SaveAsImageFiles ( fname) ; 

// Save DICOM demographics 

char info[_MAX_PATH] ; 

sprint f ( info , " %s\ \inf o . txt " , fname) ; 

success = success && m_FileRecord , WritelntoTextFile ( inf o) ; 
// Save sound data 
if (m_SoundFileName . GetLength ( ) >3 ) 
."^^ try 

01 CFile :: Rename (m_SoundFileName , f name+ " \\voice . wav" ) ; 

J"'"^ catch {CFileExcept ion *€) 

~4J err . Format ( "Error saving sound file into %s fname+fname+" voice . wav" ) 

;f=i AfxMessageBox (err) ; 

^'z e- >Delete ( ) ; 

^'^^ return FALSE; 

f J } 

D */ 

HJ else 

^l. err=" Invalid format"; success^f al se ; 

O if ('success) AfxMessageBox (err ,MB_0K|MB_ICONSXCLAMATION) ; 
Beep (500 , 100) ; 
return success; 

} 

■k 

* Get physical spacing between image pixels 
* 

void DICOMDocument : .-GetPixelSpacing (double &dx, double &:dy) 

{ 

GetCurrentSeries 0 - >G€tPixelSpacing (dx, dy) ; 

} 

* Show image info on the images 

void DICOMDocument :: SetShowInfo (bool show) 

{ 

GetCurrentSeries ( ) - >Set ShowSeries Image Info ( show) ; 

} 

bool DICOMDocument: :GetShowInf o ( ) 
{ 

return GetCurrentSeries ( ) - >Get ShowSer ieslmage Inf o { ) ; 
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■k 

Create an alias name for the MRU files list 
CString DICOMDocument: : GetMRUAlias ( ) 

( 

CString s; 

s . Format ( " %s, %s" , m_FileRecord . GetPatientName ( ) ,m_FileRecord . Get Patient ID ( ) 
return s; 

} 

* Include new series files 

•k 

bool DICOMDocument : tAddDDOFile (CString filename) 

{ 

ImageSeries* pS = GetCurrentSer ies ( ) ; 
if(pS) return pS->AddDDOFile (filename) ; 
else return false; 

} 

void DICOMDocument ; :AddDICOMRecords (Array<DICOMRecord> 6<a) 
{ 

if (a .GetSize ( ) <=0) return; 
ImageSeries* pS = GetCurrentSeries ( ) ; 
'if if ( JPS) 

31 LoadFile (a [0] , GetFi leName { ) ) ; 

,r■^ a . RemoveAt { 0 } ; 

AddDICOMRecords (a) ; // recursion 
""vi return; 

else pS- > AddDICOMRecords (a) ; 
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#if ! defined (AFX_DICO]y!INFO_H_INCLUDED_) 
#def ine AFX_DICOMINFO_H_INCLUDED_ 



#if _MSC_VER > 100 0 
#pragma once 

#endif // __MSC_VER > 1000 

#include ".. /resource . h" 
#include <dicom.hpp> 

///////////////////////////////////////////////////////////////////////////// 
// DICOMInfo dialog 

class DICOMInfo : public CDialog, public DICOMView 

{ 

// Construction 
public : 

void SetFilename (CString filename); 
void DoModeless ( ) ; 

void DoModeless (DICOMObj ect& dob, CString filename); 
void Load(const char* str) ; 
void Load (DICOMObject &D0) ; 

bool Popinf o (DICOMObjectSc dob, CString& filename); 
bool LoadFile (char* filename); 

DICOMInfo (RTC* rtc, CString temp_dir, CWnd* pParent = MULL); // standard constructor 



// Dialog Data 

// { {aFX_DATA (DICOMInfo) 
ri-: enum { IDD = IDD_DIALOG_DICOMIMFO }; 

// } }afx__data 



//fiOver rides 

// ClassWizard generated virtual function overrides 
2 //{ {aFX_VIRTUAL (DICOMInfo) 
%J protected: 

^jli virtual void DoDataExchange ( CDataExchange* pDX) ; // DDX/DDV support 

// } } AFX_VIRTUAL 

/f Implementation 
pxotected : 

i;: // Generated message map functions 

H'j //{ {AFX_MSG (DICOMInfo) 

%i afx_msg void OnOK () ; 

j^-;- afx_msg void OnCancel() ; 

afx_msg void OnDropFiles (HDROP hDropInfo) ; 
LI virtual BOOL OnlnitDialog () ; 

//}}afx_msg 

afx_msg void OnClose(); 
DECLARE__MESSAGE_MAP ( ) 
private : 

CString Tn_Filename , m_BackupFile , m^TemporaryDirectory ; 

const CString m_DropFile; 
CListCtrl m_List; 



void SaveToFile ( ) ; 

void ResetBackup ( ) ; 

bool OpenFromFi le ( ) ; 

// { {afx_insert_location} } 

// Microsoft Visual C++ will insert additional declarations immediately before the previous line. 



#endif // ! def ined ( AFX_DICOMINFO_H_INCLUDED_) 



1 



Di cominf o . cpp 



10/21 /QO 



II dicominiro . cpp : implementation file 
// 

#include "stdafx.h" 
#include " dicominf o . h" 
#include <io,h> 

#ifdef _DSBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// DICOMInfo dialog 



DICOMInf o: :DICOMInf o (RTC* rtc, CString temp_dir, CWnd'^ pParent /*=NULL*/) 
: CDialog (DICOMInfo :: IDD, pParent), m_DropFi le ( " * " ) 

{ 

// { {AFX_DATA_INIT (DICOMInfo) 
m_Filename ^ _T ( " " ) ; 

//} }afx_data_iwit 

// Set RTC 

if ( ! rtc->IsEmpty ( ) ) AttachRTC (rtc) ; 
// Set temporary directory 
m_TemporaryDirectory=temp_dir ; 
m_TemporaryDirectory , Replace { ' / ' / ' \\ ' ) ; 
m_TemporaryDirectory . Tr imRight ( " \\") ; 
^•^^ // Set backup file name 
m_BackupFi le= " " ; 



vd'ilid DICOMInfo : :DoDataExchange (CDataExchange* pDX) 

CDialog; : DoDataExchange ( pDX) ; 
2t //{ {AFX_DATA_MAP (DICOMInfo) 
ni DDX_Control(pDX, IDC_LIST, m_List); 
s DDX_Text (pDX, IDC__FILENAME , m_Filename); 

II ) }AFX_DATA_MAP 

BgaiM_MESSAGS_MAP (DICOMInfo, CDialog) 
//{ {AFX_MSGjyiAP (DICOMInfo) 

Q ON_WM_DROPPILES 0 

Cl / / } }AFXjy[SG__MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// DICOMInfo message handlers 

■k 

* Overriden virtuals from DICOMView 

■k -k -k ^ -k -k it -k -k -k -k kkkkk-kkk-kk-kk-kk-kkk'kkk-kk'kk-k-kkkk-k-k'k-k-k-k-kk-kk-k-k-kickkk-k j 

void DICOMInfo : :Load (const char *str) 

{ 

int n,m; 

CString cs=CString ( str) ; 

cs . TrimRight () cs . TrimLef t ( ) ; 

if(cs=="") return; 

// Parse VR string 

CString tag; n=cs . Find ("),'") ; 

if{n<0) tag=""7 

else { tag=cs . Lef t (n+1 ) ; cs=cs .Mid (n+2) ; } 

tag . TrimRight ( ) ; 

CString length; n=cs . Find ( "bytes ; 
if(n<0) length=""; 

else { length=cs . Lef t (n+S) ; cs=cs . Mid (n+6 ) ; } 
length . TrimLef t { ) ; length . TrimRight ( ) ; 
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CString vr; 
n=cs.F:Lnd("VR= [") ; 
if(n<0) vr=""; 

else { vr = cs . Mid (n+4 , 2 ) cs = cs .Mid (n+7) ; } 

vr . TrimLef t ( ) ; vr . TrimRight ( ) ; 

CString value, description; 
n=cs.Find("<") ; m=cs.Find(" [ [" ,Tnax(n,0) ) ; 
if (n<0) value=" " ; 
else 

{ 

if (m>n) 
{ 

value=cs .Mid (n, m-n) ; descript ion=cs .Mid (m+2) ; 
description . TrimRight ( " ]"); 

) 

else 

{ 

value=cs .Mid (n) ; descr iption= " " ; 

} 

} 

value . TrimLef t ( ) ; value . TrimRight ( ) ; 

description . TrimLef t [ ) ; description . TrimRight ( ) ; 

UINT nItem=m_List . Insert I tern (m_List . Get ItemCount ( ] ,tag) ; 
m_List . Setltem(nltem, 1,LVIF_TEXT; length, 0,0,0,0) ; 
m_List . Setrtem(nltem, 2,LVIF_TEXT, vr, 0,0,0,0) ; 
PI m_List . Set I tern (nit em, 3 , LVIF_TEXT , value ,0,0,0,0) ; 

m_List . Set Item (nitem, 4 , LVIF_TEXT, description, 0 , 0 , 0 , 0) ; 

vcpd DICOMInfo: :Load(DICOMObject &D0) 

bool top_level= (m_SequenceLevel = = 0 ) ; 
""^^ if (top_level) 

.fj GetDlgItem{IDC_EDITNUM) ->SetWindowText ("No elements found") 

m_List , DeleteAllItems ( ) ; 

BeginWaitCursor ( ) ; 
s if (OpenFromFile ( ) ) return; 

DICOMView: : Load (DO) ; 
if ( top_level ) 

\J CString num; num. Format (" %d" , m_numElements) ; 

GetDlgltem (IDC_EDITNUM) - >SetWindowText (num) ; 
J^; for(int i = 0; i<-4; i + + ) 

m_List . SetColumnWidth ( i , LVSCW_AUTOSIZE) ; 

} 

EndWaitCursor ( } ; 
SaveToFile ( ) ; 



bool DICOMInfo :: LoadFile ( char ^filename) 

{ 

BeginWaitCursor ( ) ; 
m__List . DeleteAllItems 0 ; 
bool success = true; 

CString f n ( filename) ; f n . TrimRight () ; 

if (f n==m_Filename && OpenFromFile () ) success= true ; 

else success=DICOMView: :LoadFile (filename) ; 

if ( 1 success) GetDlgltem ( IDC_ED I TNUM) - > SetWindowText ( 

"Cannot load this file"); 

SetFilename ( f n) ; 
EndWaitCursor ( ) ; 
return success; 

) 

■k 

* Modeless display and distruction 
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void DICOMInf o : :DoModeless ( ] 

{ 

if ( this->GetSaf eHwnd ( ) ) return; 
Create ( IDD_DIALOG_DICOMINFO , NULL) ; 
// Always display on top 

SetWindowPos (&wndTopMost , 0 , 0 , 0 , 0 , SWP_NOSIZE | SWP_SHOWWINDOW ); 
SetWindowText ( "DICOM Header") ; 
ShowWindow(SW_SHOWNORMAL) ; 

} 

void DICOMInf o : :DoModeless (DICOMObject &dob, CString filename) 

{ 

if ( this->GetSaf eHwnd 0 ) return; 

DoModeless ( ) ; 

SetFi lename ( f i lename ) ; 

Load (dob) ; 

} 

void DICOMInf o : :OnOK( ) { DestroyWindow ( ) ; } 

void DICOMInf o : rOnCancel 0 { DestroyWindow ( ) ; } 
void DICOMInf o ; :OnClose ( ) { Des troyWindow ( ) ; } 
bool DICOMInf o :; Poplnfo (DICOMObj ect &dob, CString ^filename) 

{ 

DoModeless (dob , fi lename ) 

bool non_empty = (m_numElement s>0 } ; 

OnClose 0 ; 

if ( lnon_empty) 

{ 

AfxMessageBoxC Invalid DICOM format", MB_OK|MB_lCONEXCLAMATION) 

} 

return non_empty; 

* "^J Dragging files 

■k , 

vgid DICOMInf o: lOnDropFiles (HDROP hDropInfo) 

s- // Find the number of files 

UINT nFiles = :: DragQueryFile (hDropInfo , (UINT)-l, NULL, 0); 
\Z. if(nFiles>l) 

fIJ AfxMessageBox ( "Cannot display multiple files." 

'C\ "\nSelect one file and try again.", 

MB_OKlMB_rCONEXCLAMATION) ; 
LJ return; 

TCHAR szFileName [256] ; 

: : DragQueryFile (hDropInfo , 0 , szFileName , 256 ) ; 

CString teTnp=m_BackupFile ; m_BackupFile=m_DropFile ; 

LoadFile (ssFileMame) ; 

m_BackupFile=temp ; 

: :DragFinish (hDropInfo) ; 

} 

•k 

* Set filename 

void DICOMInf o :: SetFilename (CString filename) 

( 

m_Fiiename=:f ilename ; m_Filenarae . Tr imRight () ; 
UpdateData (FALSE) ; 

} 

BOOL DICOMInf o : rOnlnitDialog 0 

{ 

CDialog: : OnlnitDialog ( ) ; 
// Element list columns 

m_List. InsertColumn(0, "Element Tag", LVCFMT_CENTER , 6 0 , 0 ) ; 
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m_List , InsertColumnd, "Length" , LVCFMT_CENTER, 80,0) ; 
m_List . InsertColumn{2 , "VR" , LVCFMT_CENTER , 8 0 , 0) ; 
m_List . InsertColumnO, "Value" , LVCFMT_LEFT , 1 00 , 0 ) ; 
m_List . InsertColumn (4 , "Description" , LVCFMT_LEFT, 80,0) ; 
// Element list: Force entire row selection 

m_List . SendMessage ( LVM_SETEXTENDEDL1STVIEWSTYLE , 0 , LVS_EX_FULLROWSELECT ) 
return TRUE; // return TRUE unless you set the focus to a control 
// EXCEPTION: OCX Property Pages should return FALSE 

} 

■k 

* Persistent Storage 

■k 

void DlCOMInf o : : SaveToFile ( ) 

{ 

if (m_Bac]cupFile = =m_DropFile) return; 

if (m_BackupFile = = " " ) // v/as not initialized 

{ 

char curdir [MAX_PATH+1] ; 

GetCurrentDirectory (MAX_PATH, curdir) ; 

SetCurrentDirectory (m_TemporaryDirectory) ; 

char name_template [13] = "_inf o_XXXXXX" ; 

bool success = (mktemp (name_template) != NULL); 

SetCurrentDirectory (curdir ) ; 

if (1 success) return; 

m__BackupFile=m_TemporaryDirectory+" \\ " +CString (name_template} ; 
""•5 int i, n; 

%i CString tag, length, vr, value, description; 
Ql try 

CFile db_f ile (m_BackupFi le , CFi le : :TnodeCreate | CFi le : : modeWri t e ) ; 
'^4 CArchive ar(&db_file, CArchive :: store ) ; 

n =m_L i s t , Ge 1 1 1 emCoun t ( ) ; 
ar<<n; 

for(i = 0; i<n; i + + ) 

76 { 

s tag=m_List . Get ItemText ( i , 0) ; 

length=m_Li St . Get ItemText ( i , 1 ) ; 

t..^ vr=ra_List . Get ItemText ( i , 2) ; 

^ value=m_List , Get ItemText (i , 3) ; 

R,, descript ion=TTi_List . Get ItemText ( i r 4 ) ; 

r. - ar<<tag<<length<<vr<<value<<description; 

} 

ar . Close ( ) ; 
catch (CExcept ion* e) 

{ 

e - >Delete ( ) ; 
ResetBackup { ) ; 

) 

} 

bool DICOMInf o; :OpenFromFile 0 

{ 

if (m_BackupFile== " " || m_BackupFile==in_DropFile) return false; 
int i, n; 
UINT nitem; 

CString tag, length, vr, value, description; 
try 

{ 

CFile db_f ile (m__BackupFile , CFile : :TnodeRead) ; 
CArchive ar(&db_file, CArchive load) ; 
ar > >n ; 

m_List . Del eteAl II terns ( ) ; 
for(i=0; i<n; i++) 

{ 

ar > >tag>>length> >vr> > value >>de script ion ; 
nItem=Tn_List . Insert I teTn(m_List , Get ItemCount ( ) , tag) ; 
m_List . Set I tern (nit em, 1 , LVIF_TEXT, length, 0,0,0,0); 
m_List . Set I tern (nit em, 2 , LVIF^TEXT, vr , 0,0,0,0) ; 
m_List . Set Item { nit em, 3 , LVIF^TEXT , value , 0,0,0,0) ; 
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m_List . Setltem(nltem, 4 , LVl F_TEXT , descr ipt ion , 0,0,0,0) 

} 

ar . Close ( ) ; 
Tn_numE lements = n; 

CString num; num. Format [" %d" , m_numElements) ; 
GetDlgItem(IDC_EDITNUM) - >SetWindowText (num) ; 
for(i=0; i<=4; 

{ 

m_List . SetColumnWidth ( i , LVSCW_AUTOSIZE) ; 

} 

return true; 

) 

catch (CException* e) 

{ 

e->Delete ( ) ; 
ResetBackup ( ) ; 
return false ; 



* Reset the backup file 
void DICOMInf o : :ResetBackup ( ) 

{ 

DeleteFile (m_BackupFile) ; 
^^^^^ m_BackupFile= " " ; 
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// Image. h: interface for the Image class. 
// 

////////////////////////////////////////////////////////////////////// 

#if Jdefined( AFX_ I MAGE_H_ I NCLUDED_ ) 
#define AFX_IMAGE_H_INCLUDED_ 

# include " ScreenMap . h" 
# include "Palette .h" 

#include " . . /StdAf x . h" // Added by ClassView 

# define COMPARE_CORRELATION 0 
#define COMPARE^AB SOLUTE 1 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
class Image : public CObject 

{ 

pub lie: 

bool m_UpdateBi tmap ; 

bool m_RGB; 
BYTE m_EdgeThreshold; 
static const BYTE 

DisplayNormal , DisplayHidden , Di splaySelected 
long m_maxPixelValue ; 

Palette* m_pPal; 
ScreenMap m_ScreenMap; 



void Set ImageData (DICOMRecord* dr, Point2D* pspace, int* index) 

void Set ImageRectZoom ( double zoom) ; 

void Set ImageRectOff set (double dx , double dy) ; 

void SetDisplayStatus (BYTE stat); 

void LinkToPalette (Palette* pPal) ; 

void Get Subimage ( Image* sub, const int xleft, const int ytop) ; 

void Palet te_to_Pixels ( ) ; 

void ResetPixels (bool current_to_saf e) ; 

void SetBrightness (int b) ; 

void TR_Flip (bool horizontal); 

void SetShowImageInf o (bool show) 

void GetStat ist ics ( long &avg, long S:sigma2, long &count 

int xO, int xl, int yO, int yl); 

void Get Stat ist ics ( long &avg, long &sigma2, long &count 



m_ShowImageInf o = show; 



GetStatistics (avg , sigma2, count, 0, m_Width, 0, m_Height); 

}; 

inline void SetPixel (unsigned int x, unsigned int y, long p) ; 
inline void SetPixelFromLum (unsigned int x, unsigned int y, long p) ; 
inline void SetPixel (unsigned long n, long p) ,* 
bool ContainsScreenPoint (CPointSc p) ; 

bool GetShowImageInf o ( ) { return m_ShowImageInf o ; ); 

bool CloneFrom ( Image* img) 

bool WriteToFile (CString fname) ; 

bool SetPalette ( long* color_map, long color_map_s ize , bool show__progress=true) 

bool Set Palette ( int px^ int py^ int pxmax, int pymax) ; 

bool Createlmage ( int xwidth, int xheight, 

int bytes_per_pixel , Palette* pPal=NULL) ; 
bool TR_SetUnif ormLuminance (CRect r, bool show_progress=true) ; 

bool TR_SetUnif ormLuminance (bool show_progress=true) ; 

bool TR_PixelKeighboorhood ( char mask_type, bool showjrogress) ; 

bool TR_PixelExp 0 ; 

bool TR__PixelLog 0 

bool TR_GammaCorrect ion (double gamma); 

bool TR_HistStretch (BYTE percent, bool show_progre ss= true ) ; 

bool TR_HistStretch ( int amin,int amax^int bmin,int bmax, 

bool show__progress = true) ; 
bool TR_HistEqualize (bool show_progress=true) ; 

bool TR_Megate(); 
bool TR_Rotate ( int degrees); 

bool DisplayDIB (CDC *pDC, CRect crec tScreenArea , CRect erect ImageArea , 

CPoint pScroll=CPoint ( 0 , 0 ) , bool optimize=true) ; 
bool DisplayDIB (CDC *pDC, CPoint pScroll); 

bool DisplayDIB (CDC *pDC) ; 
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BYTE* GetPixelBytes (UINT32& data_size); 

inline BYTE GetDi splayStatus ( ) { return m^Di splayStatus ; }; 
int CompareToDICOMRecord (DICOMRecord & dr, BYTE lev) ; 

inline int GetHeightO { return m_Height; }; 
inline int GetWidthO { return m_Width; }; 

inline int GetBytesPerPixel ( ) { return m_Bytes_per_Pixel ; } 

inline int GetBytesInRaw( ) { return m__Height*Tin_Bytes_per_Pixel ; 

long TR_Fractal ( const int const int y) ; 

inline long GetPixel (unsigned mt x, unsigned mt y) ; 

inline long GetPixel (unsigned long n] ; 

inline long GetLuminance ( int x, int y) ; 

inline long Get SmoothedLuminance ( int x, mt y) ; 

double Compare {int comp_type, CPoint topleft, long **pattern, 

int pat_v/, int pat_h, long pat_avr) ; 

inline double 

GetZoomO { return m_ScreenMap . Get Zoom () ; }; 
CPoint TR_FindSimilarRegion (const CRect rO) / 

Image (bool undo=true) ; 
~ Image ( ) ; 



private : 
bool 
bool 
bool 
BYTE 
BYTE* 

unsigned int 
int 

U int 
^iJ long 

ffl unsigned long 



m_ReleasePalette ; 
m__DisplayFailed; 
m_ShowImageInf o; 
m_Di SplayStatus ; 
m_Pixels ; 
m_numColors ; 
m_ Index ; 

m__Height; m_Width; 
m_Bytes_per__Pixel ; 
m_numPixelBytes ; 
m numPixels; 



static unsigned long 
^'■f m_UndoFileCount ; 

'^'J Point2D m_PixelSpacing; 
|1 CString m_UndoFiler 

HBITMAP m_Bitmap; 
5-- CStatusBar* m_MainStatusBar ; 

Ij BITMAPFILEHEADER m_bmpFHeader ; 
. LPBITMAPINFO m_bmpInfo; 

DICOMRecord m DICOMRecord; 



void DisplaylmageInf o (CDC* pDC) ; 

void Format Imagelnfo (CStringSc info) ; 

void Get_Pixel_minmax ( long&pmin, longSc pmax) ; 

void DeletelmageData ( ) ; 

bool Serializelmage (FILE* fp, bool is_loading) 

inline unsigned long 

MapPixel (unsigned int x^ unsigned int y) ; 
long TR_DeNoise (const int x, const int y) ; 

long TR_Sharp ( cons t int const int y) ; 

long TR_Smooth ( const int x, const int y) ; 

long TR_Sobel ( const int x, const int y) ; 

HBITMAP DIB_to_DDB (CDC *pDC) ; 



* Get pixel functions 

inline long Image :: Get Pixel (unsigned int x, unsigned int y) 

{ 

return GetPixel (MapPixel (x , y) ) ; 
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} 

inline long Image :: GetPixel (unsigned long n) 

{ 

if (n>=Tn_numPixels) n=m_nuTnPixels - 1 ; 

n *= m__Bytes_per_Pixel ; // array index 

// Color ? 

if (m_RGB) return RGB (m_Pixels [n+2] ,na_Pixels [n+1] ,m_Pixels [n] ) ; 
// Grayscale 

switch (m_By tes_per_Pixel ) 

{ 

case 1: return m_PixeIs[n] ; 

case 2: return ( (UINTie^^) m_Pixels) [n] ; 

case 3: return (m_Pixels [n+1] + ((( long) m__Pixels [n+1] ) <<8 ) 

+ ((( long) m__Pixels [n+2] ) <<16 ) ); 
case 4: return ( (UINT3 2* ) m_Pixels) [n] ; 

} 

return m_Pixels [n] ; 

} 

* 

* Set pixel functions 

inline void Image :: SetPixel (unsigned int x, unsigned int y^ long p) 

{ 

m_UpdateBitmap=true ; 
^15. Set Pixel (MapPixel (x,y) , p) ; 

iritlLne void Image :: SetPixelFromLum (unsigned int x, unsigned int y, long p) 

-5'^ Eii_UpdateBitmap=true ; 

j"';" long n=MapPixel (x ,y) ; 

"^1 if (m_RGB) // color image 

JJ^ m_Pixels[n] = (BYTE)p,- 

m _Pixels [n+1] = (BYTE) p; 
lU nTpixels [n+2] = (BYTE) p; 

™ return; 

L...^ else SetPixel (n , p) ; 

iSine void Image :: SetPixel (unsigned long n; long p) 

^: m_UpdateBitmap=true ; 

if (n>=m_numPixels) n=m__numPixels - 1 ; 
O // Color ? 

if(m_RGB) 

( 

m_Pixels [n] =GetBValue (p) ; 
m_Pixels [n+1] =GetGValue (p) ; 
m__Pixels [n+2] =GetRValue (p) j 
return ; 

} 

// Grayscale 

if (p>m_maxPixelValue ) p=m_maxPixelValue ; 
else if (p<0) p=0 ; 

switch (m_Bytes_per_Pixel ) 

{ 

case 1: m_Pixels [n] = (BYTE) p; 
breaJi; 

case 2: ( (UINT16 * ) m_Pixels) [n] = (UINT16)p; 
break; 

case 3 : 

m_Pixels [n+2] = (BYTE) (p>>16) ; 
m_Pixels [n+1] = (BYTE) ( (p>>8) &255) ; 
m_Pixels [n] = (BYTE) (p&255) ; 
break; 

case 4: { (UINT32*)m_Pixels) [n] = (UINT32)p; 
break; 

} 

return ; 

} 
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* ReturniB luminance (brightness) of pixel (x,y) 
inline long Image : :GetLuminance ( int x, int y) 

{ 

if(x<=0) x=0; if(y<0) y=0; 

if (m_RGB) 

{ 

long i^MapPixel (x , y ) ; 

return (long) ( (m_Pixels [i] +m_Pixels [ i + 1] +m_Pixels [ i + 2] ) /3 ) ; 

} 

else return GetPixel (x, y) ; 

} 

inline long Image :: Get SmoothedLuminance ( int x, int y) 
{ 

if(x<0) x=0; 

if(y<0) y=0; 

long p^TR_Smooth (x ,y ) ; 

if (m_RGB) 

{ 

return (long) ( (GetRValue (p) +GetGValue (p) +GetBValue (p) ) /3) ; 

) 

else return p ; 



#epdif // I defined (AFX_IMAGE_H_INCLUDED_} 




I 
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// Image, cpp: impleinentat ion oE the Image class. 
// 



#include "stdafx.h" 
# include " . . \DCM.h" 
#include " Image. h" 
#include " , . \FindRegion . h" 

#ifdef „DEBUG 
#undef THIS_FILE 

static char THIS_FILE[]= FILE_ 

#define new DEBUG_NEW 
#endif 



/ 

// Construction/Destruction 



const BYTE 1 mage : : Di splayNormal = 0; 
const BYTE ]mage : :DisplayHidden = 1; 
const BYTE Image :: Di splaySelected ^ 2; 
unsigned long Image : :m_UndoFi leCount= 0 ; 

Image: : Image (bool undo /*=true*/) 

{ 

m_Pixels=NULL ; 
m_bmplnf o=NULL; 
m_Bitmap=NULL ; 
m_pPal=NULL; 

m_ReleasePalette = true; 
O if (undo) m_UndoFile = 
.f=ielse m_UndoFile = '"; 

SI m_S how I mage Info = false; 
y ' m__DisplayStatus = DisplayNormal ; 
UJi m_Index= 0 ; 

Im4^e : : -Image ( ) 

n ^ DeletelmageData { ) ; 

if ( (m UndoFile (m_UndoFile 1= " + ")) DeleteFi le (m_UndoFi le) 

} [^,_ 

vcffii Image : :DeleteImageData ( ) 

^ ^^^^^ if (m Pixels) { delete [] m_Pixels; m_Pixels=NULL ; } 

^1 if (m~bmpInfo) { delete [] m_bmpInfo; m_bmpInfo=MULL; } 

O if(m_Bitmap) DeleteOb j ect (m_Bitmap) ; 

if {m_ReleasePalette) 

if (m_pPal) delete m_pPal; 
m _pPal = 0 ; 

} 

} 

void Image: :SetImageData(DICOMRecord *dr, Point2D *pspace, int *index) 

^ if(dr) m_DICOMRecord = (*dr); 

if(pspace) m_PixelSpacing = (*pspace); 

if (index) m_Index = (*index); 

} 

^ -k-k ic i 

- -k 

* Initialize image pixel arrays. Always call after image construction 

bool Image: :CreateImage (int xwidth, int xheight, int bytes_per__pixel , 

Palette* pPal /*=MULL*/) 

// Clear if anything existed 
DeletelmageData ( ) ; 

// Find number of bytes per pixel with the current display 
if (bytes_per_pixel> = l && bytes__per_pixel<-3 ) 
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m_Bytes_per_Pixel= bytes_per_pixel ; 

} 

else return false; // out of memory 

int device_bpp ~ ( theApp . app_MetheTas ? 2 : 1);// bytes per pixel available 
if (device_bpp<m_Bytes__per _Pixel ) m_By tes_per_Pixel = devi ce__bpp ; 
m_RGB=false; // no color images so far 

// Set image parameters 

if(xwidth>8) m_Width=8* (xwidth/8) ; else m_Width=8; 

if (xheight>8) m_Height = 8* (xheight/8) ; else m_Height=:8 ; 

if (m_Bytes_per_Pixel==l) m_numColor s=256 ; 
else m_numColors=0 ; 

m__numPixels= ( ( long) m_Width) *m_Height ; // total number of pixels 
m_numPixelBytes=m_numPixels*m_Bytes_per_Pixel ; 

if ( !m__RGB) m_maxPixelValue= min (4095 , ( 1<< ( 8*m_Bytes__per_Pixel) ) -1) ; 

else m_maxPixelValue=255 ; 

m_EdgeThreshold=max ( 1 , m_maxPixelValue/20) ; // 5% of the total scale 



// Set bitmap infoheader 

m_bmplnf o= (LPBITMAPINFO) new BYTE [sizeof (BITMAP I NFOHEADER) 

+m_numColors*sizeof (RGBQUAD) ] ; 
if ( J m_bmplnf o) return false; // out of memory for bitmapinfo 
m__bmplnf o->bmiHeader .biSize^sizeof (BITMAPINFOHEADER) ; //fixed 
m_bmplnf o- >bmiHeader . biWidth=m_Width; 
m_bmplnf o- >bmiHeader , biHeight=m_Height ; 
m_bmplnf o->bmiHeader . biPlanes=l ; //fixed 
m_bmp I n f o - > bmi Hea de r . b i B i t Coun t = 8 *m_By t e s__p e r_P i x e 1 ; 
m_bmplnf o- >bmiHeader . biCompression=BI_RGB ; //fixed 
m_bmplnf o->bmiHeader .bi Size Image =0 ; / /fixed 
m_bmplnf o->bmiHeader . biXPel sPerMeter^O ; //fixed 
m_bTnpInf o- >bmiHeader . biYPel sPerMeter=: 0 ; //fixed 
m_bmplnf o->bmiHeader . biClrUsed= 0 ; 

m_bmplnf o->bTniHeader .biCl i:lmportant=0 ; //fixed, normally 0 
// Set bitmap palette 

for (unsigned int j=0; j <m_numColors ; 

{ 

m^bmplnf o- >bmiColors [ j ] . rgbRed= j ; 
m__bmpInfo->bmi Colors [ j ] . rgbGreen^ j ; 
m__bmplnf o->bmiColors [ j ] , rgbBlue = j ; 
m_bmplnf o- > bmi Colors [ j ] . rgbReserved=0 ; 

) 

// Set default screen map 

m_ScreenMap . Initialize (CRect (0,0 , m^Width , m_He ight ) ) ; 
m__ScreenMap . cr Screen . Of f setRect (50,0) ; 

// Set default bitmap fileheader (used only for file I/O) 
m_bmpFHeader .bf Type= ( ^M' <<8) | 'B ' ; //fixed 

m^bmpFHeader . bf Size=sizeof (BITMAPFILEHEADER) +sizeof (BITMAPINFO) 

+m_Width*m_Height*m_numColors ; 
m_bmpFHeader . bf Re servedl=0 ; //fixed 
m^bmpFHeader . bf Reserved2 = 0 ; / /f ixed 

m_bmpFHeader .bfOf fBits=sizeof (BITMAPINFOHEADER) +sizeof (BITMAPFILEHEADER) 

+m_numColors*si2eof (RGBQUAD) ; 

// Allocate pixel array, set display pixels to 0 
try 

m_Pixels=new BYTE [m_numPixelBytes] ; 
catch (...) 

AfxMessageBox (" Image error: out of memory", MB_OK | MB_ICONEXCLAMATION) ; 
return false; 

if ( !m_Pixels) 

AfxMessageBox (" Image error: out of memory", MB_OK | MB_ICONEXCLAMATION) ; 
return false; 

else memset (m_Pixels , 0 ,m_numPixelBytes) ; 
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// Grab main v/indow status bar 

CMDIFrameWnd* main_f rame= ( CMDI FrameWnd* ) Af xGetMainWnd ( ) ; 
m_MainStat-usBar= (CStatusBar*) (main_f rame->GetMessageBar ( ) ) ; 

// Set logical palette 

if(lpPal) // create independent palette 

{ 

m_pPal=nev; Palette ( theApp . app_Meth6us , m_maxPixe lvalue , m_RGB ) ; 
m_Re 1 ease Pa lette= true ; 

} 

else // link to existing palette 

{ 

m_pPal=pPal ; 
m_ReleasePalette= false ; 

} 

m_DisplayFailed=f alse; m_UpdateBi tmap=; true ; m_B itmap=NULL ; 
return true; 

} 



* 

* Set image palette (will be set on devices supporting palettes) 

* Must be called for 8-bit bitmaps 

/^yset palette to specified color map array 

biMl Image SetPalette ( long* color_map, long color_map_size , bool showjrogress ) 
long i, r, g, b, p; 

if (m_pPal ->p_act ive) // if using logical palettes 

return m_pPal ->SetPalette {color_map, color_map_size) ; 
else // directly reset pixel values 

i^.-:. // Display progress control in the main frame status bar 

if ( showjrogress) theApp . ShowProgress ( l ^ "Modifying pixel values .,."); 

Ui II Backup old pixel values 

\} ResetPixels ( true) ; 

11 Remap pixel values 

^ if(m_RGB) 

for(i = 0,- i< ( long) m__numPixels ; 1+ + ) 

{ 

if ( show_progress i%10 0==0) theApp. ShowProgress ( ( 99* i) /m_numPixels) ; 
p=GetPixel (i) ; 

r=GetRValue (p) ; if {r>=color_map_size) r=color_map_size- 1 ; 
g=GetGValue (p) ; if (g>=color_map_size) g=color_map_size-l ; 
b=GetBValue (p) ; if (b> = color_[nap_size ) b-color_map__s ize - 1 ; 
Set Pixel ( i , RGB ( color_map [r] , color_map [g] , color_map [b] ) ) ; 

} 

} 

else // greyscale 

{ 

for(i=0; i< { long) m_numPixels ; 

{ 

if ( show_progress i%100==0) theApp . ShowProgress ( ( 99*i ) /m_numPixels) ; 
p=GetPixel ( i) ; if (p>=color_map_si2e} p=color_map_size- 1 ; 
SetPixel (i, color_map [p] ) ; 

} 

} 

return true; 

} 

} 

bool Image :: SetPalet te ( int px^ int py, int pxmax , int pymax) // set palette with respect to the 
mouse position 

{ 
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int of f set= ( ( ( long) m_rnaxPixelValue/3 ) * ( 2*px-pxmax) ) /pxmax ; 

double x= ( 2 . 0*py ) /pyraax ; 

x=l + 2^^ (x-1) * (x-1) * (x-1) ; 

return m_pPal ->SetPalette (of f set , x) ; 



* Plot DIB pixels 

bool Image :: DisplayDIB {CDC *pDC^ CRect crectScreenArea , CRect erect ImageArea , 

CPoint pScroll, bool optimize) 

{ 

if {m__DisplayStatus DisplayHidden) return true; // no display for hidden 
UIMT "palUsage; 

if (m _DisplayFailed) return false,- 

if (m_pPal->p_active ra_pPal->LoadPalette (pDC,m_RGB) ) 
{ 

palUsage=DIB_PAL_COL0RS ; 

) 

else palUsage=DIB_RGB_COLORS; 

// Printing ? 
";f if (pDC->IsPrinting ( ) ) 

Q1 opt imize=f alse ; 

.,}.== int list_width = pDC- >GetDeviceCaps (HORZRES) ; 

'^^ int list_heiglit = pDC- >GetDeviceCaps (VERTRES) ; 

''■I double mag = 0.9*min( ( double )( 1 ist_width/GetWidth ()) , 

kQ (double) (list_height/GetHeiglit 0 ) ) ; 

,p int print_width = ( int ) (mag*GetWidth ( ) ) ; 

J":! int print_height= ( int ) (mag*GetHeight () ) ; 

crectScreenArea=CRect ( 
s CPoint ( (list_width-print_width} /2, ( 1 i st_height -print_height ) /2) , 

CSize (print_width, print_height ) ) ; 
iZ erect ImageArea =CRect (CPoint (0,0) ,CSize (GetWidth ( ) .GetHeight (} ) ) ; 

pScroll = CPoint(0,0}; 

™^ /* Optimize drawing regions */ 

CRect rcClip, rcDraw; 
CJ pDC->GetClipBox (rcClip) ; 

rcClip . Normal izeRect ( ) ; 

if ( optimize) 

{ 

CRect rcDIB; 



if (rcClip . IsRectEmpty ( ) ) return true; 
rcClip . Inf lateRect (4 , 4 ) ; 

rcDraw . Intersect Re ct (rcClip, crectScreenArea) ; 
rcDraw-NormalizeRect ( ) ; 

i f (rcDraw . I sRectEmpty ( ) ) return true; 

rcDIB=:m_ScreenMap . Screen_to_Image (rcDraw) ; 
if (rcDIB . IsRectEmpty () ) return true; 



crectScreenArea . CopyRect (rcDraw) ; 

if ( theApp . app_Metheus) crectScreenArea - Of f setRect ( -pScroll ) ; 
erect ImageArea , CopyRect (rcDIB) ; 



/* Correct image area ^/ 

if ( erect ImageArea . lef t<0 ) erect ImageArea . Of f setRect (- erect ImageArea . lef t ^ 0) ; 
else if ( erect ImageArea . right >m_Width) 

erect ImageArea , Of f setRect (m_Width- erect ImageArea , right , 0) ; 
if (erect ImageArea .top <0 ) erect ImageArea . Of f setRect ( 0 , - erect ImageArea .top) ; 
else if (erect ImageArea . bottom>m_Height ) 

erect ImageArea . Of f setRect ( 0 , m_Height- erect ImageArea . bottom) ; 
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I Set screen (destination) and bitmap (source) areas */ 

long xDest=crectScreenArea . TopLef t ( ) . X; long yDest=crectScreenAr€a . TopLef t ( ) . y ; 
long wDest^crectScreenArea . Width () ; long hDest=crectScreenArea . Height {) ; 

long xBmp^crectlmageArea . TopLef t ( ) .X; 
long yBmp; 

if ( theApp . app_Metheus) yBmp=crect ImageArea . TopLef t ( ) .y; 
else 

{ 

yBTnp=Tn_Height - erect Image Area . TopLef t ( ) . y- erect ImageArea . Height { ) ; 

} 

long wBmp = crect ImageArea . Width () ; long hBmp-crect ImageArea - Height () ; 

/* Display as DIB */ 

if (wDest==0 II hDest==0 || wBmp ==0 1| hBmp==0) return true; 

if ( ! theApp . app_Metheus) 

{ 

m^DisplayFailed- ( Stret chDIBi t s ( pDC- >GetSaf eHdc ( ) , 

xDest, yDest, wCest, hDest, xBmp, yBmp, wBmp, hBmp, 
m_Pixels, m_bmpInfo, palUsage, SRCCOPY) <=0) ; 

} 

else // Metheus 

{ 

m_DisplayFailed=true ; 
if (m_UpdateBitmap) 

{ 

if (m_Bitmap) 

MetheusDeleteCompatibleBitmap (pDC- >Get Saf eHdc { ) , m_Bitmap) ; 
□ m_Bitmap = MetheusCreateCompat ibleBitmap {pDC- >Get Saf eHdc ( } , GetWidth ( ) , GetHeightO) 

if (MetheusLoadlmageFromData (pDC->GetSaf eHdc ( ) , m_Bitmap, 
™f theApp . app_DynamicPaletteStart , m_Pixels , GetWidth(), GetHeightO, 

y1 GetWidthO *m_Bytes_per_Pixel , 8*m__Bytes_per_Pixel , 

5I5 0, 0, GetWidthO, GetHeightO, 0,0)= = FALSE) 

J AfxMessageBox (" Cannot create image bitmap", MB_OK ) MB^ICONEXCLAMATIOM) ; 

return false; 

m_Di splay Fa iled= 

(MetheusStretchBltImage(pDC->GetSafeHdc() , NULL, 
'yk xDest, yDestj wDest, hDest, 

m_Bitmap, 

xBmp, yBmp,wBmp;hBmp,SRCCOPY) = = FALSE) ; 

p^' /* Display selection frame I 

^! if (m__DisplayStatus =~ DisplaySelected) 

CRect r2 = m_ScreenMap . crScreen ; 
pDC->DrawEdge(r2,SDGE_BUMP, BF_RECT) ; 

] 

/* Display image info, if needed */ 

if (m_ShowImageInf o) Displaylmageinf o (pDC) ; 

/* Any display errors ?? */ 

if (m_DisplayFailed) 

{ 

DWORD ecode=GetLastSrror 0 ; 
CString estr,- 

estr . Format ( " GDI error code: %ld\n Please reload the image", ecode); 
AfxMessageBox (estr , MB_OK | MB__ICONEXCLAMATION) ; 

) 

m_UpdateBitmap=f alse ; 
return ( ! m_Di splayFailed) ; 

} 

bool Image : :DisplayDIB (CDC *pDC) 
{ 

return DisplayDIB (pDC , m_ScreenMap . crScreen, m_ScreenMap . cr Image , CPoint(0,0), true); 

} 

bool Image : :DisplayDIB (CDC *pDC, CPoint pScroll) 

{ 

return Di splayDIB (pDC , m_ScreenMap . crScreen, m_ScreenMap . cr Image , pScroll, true); 
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* Display image caption over the image 
void Image :: Display Imagelnfo (CDC *pDC) 

{ 

CString info; 

Format Imagelnfo ( info) ; 

if (pDC">IsPrinting ( ) ) 

{ 

pDC->SetMapMode (MM^LOENGLISH) ; 

CFont *oldcf = pDC- >SelectOb3 ect ( SctheApp . app_MediumFont ) r 
pDC->SetTextColor (RGB (0, 0, 0) ) ; 
pDC->TextOut (0 , 0 , inf o) ; 
pDC->SelectObj ect (oldcf ) ; 
pDC->SetMapMode(MM_TEXT) ; 

} 

else 
{ 

pDC->S€tMapMode {MM_TEXT) ; 

CFont *oldcf = pDC->SelectObj ect (&theApp . app^SmallFont ) ; 
// Find caption rectangle sizes 
CRect r^CRect (0, 0, 10, 10) ; 

r.OffsetRect (m_ScreenMap . cr Screen. TopLef t ()+CSi2e(5,5)); 

pDC->DrawText (info, r , DT^CALCRECT) ; 

r &= m__ScreenMap . crScreen; 

// Find out the best caption color 
Q COLORREF cl = pDC- >GetPixel( r . TopLef t ()) ; 

,"^1 COLORREF c2 = pDC- >GetPixel ( r . Bot tomRight () ) ; 

2f COLORREF c3 = pDC->GetPixel (r . CenterPoint ( ) ) ; 

^ COLORREF c = RGB { 

J] (GetRValue (cl) +GetRValue (c2) +GetRValue (c3 ) ) /3 , 

(GetGValue (cl) +GetGValue (c2) +GetGValue (c3) ) /3 , 
2 (GetBValue (cl) +GetBValue ( c2 ) +GetBValue ( c3 ) ) /3) 

W BYTE g = (GetRValue (c) +GetGValue (c) +GetBValue (c) ) /3 ; 

if(g<100) g =255; else g = 0; 
pDC->SetTextColor{RGB(0,g,0) ) ; 
''^ pDC->SetBkMode (TRANSPARENT) ; 

// Display the caption 

pDC->DrawText (info,r,DT_LEFT | DT_END_ELLIPS IS ) ; 
fl pDC->SelectObject (oldcf ) ; 



pi 

* Map pixel coordinates from 2D to linear array of pixel bytes 
inline unsigned long Image : .-MapPixel (unsigned int x, unsigned int y) 

{ 

/* Safe pixel mapping - important ! */ 

if(x >= (unsigned int)m_Width) x=m_Width-l; 

if (y >= (unsigned int ) m^Height ) y=m_Height- 1 ; 

/* Metheus vertical flip */ 

if ( theApp . app__Metheus) y=m_Height - 1 -y ; 

return m_Bytes_per__Pixel * (m__Width* ( long) (m_Height -y- 1 ) +x) 



* Converts DIB to DDB 

HBITMAP Image: :DIB_to_DDB (CDC *pDC) 
{ 

return CreateDIBitmap {pDC->Get Saf eHdc () , & (m_bmplnf o- >bmiHeader ) , 

CBM_INIT,m_Pixels, m_bmplnf o, DIE_RGB_COLORS) ■ 
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* Returns subimage of the current image 

void Image ;: GetSubimage ( Image* sub; const int xleft, const int ytop) 

{ 

if ( ! sub) return; 

// Backup pixel values 

sub- >ResetPixels { true) ; 

int x,y; 

for{x=xleft; x<xlef t+ ( sub->GetWidth ( ) ) ; x++) 

{ 

for(Y=ytopr y<ytop+ ( sub- >GetHeight ( ) ) ; y++) 

{ 

if(x<0 II x>=this->GetWidth ( ) |1 Y<0 1| y>=this - >GetHeight ( ) ) 
{ 

sub- >SetPixel (x-xlef t , y-ytop , 0) ; //black background color 

} 

else 

{ 

sub -> Set Pixel (x-xlef t , y-ytop, thi s - >Get Pixel (x,y) ) ; 

} 

} 

}JJ 



Set image flip parameter 

v^id Image :: TR_Flip (bool horizontal) 

: int X, y, v/=GetWidth() , h^GetHeight ( ) ; 

1^3:: long p ; 

£j if (horizontal) // horizontal flip 

'""^ ResetPixels ( true) ; // backup 

"^1 for(x=0; x<w/2; X+ + ) 

:: ShowProgress [( 200*x) /w, " Flipping horizonatlly - - " ) r 
for (y=0; y<h; y+ + ) 

{ 

p = GetPixel (x ,y) ; 

SetPixel (x , y, GetPixel (w-x,y) ) ; 

SetPixel { w-x , y , p) ; 

} 

} 

} 

else 

{ 

ResetPixels ( true) ; // backup 
for(y=0; y<h/2; y++) 

{ 

ShowProgress (( 200*y) /h, Flipping vertically .."); 

for(x=0; X<W; X++) 

{ 

p = GetPixel (x , y) ; 

SetPixel (x,y,GetPixel(x, h-y) ) ; 

SetPixel (x,h-y,p) ; 




} 

:: ShowProgr ess ( 0 , "Ready " ) ; 
Beep (500, 100) ; 
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* Increase image brightness by b percent 

* (decreases brightness for negative b) 

void Image :: SetBrightness ( int b) 

{ 

long amin, amax, bmin, bmax; 
/* Validation */ 

if(b<-99) b=-99; else if(b>99) b=99; 
if{b==0) return; // nothing to do ; 

/* Find current max and min */ 

if (m_pPal - >p_act ive) m_pPal - >Get_Pal__minmax ( amin^ amax) ; 
else Get_Pixel_minmax (amin, amax) ; 

/* Set new min and max */ 

bmin= ( int) (amin+ ( ( ( long) h) * (amax-amin) ) /lOO) ; 
bmax=bmin+ (amax-amin) ; 
if(bmjn<0) bmin=0; 

if (bmax>m__maxPixelValue) bmax=m_raaxPixelValue ; 

/* Remap the pixels */ 

TR_Hist Stretch (amin, amax, bmin,bmax) ; 

return; 




* J. Apply 3x3 Smooth mask: 

*J3 1 2 1 
*m 2 4 2 
12 1 

li&ng Image :: TR_Smooth ( cons t int x, const int y) 

fit 

^-.s'^ long aOO=GetPixel (x-1 ,y-l) f long al 0=Get Pixel (x , y- 1 ) ; long a20=GetPixel (x+1 , y- 1 ) 

■%l long aOl-GetPixel (x-1 ,y) ; long al l=GetPixel (x , y ) ; long a21=Get Pixel (x+1 , y) ; 

long a02=GetPixel (x-1 ,y+l) ; long al2=Get Pixel (x , y+1 } ; long a22=GetPixel (x+1 , y+1 ) 

i;: if(fm_RGB) 

U ( 

long t=(all<<2)+( (a01+al2+a21+al0) < < 1 ) +a02+a2 2+a0 0+a2 0 ; 
return (t>>4) ; 

} 

else 

{ 

long tb,tg,tr; 

tb= (GetBValue (all) <<2) 

+ ( (GetBValue (aOl) 4-GetBValue (al 2 ) +GetBValue ( a21) +GetBValue (alO) ) <<1) 
+GetBValue (a02) +GetBValue (a22) +GetByalue (aOO) +GetBValue (a20) ; 

tg= (GetGValue (all) <<2) 

+ ( (GetGValue (aOl ) +GetGValue ( al2) +GetGValue (a21) +GetGValue (alO) ) <<1) 
+GetGValue (a02) +GetGValue ( a22 ) +GetGValue (aOO) +GetGValue ( a2 0 ) ; 

tr= (GetRValue (all) <<2) 

+ ( {GetRValue (aOl) +GetRValue (al2) +GetRValue (a21) +GetRValue (alO) ) <<1) 
+GetRValue (a02) +GetRValue (a22) +GetRValue (aOO) +GetRValue (a20) ; 

return RGB (min (tr>>4,255) ,min ( tg>>4 , 255) ,min (tb>>4 ,255) ) ; 

} 

} 

* Apply SUSAN-like or 3x3 Gaussian mask to denoise: 

* 1 4 1 

* 4 12 4 
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long Image I : TR_DeNoise ( const int x, const int y) 

{ 

static const int rad=2; 
static const int rad2=rad* 2+1 ; 

static bool ini t_state=f alse ; 

static int thresh=rad; 

static long bp [50] ; 

static long dpt [rad2] [rad2] ; 

static double thresh2=l . 0/ ( thresh*thresh) ; 

long sigma=50, brightness, Itmp, area, total; 

// Calculate exponent and distance look-up tables 

if ( ! init_state) 

{ 

for(int k=0;]c<50;k+ + ) bp[k] = (long) ( 1 00 . o*exp ( - 0. l*k) ) ; 
for (int i=-rad; i<=rad; i++) 

{ 

for(int j = -rad; j<=rad,- + ) 

{ 

dpt [i+rad] [j+rad] = (long) (100.0 * exp ( ( -i*i- j *j ) *thresh2) ) ; 

) 

} 

ini t_s tat e- true ; 

■^IJ // Calculate image squared variance "sigma" 
fll if((x==rad) && (y ==rad) ) 

GetStat istics (area , sigma, Itmp) ; 
if (sigma<l) sigma=l; 

II Get central pixel 
long all=GetPixel (x, y) ; 

L,;, // Do denoising 

™^ if(!m_RGB) // Process grayscale image 

H| area = 0; 

v,j total = 0; 

^1; for (int k=0; k<rad2; k++) 

O for(int 1=0; l<rad2; 1++) 

{ 

brightness=GetPixel (x+k-rad, y+l-rad) ; 

1 tmp=brightness-all ; 

ltmp= ( 10*ltmp*l tmp) /sigma; 

if (ltmp>=50) continue; 

ltmp=bp [Itmp] ; 

Itmp dpt [k] [1] ; 

area Itmp; 

total Itmp * brightness; 

} 

} 

Itmp = area-10000; 

if tltmp==0) 
{ 

return ( (all<;<2) +Get Pixel (x-1 ,y ) +Get Pixel (x+1 , y) + 

Get Pixel (x,y-l} +Get Pixel (x, y+1) ) >>3 ; 

} 

else return (total- (all*10000) ) /Itmp; 

} 

else// Process color image 

{ 

long resultr, resultg, resultb.brl; 

long arear , areag , areab ; 

long totalr , totalg , totalb; 
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arear = areag = areab = 0; 
totalr = totalg = totalb = 0; 

for(int k=0; k<rad2; k++) 
{ 

for(int 1^0; l<rad2; 

{ 

brightness=Get Pixel (x+k-rad , y+1 -rad) 

// red 

brl=GetRValue [brightness) ; 
ltmp=brl-GetRValue (all) ; 
ltmp= ( 10*ltmp*ltmp) /sigma,- 
if (ltTnp<50) 
{ 

ltmp=bp [Itmp] ; 
Itmp *= dpt [k] [1] ; 
arear += Itmp; 
totalr += Itmp * brl; 



// green 

brl=GetGValue (brightness) ; 
ltmp=brl-GetGValue (all) ; 
ltmp= (10*ltmp*ltmp) /sigma; 
if (ltmp<50) 
{ 

Itmp-bp [Itmp] ; 
Itmp dpt [k] [1] ; 
areag += Itmp; 
totalg += Itmp * brl; 

} 

// blue 

brl=GetBValue (brightness) ; 
ltmp=brl-GetBValue {all) ; 
ltmp= (10*ltmp+ltmp) /sigma; 
if (ltmp<50) 
{ 

ltmp=bp [1 tmp] ; 
Itmp dpt [k] [1] ; 
areab += Itmp; 
totalb += Itmp * brl; 



// red 

Itmp = arear-10000; 
if (ltmp==0) 

{ 

long aOO=GetPixel (x-1 , y-1) ; long alO=GetPixel (x , y- 1) ; 

long a20=GetPixel (x+1 , y-1 ) ; long a01=GetPixel (x- 1 , y ) ; 

long a21=GetPixel (x+1 ,y) ; long a02=GetPixel (x~l , y+1) ; 

long al2=GetPixel (x,y+l) ; long a22=GetPixel (x+1 , y+1) ; 

resultr= (GetRValue (all) <<3 ) 

+ ( (GetRValue (all ) +GetRValue (aOl) +GetRValue (al2) +GetRValue (a21) 

GetRValue (alO) ) <<2) 

+GetRValue (a02 ) +GetRValue (a22) +GetRValue (aOO) +GetRValue {a20) ; 
if (resultr<0) resultr=0; 
else resultr >>= 5; 

} 

else resultr = ( totalr- (GetRValue (all) *10000 )) /Itmp ; 

// green 

Itmp = areag- 1000 0; 
if (ltmp==0) 



long aOO=GetPixel (x-1 , y- 1 ) ; long al 0=GetPixel [x , y- 1) ; 

long a20=GetPixel (x+1 , y-1) ; long a01=GetPixel (x-1 ,y ) ; 

long a21=GetPixel (x+1 ,y) ; long a02=GetPixel (x-1 , y+1 ) ; 

long al2=GetPixel (X, y+1) ; long a22=Get Pixe 1 (x+1 , y+1 ) ; 

resultg= (GetGValue (all) <<3) 

+ ( (GetGValue (all) +GetGValue (aOl) +GetGValue (al2) +GetGValue ( a21 ) 

GetGValue (alO) ) <<2) 

+GetGValue (a02) +GetGValue (a22) +GetGValue ( aO 0 ) +GetGValue (a20) ; 
if (resultg<0) resultg=0; 
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else resultg >>= 5; 

} 

else resultg = ( totalg- (GetGValue (all ) *1 0000) ) /Itmp; 
// blue 



Itmp = areab-10000; 

if (ltmp==0) 

{ 

long aOO=GetPixel (x-l,y-l) ; long al 0=GetPixel (x , y- 1 ) ; 

long a20=GetPixel (x+1 ,y-l) ; long aOl^GetPixel (x- 1 , y) ; 

long a21=GetPixel (x+1 ,y} ; long a02=GetPixel (x- 1 , y+1 ) ; 

long al2=GetPixel (x, y+1 } ; long a22=GetPixel (x+1 ,y+l ) ; 

resultb= (GetB Value (all ) <<3 ) 

+ ( (GetBValue (all) +GetBValue (aOl) +GetBValue (al2) +GetBValue (a21) + 

GetBValue (alO) ) <<2) 

+GetBValue (a02) +GetBValue (a22) +GetBValue (aOO) +GetBValue ( a20 ) ; 
if (resultb<0) resultb=0; 
else resultb >>= 5; 

} 

else resultb = (totalb- (GetBValue (all) *10000] ) /Itmp; 

fl total color 

//return RGB (min (resultr , 255) ,min ( resultg , 2 55 ) ,Tnin (resultb, 25 5) ) ; 
return resultr; 



-^•i} Apply 3x3 sharpening mask: 

^f=s -1 -1 -1 
T't -1 10 -1 

-1 -1 -1 / 2 

S&ig Image : :TR_Sharp ( const int x, const int y) 

B long aOO=GetPixel (x-l,y-l) ; long alO=GetPixel (x , y- 1) ; long a20=GetPixel (x+1 , y-1) 

1^;,, long a01=GetPixel (x-1 ,y) ; long all^GetPixel (x , y ) ; long a21=Ge tPixel (x + 1 , y) ; 

L„. long a02=GetPixel (x-1 ,y+l) ; long al2^Get Pixel (x , y+l ) ; long a22=Get Pixel (x + 1 , y+1 ) 

if(!m_RGB) 

%s long t=( (all<<l)+(all<<3) - (a01+al2+a21+al0+a02+a22+a00+a20) ) >>1 ; 

J if(t<0) t=:0; 

•"'•^ else if ( t>m_maxPixelValue) t =m_maxPixelValue ; 

O return t; 

} 

else 

{ 

long tr,tg,tb; 

tr= ( (GetRValue (all) <<1) + (GetRValue (all) <<3) 

- (GetRValue (aOl) +GetRValue (al2) +Ge tRValue (a2 1 ) +GetRValue (alO) 

+GetRValue (a02) +GetRValue (a22} +GetRValue ( aOO ) +GetRValue (a20) ) ) >>1; 
if(tr<0) tr=0; 

tg= ( (GetGValue (all) <<1) + (GetGValue (al 1 ) <<3) 

- (GetGValue (aOl) +GetGValue (al2) +GetGValue (a21) +GetGValue (alO) 

+GetGValue (a02) +GetGValue (a22] +GetGValue (aOO) +GetGValue (a20) ) ) >>1 ; 
if(tg<0) tg=0; 

tb= ( (GetBValue (all) <<1) + (GetBValue (all) <<3) 

- (GetBValue (aOl) +GetBValue (al2) +GetBValue (a21) +GetBValue ( al 0 ) 

+GetBValue (a02) +GetBValue (a22) +GetBValue (aOO) +GetBValue ( a2 0 ) ) ) >>1 ; 
if(tb<0) tb=0; 

return RGB (min ( tr , 255 ) ,min(tg,255) ,min(tb,25S) ) ; 

} 

} 

* Apply 3x3 edge detector 
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// DCM.h : main header file for the DCM application 
// 

#if ! def ined (AFX_DCM_H INCLUDED_) 

#define AFX_DCM_H INCLUDHD_ 

#if __MSC_yER >= 100 0 
#pragma once 

#endif // _MSC_VER >= 1000 

#ifndef AFXWIN_H 

#error include 'stdafx.h' before including this file for PCH 
#endif 

// #include <afxdao,h> 

#include " resource. h" // main symbols 

#include Fi leBrowser . h" // Added by ClassView 
#include "QUERY\QueryRetrieve . h" // Added by ClassView 
#include " QUERY\ODBC . h" // Added by ClassView 
//^include "LogFile.h" // Added by ClassView 

11/11/ User messages 

#define WM_USER_DISPLAY_MOST_RECENT WM_USER+31 

///////////////////////////////////////////////////////////////////////////// 
// CDCMApp: 

// See DCM.cpp for the implementation of this class 
// 

cfgss CDCMApp : public CWmApp 

app_Metheus ; 

app_Resolut ionScaleFactor ; 
app^SupportedPaletteSize ; 
app_DynamicPalet teStart ; 
app_DirectoryRoot , app_DirectoryTmp, 
app_D i r e c t oryDa t a ; 
app__S ere enRe solution ; 
app_Pen; 

app_SmallFont , app_MediumFont , 
app_LargeFont ; 
app_RTC ; 

app_ClientLog , app_ServerLog ; 
app_DataBase ; 
app^DataBase ; 
app_FileBrowser ; 
app_QueryRetrieve ; 



Di splayRecords (Array<DICOMRecord> Sea, bool from^local); 
ShowProgress ( int percent, char* inf o=NULL) ; 
MoveWmdowToCorner (CWnd* wnd, CSize of f set = CSise ( 0 , 0 ) ) ; 
TestFunct ion ( ) ; 
virtual CDocument* OpenDocument File (LPCTSTR IpssFileName) 

{ return this- >OpenDocument File ( IpszFi leName , true); } 
virtual CDocument* OpenDocumentFile (LPCTSTR IpszFi leMame , bool AddToDatabase ) 



CDCMApp ( ) ; 
-CDCMApp 0 ; 

/ / Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CDCMApp) 
public : 

virtual BOOL Init Instance () ; 

// } }AFX_VIRTUAL 

// Implementation 

/ / { { AFX_MSG ( CDCMApp ) 
afx_msg void OnAppAbout () ; 
afx_msg void OnFi leBrowse ( ) ; 

1 
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afx_msg void OnFi leQueryRetrieve () ; 

afx^msg void OnUpdateFi leQueryRetrieve ( CCmdUI * pCmdUI); 

afx_msg void OnDataBase ImportFi les ( ) ; 

afx_msg void OnDataBaseAttachFiles ( ) ; 

afx_msg void OnDataBaseRemoveFi les Imported () ; 

afx_msg void OnDataBaseAddRecords ( ) ; 

afx_msg void OnDataBaseRemoveRecords ( ) ; 

afx_msg void OnDataBaseRemoveFi lesAttached () ; 

afx_msg void OnDataBaseRemoveALLRecords ( ) 

// } }AFX_MSG 

afx_msg LRESULT OnDi splayMostRecent ( WPARAM wParam, LPARAM iParam} ; 

DECLARE_MESSAGE_MAP ( ) 
private : 

void SerializeApp (bool is_loading); 
OProgress app_Progress ; 

void LoadStdProf ileSettings (UINT nMaxMRU = _AFX_MRU_COUNT) 

bool TimeBomb ( ) ; 

bool SetDirectories ( ) ; 

}; 

extern CDCMApp theApp; 

extern void ShowProgress ( int percent, char* info) 
extern CString Trira(char* s) ; 



///////////////////////////////////////////////////////////////////////////// 
// MemoryLeakTest 

// Simple Class to test for memory leaks 

ctass MemoryLeakTest 

Ut #ifdef _DEBUG 

pjfivate : 

.^'■'I CMemoryState m_oldMemS t ate , m_newMemState ^ m_dif f MemState ; 

'^^ frendif 
Pliilic : 
ur~ inline void Start () 

2t { 

^"^^ #ifdef _DEBUG 

H m_oldMemState , Checkpoint () ; 

j^i, # end if 

return; 

t--;-: inline void End { int code=0) 
{ 

p; #ifdef _DEBUG 

m_newMeraState . Checkpoint ( ) ; 
ir,} if [ m_diff MemState . Difference ( m_oldMemState , m_newMemState ) ) 

{ 

TRACE( "Memory leakedl\n" ); 
m_dif fMemState . DumpStatist ics ( ) ; 
CString messages- 
message . Format (" \nLocat ion Code = %d", code) ; 
if (code) Af xMessageBox ( " Memory leaked 1 " +me ssage ); 

Beep (900 , 200) ; Beep (1 0 0 , 2 0 0 ) ; 

} 

else 

{ 

CString message; 

message . Format {" \nLocation Code = %d" , code); 

if (code) Af xMessageBox ( "No memory leaks " +message ) ; 

Beep (100 , 100) ; Beep(100,100) ; 

} 

#endif 
return; 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 li 1 1 1 III 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

11 ORecentFileList document 

class ORecentFileList : public CRecentFileList 

{ 
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public : 

void CleanMenuAliases { ) ; 

void AddMenuAlias (LPCTSTR f name , CString mname) ; 
void SerializeORFList (FIliE*^ fp, bool is_loading) ; 
ORecentFileList (UINT nStart, LPCTSTR IpszSection, LPCTSTR 

int nSize, int nMaxDispLen = AFX_ABBREV_FILENAME_LEN ) 

ORecentFileList (nStart , IpszSection, IpszEntryFormat , 

{ 

}; 

protected : 

void UpdateMenu{CCi:ndUI* pCmdUI); 
private : 

CMapStringToString m_menuNames ; 

}r 

//{ {AFX_rNSERT_LOCATION} } 
// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 

#endif // ! def ined (AFX_DCM_H IKCLUDED_) 



IpszEntryFormat , 
nSize, nMaxDispLen) 




I 
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// DCM.cpp : Defines the class behaviors for the application. 

// 

#include "stdafx.h" 
# include 'M3CM.h" 

#include "MainFrm . h" 
#include "ChildFrm. h" 
# include "DCMDoc . h" 
#include "DCMView.h" 
#include <direct.h> 
#include " CustomFi leDialog . h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef TH]S_FILE 

static char THIS__FILE[] = FILE j 

#endif 

void ShowProgress ( int percent, char* info) 

( 

theApp . ShowProgress (percent , info) ; 
CString Trim (char* s) 

in 

CString str (s) ; 

str . TrimLef t ( ) ; str . TrimRight ( ) ; 
(pi return str; 

/>/////////////////////////////////////////////////////////////////////////// 
MJ CDCMApp 

Rt&IN_MESSAGE_MAP (CDCMApp, CWinApp) 

1 1 { {AFX__MSG_MAP (CDCMApp) 
2 OK_COMMAND ( ID_APP_ABOUT , OnAppAbout ) 

ON^COMMAND (rD__FILE_BROWSE, OnFi leBrowse) 
Ll 0N_COMMAND ( I D_F I LE_QUER YRETR I EVE , OnF i 1 e QueryRe t r i eve ) 

ON_UPDATE_COMMAMD_uri (ID__FILE_QUERYRETRIEVE , OnUpdateFileQueryRetr ieve) 
\\^ ON_COMMAND ( ID_DATABASE_ADDFILES_IMPORT , OnDataBaselmportFiles ) 

ON_COMMAND ( ID__DATABASE_ADDFI LES_ATTACH , OnDataBaseAt tachFi les ) 

ON^COMMAND ( ID_DATABASE_REMOVEFILES , OnDataBaseRemoveFile s Imported) 
b"" ON_COMMAND (ID_DATABASE_ADDRECORDS, OnDa t aBaseAddRecords ) 
C? ON_COMMAND ( ID_DATABASE_REMOVERECORDS , OnDataBaseRemoveRecords) 

ON^COMMAND ( ID_DATABASE_REMOVEFILES_ATTACHED , OnDataBaseRemoveFilesAt tached) 

ON_COMMAND ( ID_FILE_OPEN, OnFileOpen) 

ON^COMMAND ( ID_DATABASE_REMOVEALLRECORDS , OnDataBaseRemoveALLRecords) 

// } }afx_msg_map 

// Standard file based document commands 

///no new files/// ON_COMMAND (ID_FILE__NEW, CWinApp :: OnFileNew) 
ON_COMMAND (ID_FILE_OPEN, CWinApp: : OnFileOpen) 
/ / Standard print setup command 

0N__COiy[MAND ( ID_FILE_PRINT_SETUP, CWinApp : :OnFilePrintSetup) 
ON_THREAD_MESSAGE ( WM_USER_D I SPLAY_MOST_RECENT , OnDi splayMos tRecent ) 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CDCMApp construction 

CDCMApp : : CDCMApp ( ) 
{ 

// TODC : add construction code here 

// Place all significant initialization in Initlnstance 
app_DirectoryTmp= " " ; 

) 

CDCMApp : : -CDCMApp ( ) 
{ 

// Delete graphical objects 
app_Pen . DeleteOb j ect ( ) 
app_STnallFont . DeleteObj ect { ) ; 
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app_Med.iumFont . DeleteOb j ect ( ) ; 
app_Lai-geFont . DeleteObj ect ( ) ; 

// Clean tmp directory 

if ( app_DirectoryTTnp ! = " " ) // Tmp directory exists 
{ 

WIN3 2_FIND_DATA wf ; 

CString nf =app_DirectoryTmp+" \\* " ; 

HAMDLE hf=FindFirstFile(nf ,&wf ) ; 

do 

{ 

CString tf =CString [ wf . cFileName) ; 

if (tf 1 = " . " ScSc tf I = " . . " ) 

{ 

DeleteFile (app__DirectoryTmp+" / " + tf ) ; 

} 

) 

while (FindNextFile(hf ,&wf ) ) ,- 
FindClose (hf ) ; 

} 

// Serialize application data 
SerializeApp ( false) ; 

} 

* Serialize application data 

vM'd CDCMApp :: SerializeApp (bool is_loading) 

Ol Open data file 

.1^ CString fname = " \\app • ciat " ; 

CString f = app_DirectoryData + f name ; 
H FILE* fp; 

y;j fp = f open (( char*) (LPCSTR) f , is_loading ? "rb" : "wb")r 
.^^j: if ( ! fp) re turn ; 

iU // Serialize 

^ ( (ORecentFileList*) m_pRecentFileList) ->SerializeORFList (f p, is_loading) ; 

^2 // Close data file 
f close (fp) ; 

r; 

O/// //////////////////////////////////////////////////////////////////////// 

Ql The one and only CDCMApp object 
CDCMApp theApp; 

///////////////////////////////////////////////////////////////////////////// 
// CDCMApp initialization 
BOOL CDCMApp: :Init Instanced 
{ 

// Ensure that only one DCM copy is running 

HANDLE hMutex = CreateMutex ( NULL, FALSE, "DCM_UNIQUE_MUTEX " ) ; 
if ( NULL i= hMutex && ERROR_ALREADY_EXISTS Ge t Las tError ( ) ) 
{ 

CWnd * hWnd = CWnd : : FindWindow ( NULL , "DCM_UNIQUS_MUTEX" ) ; 

if ( hWnd NULL ) 

{ 

// if found make it the current window 
hWnd- >SetForegroundWindow 0 ; 

} 

Af xMessageBox ( "DCM is already running <"}; 
return FALSE; 

} 



// Check the time bomb 

if ( ! TimeBomb 0 ) return FALSE; 

// Socket support 

if ( ! AfxSocketlnit () ) 
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{ 

AfxMessageBox ( "Windows sockets failed"); 
return FALSE; 

} 

Af xEnableControlContainer ( ) ; 

// Standard initialization 
#ifdef _AFXDLL 

Enable3dControls C ) // Call this v;hen using MFC in a shared DLL 

#else 

Enable3dControlsStatic ( ) ; // Call this when linking to MFC statically 
#endif 

// Change the registry key under which our settings are stored. 
// You should modify this string to be something appropriate 
// such as the name of your company or organization, 
SetRegistryKey (_T ( "DCM Workstation" ) ) ; 

LoadStdProf ileSett ings ( ) ; // Load standard INI file options (including MRU) 

// Register the application's document templates. Document templates 
// serve as the connection between documents, frame windows and views. 

CMultiDocTemplate* pDocTemplate ; 
pDocTemplate - new CMul t iDocTemplate ( 

IDR^DCMTYPE, 

RUNTIME_CLASS (CDCMDoc) , 

RUNTIME_CLASS (CChildFrame) , //custom MDI child frame 
RUNTIME_CLASS (CDCMView) ) ; 
'":f AddDocTemplate (pDocTemplate) ; 

£1 // create main MDI Frame window 

,f-3 CMainFrame* pMainFrame = new CMainFrame; // does not need any "delete" later 
if (! (pMainFrame ->LoadFrame ( IDR_MAINFRAME) ) ) return FALSE; 

m_pMainWnd = pMainFrame; 

ift- // Set application graphics parameters 

1; HDC 3crHdc=GetDC (NULL) ; // grab screen DC GetDC 

app_Metheus = ( IsMetheusDevice ( scrHdc) = = TRUE) ; 
H app_ScreenResolution . cx= : : GetDeviceCaps ( scrHdc , HORZRES) ; 
L\ app_ScreenResolut ion. cy= : : GetDeviceCaps ( scrHdc , VERTRES ) ; 

^.z. app^Resolut ionScaleFactor= min (app_ScreenResolution . cx/ 800 , 

app^ScreenResolut ion . cx/600 ) ; 
lU if (app_Resolut ionScaleFactor<l) app_ResolutionScaleFactor:=l ; 

app_Pen . CreatePen ( PS_SOLID , 2*theApp . app_Resolut ionScaleFactor , 
RGB(250,250,250} ) ; 

int fac= min ( 2 , theApp . app_Resolut ionScaleFactor ) ; 

C int pix20mm = ( 25*app_ScreenResolut ion . cy ) / : : GetDeviceCaps ( scrHdc , VERTSIZE) ; 

app_SmallFont , CreatePointFont (pix20mm, "Arial", NULL); 

app_MediumFont . CreatePointFont ( ( 3 *pix2 0mm) /2 , " Svjiss" , NULL) ; 

app_LargeFont . CreatePointFont (2*pix20mra^ "Swiss", NULL) ; 

if (app__Metheus ) 

{ 

app_SupportedPaletteSize = 4 0 96 ; 
MetheusEscDEVINFO mdinf ; 
MetheusGetDEVINFO ( scrHdc , Mdinf ) ; 

app__DynamicPaletteStart=mdinf . StartExtraPal + app__SupportedPalet teSize; 

} 

else 

{ 

app_DynamicPalet teStart = 0 ; 

if (GetDeviceCaps (scrHdc, RASTERCAPS) S:RC_PALETTS) 
{ 

app_SupportedPaletteSize=GetDeviceCaps { scrHdc , SI ZEPALETTE) ; 
if ( app_SupportedPaletteSize<255 ) app_SupportedPalet teSi2e= 0 ; 

} 

else app_SupportedPaletteSize=0 ; 

} 

ReleaseDC (NULL, scrHdc) ; 

// Parse command line for standard shell commands, DDE, file open 
CCommandLine Inf o cmdinfo; 
ParseCommandLine ( cmdinf o) ; 
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// Dispatch commands specified on the command line 
if ( ! ProcessShellCommand (cmdinf o) ) 
return FALSE; 

// The main window has been initialized, so shov; and update it. 

pMainFrame->ShowWindow (m_nCmdShow) ; 

pMainFrame->UpdateWindow ( ) ; 

//Do not initialize an empty document 

//pMainFrame->MD I Get Active ( ) ->MDIDestroy ( ) ; 

pMainFrame- >MDI Ge t Active ( ) ->GetActiveDocument ( ) - >OnCloseDocument ( ) ; 

// Set working directories 

if ( ISetDirectories () ) return FALSE; 

// Test some code 

if ( ITestFunctionO ) return FALSE; 
// Initialize File Browser 

if ( ! app_FileBrowser . Initialize (app_DirectoryTmp) ) return FALSE; 
// Initialize progress control 

if (! app_Progr ess . Initialize 0 ) return FALSE; 
// Load RTC 

CString path=app_DirectoryRoot ; 

path=app_DirectoryRoot . Lef t (app_DirectoryRoot . GetLength ( ) -6 ) ; // remove "/Applic" 
path+=CString ( "dcmdict . txt " ) ; 

bool dictEnabled = (app_RTC . AttachRTC (( char* ) (LPCSTR) path, : : ShowProgress) ==TRUE) 
f-s ( (CMainFrame* ) m_pMain^^nd) ->SetDictionaryStatus (dictEnabled) ; 

// Initialize log files {must go after RTC and directory initialization 
Ol if ( 1 app_ClientLog. CreateDVL ( 

{char*} (LPCSTR) ( theApp . app_DirectoryData+ " \\Cl ientLog . txt " ) , &app_RTC) ) 

'^^ AfxMessageBox (" Cannot initialize client log"); 

y;i return FALSE; 

j^'";; if ( I app_ServerLog , Great eDVL ( 

(char*) (LPCSTR) ( theApp . app_DirectoryData+ " \\ServerLog . txt " ) ,&app_RTC)] 

. { 

L;, AfxMessageBox ( "Cannot initialize server log"); 

P=, return FALSE; 

lU if ( 1 app_QueryRetrieve . Init ializeQueryRetrieve ( &app_ClientLog , 
%J &app_ServerLog , &app_DataBase) ) 

^Jf return FALSE; 

// Load serialized data 
SerializeApp ( true) ; 

return TRUE; 

} 

* Set directory structure 
* 

bool CDCMApp : : SetDirectories 0 

{ 

bool newdir=f alse ; 
app__DirectoryTmp= " " ; 
// Get root directory 

app_Dir ectoryRoot = Get Prof ile String (" Directories " , "Root " ^ " " ) ; 

if {app_DirectoryRoot . Find (" Prof ile" ) >0) app_DirectoryRoot= " " ; // avoid desktop 
if (app_Direct oryRoot== " " ) // reset 

{ 

newdir=true ; 

app_DirectoryRoot = est ring ( thi s - >m_pszHelpFilePath) ; 

app_DirectoryRoot . TrimRight ( ) ; 

app_DirectoryRoot , Replace { " / " / " \\ " ) ; 

int n=app_DirectoryRoot . Rever seFind ( ' \\ ' ) ; 

if (n>0) app_DirectoryRoot=app_DirectoryRoot . Lef t (n) ; 
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app_DirectoryRoot += CStr ing ( " \\Appl ic " ) ; 

WriteProf ileString ( "Directories " , "Root " , app^DirectoryRoot ) ; 

} 

// Can we access root directory ? 

//if (SetCurrentDirectory (app_DirectoryRoot) ==FALSE) 
if { ! : : CreateAndSetCurrentDirectory ( 

(char*) (LPCSTR) app_DirectoryRoot ) ) 

{ 

WriteProf ileString ( "Directories" , "Root" , " " ) ; 

AfxMessageBox (" Failed to setup the application directory"); 
return false; 

1 

// Create subdirectories 
app_D j rectoryRoot . Replace ("/"," \\ ") ; 
app_DirectoryTmp =app_DirectoryRoot + " \\temp" ; 
app_DirectoryData = app_DirectoryRoot + " \ \data" ; 
CreateDirectory (app_DirectoryTmp, NULL) ; 
CreateDirectory Capp_DirectoryData , NULL) ; 
CString dbdir=app_DirectoryRoot+ " \\DataBase " ; 

if ( ! app_DataBase . Init ializeDataBase ( ( char*) (LPCSTR) dbdir , &DisplayRecords) ) 
{ 

WriteProf ileString ( "Directories" , "Root" , " " ) ; 
return false; 

} 

if (newdir) 

{ 

CString info; 

AfxFormatStringl (inf o, IDS_DIRECTORY_SETUP , app_DirectoryRoot ) ; 
n AfxMessageBox(info, MB_I CON INFORMATION | MB_OK) ; 

'•'^^ return true; 

}yi 



* 2'' Open (create) a new document 

(document* CDCMApp ; :OpenDocumentFile (LPCTSTR IpssFileNatne , bool AddToDatabase ) 

|y 

H Beep(700, 200) ; 

Li. if ( 1 IpszFileKame 1| IpszFi leName = = " " ) return NULL; 

Shov/Progress (5 Farcing image file..."); 

'^"^ CDCMDoc* pDoc = (CDCMDoc*) ( CWmApp : : OpenDocuraentFile ( IpssFi leName ) ) 

ilJ if(!pDoc) return NULL; 

■\J if (pDoc->IsEmpty ( ) ) 

pDoc->OnCloseDocument ( ) ; // kill empty or invalid documents 
LI ShowPr ogress (0 , "Ready" ) ; 

return NULL; 

} 

else // Looks like a nice DICOM document 

{ 

( (ORecentFileList* ) m_pRecentFileList ) - >AddMenuAl ias (IpszFileName , 

pDoc->GetMRUAlias 0 ) ; 

if (AddToDatabase) 

{ 

app_DataBase.DBAdd( * (pDoc->GetDICOMRecordPtr () ) ) ; 

} 

ShowProgre s s ( 0 , " Ready " ) ; 
return pDoc; 

} 

} 

LRESULT CDCMApp : :OnDisplayMostRecent (WPARAM wParam, LPARAM IParam) 

{ 

if(!wParam) return OL; 

Array<DlCOMRecord>* a = {Array<DICOMRecord>*) wParam; 

if ( 1 a) return OL; 

if (a- >GetSize ( ) <=0 ) return OL; 

CDCMDoc* pDoc ^ NULL; 

// Any documents open ? 

POSITION pos = theApp . GetFirstDocTemplatePosit ion ( ) ; 
CMult iDocTemplate* pDocTemplate = NULL; 
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if (pos) 

{ 

pDocTemplate = (CMult iDocTemplate* } 
( theApp. GetNextDocTemplate (pos) ) ; 

} 

// Go through all existing documents 
if (pDocTemplate) 

{ 

POSITION posDoc ^ pDocTemplate->GetFirstDocPosition ( ) ; 
while(posDoc a->GetSi2e () >0) 

{ 

pDoc = (CDCMDoc^) (pDocTemplate->GetNextDoc (posDoc) ) ; 
if ( ! pDoc) break; 
pDQC->AddDICOMRecords ( *a) ; 
pDoc- >OnViewRe fresh ( ) ; 

} 

} 

// Open new documents, if needed 

while (a->GetSi2;e{)>0) 

{ 

pDoc = (CDCMDoc*) ( 

theApp . OpenDocumentFile (a- >Get ( 0) . GetFileName ( ) , false) ) ; 
a - >RemoveAt { 0 ) ; 
if(!pDoc) continue; 
pDoc->AddDICOMRecords ( '^^a) ; 
pDoc- >OnViewRef resh ( ) ; 

o } 

return OL; 




ugi-d CDCMApp : :DisplayRecords (Array<DICOMRecord> &a, bool from^local) 

MJ theApp. Post ThreadMes sage (WM_USER_DISPLAy_MOST_RECEMT, (WPARAM) &a , 
kQ (LPARAM) from_local) ; 

while (a . GetSize ( ) >0) Sleep (100); 

I 

Launch DICOM browser 
Vt)id CDCMApp :: OnFileBrowse ( ) 

{ 

if (app_FileBrowser . DoModal ( ) :==IDOK) 

{ 

this->OpenDocumentFile ( app_Fi leBrowser - m_RequestedFi le , true) ; 



*■ Start or Terminate Query/Retrieve session 
void CDCMApp: : OnFileQueryRetr ieve ( ) 

( 

app_QueryRetrieve . SwitchAppearance ( ) ; 

} 

void CDCMApp : :OnUpdateFi leQueryRetr ieve (CCmdUI* pCmdUI ) 

{ 

static bool state=false; 

bool check = (app_QueryRetrieve . GetSaf eHwnd ( ) J= NULL 

app_QueryRetrieve . I siconic ( ) FALSE); 
pCmdUI->SetCheck (check) ; 
if (check i~ state) 

{ 

state=check; 

CMainFrame* mf = (CMainFrame* ) Af xGetMainWnd ( ) ; 
if (mf) mf - >EnableLogoAnimat ion ( 1 check) ; 
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} 

* DataBase menu handlers 
* 

void CDCMApp: rOnDataBaselmportFiles { ) 

{ 

// Display modal FileOpen dialog 
CCustomFileDialog fd; 

fd . SetTitle (" Select Files/Directories to Import into the Database"); 

if (f d.DoModal 0 1= IDOK ) return; 

int count = f d . GetSelectedCount ( ) ; 

if(count<=0) return; 

// Process selected strings 

bool subdir = ( f d . m_SelectSubdirector ies TRUE) ; 

for(UIMT ind=0; ind < (UINT) count; ind ++) 

{ 

ShowProgress ( 9 0* ( ind+1 ) /count , "Importing ... "); 

app_DataBase . ImportDirectory ( (char'*^) (LPCSTR) ( f d , GetSelectedAt { ind) ) , 

subdir) ; 

} 

ShowProgress ( 0 ) ; 
return," 

} 

void CDCMApp: :OnDataBaseAttachFiles() 
{ 

Q // Display modal FileOpen dialog 

CCustomFileDialog fd; 
5: fd. SetTitle ( "Select Files/Directories to Attach to the Database"); 

if (fd.DoModal ( ) 1= IDOK ) return; 
y;5 int count = fd. GetSelectedCount () ; 
^^r; if(count< = 0) return; 

// Process selected strings 
^4 bool subdir = ( fd . m_Select Subdirectories == TRUE) ; 
ifj for (UINT ind=0; ind < (UINT) count; ind ++) 

ShowProgress ( 90* ( ind+1) /count , "Attaching ... "); 
^ app_DataBase.AttachDirectory ( (char*) (LPCSTR) ( f d . Get SelectedAt ( ind) ) , 

h^^ subdir) ; 



ShowProgress ( 0 ) ; 
return; 

n 

V^id CDCMApp: : OnDataBaseRemoveFiles Imported ( ) 

K 

// Display modal FileOpen dialog 
CCustomFileDialog fd; 

fd . SetTitle ( "Select Imported Files/Directories to Remove from the Database") 

if (fd.DoModal 0 '= IDOK ) return; 

int count = f d . Get SelectedCount ( ) ; 

if(count<-0) return; 

// Process selected strings 

bool subdir = { f d . m^SelectSubdirectories TRUE) ; 

for (UINT ind=0; ind < (UINT) count; ind ++) 

I 

ShowProgress ( 90* ( ind+1) /count , "Removing selected ... "); 
^PP_Da-taBase . UnlmportDirectory ( 

(char*) (LPCSTR) { f d . Get SelectedAt ( ind) ) , subdir) ; 

} 

ShowProgress ( 0) ; 
return; 

} 

void CDCMApp: : OnDataBaseRemoveFilesAttached ( ) 

{ 

// Display modal FileOpen dialog 
CCustomFileDialog fd; 

fd. SetTitle ( "Select Attached Files/Directories to Remove from the Database") 

if (fd.DoModal 0 != IDOK ) return; 

int count = fd, GetSelectedCount () ; 

if (count<=0) return; 

// Process selected strings 

bool subdir = (f d.m Select Subdirectories TRUE) ; 
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for(UINT ind=0; ind < (UIMT) count; ind ++) 
{ 

ShowProgress (90* ( ind+1) /count , "Removing attached ... "); 
app_DataBase . UnAttachDirectory ( (char*) (LPCSTR) ( f d . Get SelectedAt (ind) ) , 
subdir) ; 

) 

ShowProgress ( 0 ) ; 
return ; 

} 

void CDCMApp: : OnDataBaseAddRecords () 

{ 

app_QueryRetrieve . DoModeless ( ) ; 

} 

void CDCMApp: : OnDataBaseRemoveRecords () 

{ 

DQRSearch ds; 

if (ds.DoModal (] i= IDOK) return; 

if (AfxMessageBox ( "Delete specified items from local database 
MB_YESNO) 1= IDYES) return; 

DICOMRecord dr ; 

ds . WritelntoDICOMRecord (dr) ; 

int n - app_DataBase . DBRemove ( dr ) ; 

if (n>0) 

( 

CString info; 

inf o . Format ('* %d records were removed from the local database\n\n" 
"Some of the records in the query results window\n" 
"may no longer be valid i"^n); 
,^jf AfxMessageBox (infO; MB_ICONINFORMATIOK) ; 

y1 else AfxMessageBox ( "No matching records found", MB_ICONINFORMATION) ; 
v^rd CDCMApp : :OnDataBaseRemoveALLRecords ( ) 
Ui app_DataBase . RemoveAllRecords ( ) ; 

to 



g:'' Move window to right bottom corner of the screen 

fU (with specified offset) 

%J Use to display utility dialogs 

hiid CDCMApp : :MoveWindowToCorner (CWnd *wnd, 

CSize of f set/*=CSi2e (0, 0) */) 

{ 

CRect v;r; 

wnd- >GetWindowRect (wr) ; 

wr .Off set Re ct (app_ScreenResolut ion-wr . Bot tomRight ( ) 

-CSize (40,4 0) -offset) ; 
wnd- >MoveWindow (wr , TRUE) ; 
wnd->BringWindowToTop { ) ; 

} 

* Time bomb 

■k 

bool CDCMApp : :TimeBomb ( ) 

I 

CTime t = CTime : : GetCurrentTime ( ) ; 
CTime t stop ( 2 00 0,12 , 1 , 1 , 1 , 1) ; 
if (t>=tstop) 
{ 

AfxMessageBox ( "Program expired 1", MB_ICONEXCLAMATION | MB_OK) ; 
return false; 

} 

return true; 

1 
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* This function is used for code testing only 

#include "AccurateTimer . h" 
BOOL CDCMApp : : TestFunction ( ) 
{ 

/* MemoryLeakTest mlt; 
mlt . Start ( ) ; 
{ 

DICOMOb^ect dl, d2; 

dl . LoadFromFile { "D : \ \DICOM\\Data\\0 , dcm" ) ; 
d2 . LoadFromFile ( "D : \\DICOM\\Data\\00 . dcm" ) ; 

ImageSeries si, s2; 
sl .ReadDO (dl) ; 
s2.ReadDO(d2) ; 
s L . Append ( s2 ) 

} 

mlt .End (1) ; 
return FALSE; 



return TRUE; 

} 

■k 

Displaying progress in the min frame status bar 

^-''"-^ 

vgfd CDCMApp : : ShowProgress ( int percent, char* info /* =NULL*/) 
app_Progress . ShowProgress (percent , info); 

Displaying meaninful recent file list names 

4aid CDCMApp : rLoadStdProf ileSettings (UINT nMaxMRU/*= _AFX_MRU_COUNT*/ ) 

fsj const TCHAR _af xFi leSect ion [ ] = _T("Recent File List"); 

const TCHAR _af xFileEntry [ ] ^ _T ( " Fi le%d" ) ; 
^ const TCHAR _af xPreviewSect ion [ ] = _T ( " Sett ings " ) ; 

const TCHAR __af xPreviewEntry [ ] = _T ( " PreviewPages" ) ; 
Cl ASSERT_VALID ( this) ; 

ASSERT (m_pRecentFileList ^= NULL); 

i f ( nMaxMRU 1 = 0 ) 

{ 

// create file MRU since nMaxMRU not zero 

m_pRecentFileList = new ORecent FileList ( 0 , _af xFi leSect ion , _af xFi leEntry , 

nMaxMRU) ; 
m_pRecentFileList->ReadList ( ) ; 

} 

// 0 by default means not set 

m_nNumPreviewPages = GetProf ileint (_af xPreviewSect ion, _af xPreviewEntry , 0); 



///////////////////////////////////////////////////////////////////////////// 
// CAboutDlg dialog used for App About 

class CAboutDlg : public CDialog 

{ 

public : 

CAboutDlg 0 ; 



// Dialog Data 

//{ {aFX_DATA( CAboutDlg) 
enum { IDD = IDD_ABOUTBOX } ; 
//} }APX_DATA 
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// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CAboutDlg) 
protected : 

virtual void DoDataExchange ( CDataExchange* pDX) // DDX/DDV support 

/ / } }AFX_VIR.TUAL 

// Implementation 
protected : 

//{ {AFX_MSG (CAboutDlg) 

// No message handlers 

// } }AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

CAboutDlg: : CAboutDlg () : CDialog (CAboutDlg : : IDD) 
{ 

// { {AFX_DATA_IWIT (CAboutDlg) 
// } }AFX_DATA_INIT 

} 

void CAboutDlg : :DoDataExchange (CDataExchange* pDX) 

{ 

CDialog: : DoDataExchange (pDX) ; 
// { {AFX_DATA_MAP (CAboutDlg) 
//}}AFX_DATA_MAP 

} 

BP9IN_MES SAGE_MAP ( CAbou t Dig, CD i a 1 og ) 
//{ {AFX_MSG_MAP (CAboutDlg) 

M:J //Mo message handlers 

111 / / } }AFX_MSG_MAP 
Eic>_MESSAGE_MAP ( ) 

/'/■^i App command to run the dialog 
ujplid CDCMApp : :OnAppAbout ( ) 

iii 

rf. CAboutDlg aboutDlg; 
^'^^ aboutDlg . DoModal () ; 

HI/////////////////////////////////////////////////////////////////////////// 

)y ORecentFileList 

■i^^id ORecentFileList : :UpdateMenu (CCmdUI *pCmdUI) 

if 

LJ ASSERT (m_arrNames != NULL); 

CMenu* pMenu = pCmdUI - >m_pMenu ; 

if (m_strOriginal . IsEmpty 0 && pMenu 1= NULL) 

pMenu->GetMenuString (pCiTidUI->m_nID, m_strOriginal , MF^BYCOMMAND) ; 

if (m_arrNames [ 0] . I sEmpty () ) 

{ 

// no MRU files 

if (! m_strOriginal . IsEmpty () ) 

pCmdUI ->SetText (m_strOriginal) ; 
pCmdUI->Snable (FALSE) ; 
return; 

} 

if (pCmdUI->m_pMenu NULL) 
return; 

for (int iMRU = 0; iMRU < m__nSize; iMRU+ + ) 

pCmdUI->m_pMenu->DeleteMenu (pCmdUI->m_nID + iMRU, MF__BYCOMMAND) ; 

TCHAR szCurDir [_MAX_PATH] ; 

GetCurrentDirectory (_MAX_PATH, szCurDir) ; 
int nCurDir = 1 strlen { szCurDir ) ; 
ASSERT (nCurDir >= 0); 
szCurDir [nCurDir] ~ ' \\ ' ; 
szCurDir [++nCurDir] = '\0'; 
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CString strName; 

CString strTemp; 

CString strMenu= " Ku-ku " ; 

for (iMRU = 0; iMRU < m_nSize; iMRU++) 

{ 

if (! GetDisplayName ( StrName , iMRU, szCurDir, nCurDir) ) 
break; 

// double up any characters so they are not underlined 

LPCTSTR IpszSrc = strName,- 

LPTSTR IpszDest = strTemp , GetBuffer ( strName . GetLength ()* 2 ) ; 
while (*lpszSrc != 0) 

{ 

if (*lps2Src ^ &' ) 

*lpS2Dest + + = ' Sc ' ; 

if (_istlead(*lpszSrc) ) 

*lps2Dest + + = '*^lpszSrc + + ; 
*lpszDest++ = *lpssSrc++; 

} 

*lpszDest = 0; 

StrTemp . ReleaseBuffer ( ) ; 

// Modification: find menu alias 

if (m_menuNames . Lookup (m_arrNames [iMRU] , strMenu) FALSE) 
{ 

strMenu= StrTemp ; 

} 

// insert mnemonic + the file name 
Q TCHAR buf [10] ; 

wsprintf (buf , _T("&%d ( iMRU+l+m_nStart ) % 10); 

pCmdUI - >m_pMenu- > InsertMenu {pCmdUI - >m__nIndex+4- , 
MF_STRING I MF_BYPOSITIOM, pCmdUI - >m_nID + + , 
UJ CString(buf) + strMenu); 

I / update end menu count 

pCmdUI ->m_nlndex- - ; // point to last menu added 
fy pCmdUI->m_nIndexMax = pCmdUI - >m_pMenu- >GetMenuI temCount ( ) 

Z pCmdUI ->m_bEnableChanged = TRUE; // all the added items are enabled 

t: 

i^"",. Insert "mname" as a menu alias to existing "fname" file 

^t^ssid ORecentFileList : :AddMenuAlias (LPCTSTR fname, CString mname) 

m^menuNames . Set At ( fname , mname) ; 
CleanMenuAliases () ; 

} 

■k 

* Remove old menu aliases 

void ORecentFileList: : CleanMenuAl iases () 

{ 

bool found ; 

int i; 
POSITION pos; 
CString key, val ; 

for( pos = m_menuNames . GetStartPosit ion 0 ; pos 1= NULL; ) 

{ 

m_menuNames . GetMext Assoc (pos , key, val); 
f ound=f al se ; 

for(i=0; i<m_nSi2e; i++) 

{ 

if (m_arrNames [ i] -=key) { found = true; break; } 

} 

if ( ! found) m__menuNames . RemoveKey ( key) ; 



11 



DCM. cpp 



10/27/00 



* Serialize MRU list aliases 

void ORecentFileList 1 : SerializeORFList (FILE* fp, bool is_loading) 

{ 

if { ! f p) return; 
int n, k; 

char key [MAX_PATH+1] , val [MAX_PATH+1] ; 
if ( is ^loading) 

{ 

m _menuName s . RemoveAl 1 ( ) ; 
: : Serializelnteger (f p , 11/ true) ; 
if (n<=0) return; 
for(k=0; k<n; k++) 

( 

: : SerializeString ( f p, key, true); 
: : SerializeString ( fp, val; true); 
m_nfienuMames . Set At (key , val) ; 



else 



CleanMenuAliases ( ) ; 

n=Tn__menuMames . Get Count ( ) ; 

: : Serializelnteger { fp , n, false) ; 

POSITION pos; 

CString ks, vs; 

f or { pos = m_menuNames . Get Star tPo sit ion () ; pos 1= NULL; ) 

{ 

m__menuNames . GetNext Assoc (pos , ks, vs); 

sprint f (key, " %s" , ks) ; 

: : SerializeString (f p/ key, false); 

sprintf (val , " %s " , vs) ; 

: : SerializeString (fp, val, false); 
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// ChildFrm.h : interface of the CChildFrame class 
// 

///////////////////////////////////////////////////////////////////////////// 

#if ! defined (AFX_CHILDFRM_H 03 9FD0CD_6 8EA_1 1D2_95 76_00105A21 774F INCLUDED^) 

#def ine AFX_CHILDFRM_H 0 3 9FD0CD_6 8EA_11D2_95 76^0 0 105A21 7 74 F INCLUDSD_ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 

class CChildFrame : public CMDIChildWnd 
{ 

DECLARE^DYNCREATE (CChildFrame) 
public : 

CChildFrame ( ) ; 

// Attributes 
publ ic : 

// Operations 
publ ic : 

// Overrides 

// ClassWisard generated virtual function overrides 
/ / { { AFX_VIRTUAL ( CChi IdFrame ) 
public : 

virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 
virtual void ActivateFrame ( int nCmdShow = -1) ; 
k-f // } }afx_virtual 

/fj^T Implementation 
p5,blic : 

virtual -CChildFrame () ; 
fiidef _DEBUG 

^ virtual void AssertValid { ) const; 
7:r, virtual void Dump (CDumpContext& dc) const; 
j^Tidif 

i/ Generated message map functions 
protected : 

II { {AFX_MSG( CChildFrame) 

afx_msg void OnMove ( int x, int y) ; 
Hj: //}}AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

fl 

|//////////////////////////////////////////////////////////////////////////// 

//{ {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 

#endif // 1 defined ( AFX_CHILDFRM_H 03 9FD0CD_6 8EA_11D2_95 76_001 05A21 774F INCLUDED^) 
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// ChildFrm. cpp : implementation of the CChildFrame class 
// 

#include "stdafx.h" 
#include "DCM.h" 
#include "DCMView.h" 

#include ChildFrm . h" 

#ifdef _DEBUG 

# define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = FILE ; 

#endif 

///////////////////////////////////////////////////////////////////////////// 
// CChildFrame 

IMPLEMENT_DYWCREATE ( CChi IdFrame , CMDI Chi 1 dWnd) 

BSGIN_MES SAGE_MAP ( CChi 1 dFrame , CMD I Chi 1 dWnd) 

/ / { { AFX_MSG_MAP ( CChi 1 dFrame ) 

ON_WM_MOVE ( ) 

//} }AFX_MSG_MAP 
END_MESSAGE_MAP ( ) 

///////////////////////////////////////////////////////////////////////////// 
// CChildFrame construction/destruction 

d^ildFrame: : CChi IdFrame { ) 

Gl // TODO: add member initialization code here 

B 

eiSiildPrame : -CChildFrame ( ) 

BOOL CChildFrame: .■PreCreateWindow(CREATESTRUCT& cs) 
k 

// TODO : Modify the Window class or styles here by modifying 
II the CREATESTRUCT cs 
\\\ return CMDIChildWnd: : PreCreateWindow (cs) ; 

K 

%i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

CChildFrame diagnostics 
#ifdef __DEBUG 

void CChildFrame : :AssertValid ( ) const 

{ 

CMDIChildWnd: : AssertValid ( ) ; 

} 

void CChildFrame :: Dump (CDumpContext& dc) const 
{ 

CMDIChildWnd: :Dump{dc) ; 

} 

#endif //_DEBUG 

///////////////////////////////////////////////////////////////////////////// 
// CChildFrame message handlers 

void CChildFrame :: Act ivateFrame ( int nCmdShow) 
{ 

CMDIChildWnd: : Act ivateFrame (SW SHOWMAXIMIZED) ; 



* Responds to view window moves 
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void CChildFrame : : OnMove ( int x, infc y) 

{ 

CDCMView *pView = (CDCMView* ) GetAct i veView ( ) ; 
if(!pView) return; 
pView- >EraseTools ( ] ; 

/* 

// determine desired size of the view 
CRect temp (0 , 0,0,0) j 

pVieW">CalcWindowRect (temp, CWnd: : adj ustBorder ) ; 
CalcVUndowRect (temp, CWnd: : ad j ustBorder ) ; 
CWnd* pFrameParent = GetParentO; 

CRect rcBound; 

pFrameParent->GetClientRect (rcBound) ; 

//GWinRect rcBound (pFrameParent , CWinRect CLIENT) ; 

CRect rectView(CPoint (0, 0), pView->GetTotalSize () ) ; 

rectView . right = min (rectView. right , rcBound . right - temp . Width ()) ; 

rectView. bottom = min (rectView, bottom, rcBound . bottom - temp . Height ()) ; 

pView- >CalcWindowRect (rectView, CWnd: : adjustOut side) ; 
CalcWindowRect (rectView, CWnd: : adj ustBorder) ; 
rectView -= rectView. TopLef t () ; 

rectView. right = min (rectView, right , rcBound . right ) ; 

rectViev/. bottom = min ( rectView. bottom, rcBound . bottom) ; 

*/ 
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// DCMDoc.h : interface of the CDCMDoc class 
// 

///////////////////////////////////////////////////////////////////////////// 



#if 'defined ( AFX_DCMDOC_H 039FDOCF_68EA_11D2_9576_00105A21774F INCLUDED_) 

#def ine AFX_DCMDOC_H 0 3 9FDOCF_6SEA_11D2_9576_0 0105A21774F INCLUDED^ 

#if _MSC_VER >= 1000 
#pragma once 

#endif // _MSC_VER >= 1000 
#include "MainFrm.h" 

^include "Lupa.h" // Added by ClassView 

#include "DICOM_H\DICOMDocument . h" // Added by ClassView 
class CDCMDoc : public CDocument, public DICOMDocument 

{ 

protected: // create from serialisation only 
CDCMDoc C ) ; 

DECLARE_DYNCREATE (CDCMDoc) 
public : 

m_imageZoom, m_irnage2oomF it Screen ; 
m_Lupa ; 
m_MainFrame ; 

OnZoom{UJNT nID, Image *pBmp) ; 
Gofcolmage ( int code) ; 
^CDCMDoc ( ) ; 



m_SoundFileName ; 

GetDIBImage ( int n) ; 
GetDIBImage ( ) ; 
GetViewPtr 0 ; 

pihlic : 

void OnViewRef resh (BOOL erase__background=FALSE) ; 
Overrides 

P~ // ClassWizard generated virtual function overrides 
J! //{ {AFX_VIRTUAL (CDCMDoc) 
lU public: 

\| virtual void Serial ize (CArchive& ar) ; 
//}}AFX_VIRTUAL 

iifdef _pEBUG 

virtual void AssertVal id ( ) const; 

virtual void Dump ( CDumpCon text & dc) const; 
#endif 



double 
Lupa 

CMainFrame* 

bool 
Image* 
f^';T virtual 

gUivate : 
.f^ est ring 

Image 
Image* 
CView* 



// Generated message map functions 
protected : 

/ / { { AFX_MSG ( CDCMDoc ) 

afx_msg void OnFileSendMail () ; 

afx_msg void OnUpdateFileSendMai 1 (CCmdUI * pCmdUI); 

afx__msg void OnUpdateZoomFit Screen (CCmdUI * pCmdUI); 

afx_msg void OnUpdateFrameNumber (CCmdUI 5^ pCmdUI); 

afx__msg void Set FitScreenZoom ( ) ; 

afx_msg void OnViewDicomInf o () ; 

afx_msg void OnFileSave ( ) ; 

afx_TTLsg void OnFi leSaveAs ( ) ; 

afx_Tnsg void OnSoundRecord ( ) ; 

// }'}AFX_MSG 

DECLARE_MESSAGE_MAP ( ) 

}; 

///////////////////////////////////////////////////////////////////////////// 
// { {afx_insert_location} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 
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#endif // 'defined (AFX DCMDOC H 039FD0CF 68EA 11D2 9576 00105A21774F INCLUDED^) 



I 
I 
I 
I 
I 
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// DCMDoc . cpp 
// 



implementation of the CDCMDoc class 



#include "stdafx.h" 
#include "DCM.h" 

tinclude "DCMDoc. h" 

include "DCMView.h" 
#include " SoundDialog . h" 
#include " Tool s/Email , h" 



#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 
static char THIS_FILE[I 
#endif 



FILE 



I { 1 1 1 1 ( 1 1 1 f 1 1 1 1/ 1 1 1 ( I / 1 n 1 1 1 1 1 n 11 1 1 1 1 / 1 1 1 j 1 1 1 1 1 1 1 f 1 1 1 1 1 1 1 1 1 1 } I { I f 1 1 f u f ( I ( f { 

II CDCMDoc 

IMPLEMENT_DYNCREATE (CDCMDoc, CDocument) 

BEGIN_MESSAGE_MAP ( CDCMDoc , CDocument ) 
//{ {AFX_MSG__MAP (CDCMDoc) 

ON__UPDATE_COMMAND_UI ( ID_ZOOM_FIT_SCREEH , OnUpdateZoomF it Screen) 

ON_COMMAND { I D_ZOOM_F IT^SCREEN, SetFitScreenZoom) 

OM_COMMAND ( I D_V I EW_D I COM INFO , OnV iewDicoralnfo) 
p. OM_COMMAND ( ID_FILE_SAVE , OnFileSave) 
'1? ON_COMMAND(ID_FILE_SAVE_AS, OnFi leSaveAs ) 
C" ON_COMMAND ( ID_SOOTD_RECORD , OnSoundRecord) 

Ol OM_UPDATE_COMMAMD_UI (ID_FRAME_NUMBER, OnUpdateFrameNumber ) 
m II ) }AFX_MSG_MAP 

OM_COMMAND ( I D_F I LE_SEND_MAI L , OnF i 1 e SendMa i 1 ) 
"^f ON_UPDATE_COMMAND_UI ( 1D_FILE_SEND_MAIL , OnUpdat eFi leSendMai 1 ) 
1§D_MESSAGE_MAP ( ) 

Constructor & Destructor 

BIcMDoc: : CDCMDoc 0 

% 

m_MainFrame= (CMainFrame^ ) Af xGetMainWnd 0 ; 
'■^f Tn_imageZoomFitScreen=m_imageZoom=l . 0 ; // initial zoom - normal size; 

/* No sound file */ 
m_SoundFileName= " 

} 

CDCMDoc: : -CDCMDoc 0 { ; } 



-k 

* CDCMDoc serilization 

void CDCMDoc :: Serialize (CArchive& ar) 

{ 

if (ar . IsStoring ( ) ) 

{ 

CFile* pFile = ar . GetFile ( ) ; 

if ( IpFile) 

{ 

AfxMessageBox (" Cannot open a file"); 
return; 

} 

DICOMDocument : : SaveDocument (pFile->GetFilePath () , 

DICOMDocument : : FormatDICOMModif led) ; 

return; 

} 

else 
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CFile* pFile = ar.GetFileO; 

if ( !pFile) 

{ 

AfxMessageBox (" Cannot open a file"); 
return; 

} 

ar.FlushO; // flush all data into the file 
// Can we load the DICOM ? 

if ( IDICOMDocument : .-LoadFile (pFile- >GetFilePath { ) ) ) return; 
//AddDDOFile("D:\\Dicom\\Data\\0.dcm") ; // test 
// Do we have any images ? 
if (GetNumber Of Images ( ) < = 0) 

{ 

Af xMessageBox ( "This DICOM object contains no image data", 

MB_0K|MB_IC0NINF0RMATI0M) ; 
return; 

} 

// Update image view 
UpdateAllViews (NULL, 0, NULL ); 
return; 




DEBUG diagnostics 
fifdef _DEBUG 

v-eid CDCMDoc : : AssertValid ( ) const 
'^^^ CDocument : : Assert Val id ( ) ; 

tfi 

v^id CDCMDoc : rDump (CDumpContextS: dc) const 

fit 

^H'- CDocument: :Dump(dc) ; 

4 

gfndif //_DEBUG 



Get image #n or current frame 

Image* CDCMDoc: :GetDIBImage (int n) 
{ 

Image* img = DICOMDocument : :Get Image (GetCurrent Imagelndex ()) ; 
if (limg) return NULL; 
if ( img) 

{ 

m_imageZoom = img- >Get Zoom () ; 

} 

img - DICOMDocument :: Get Image (n) ; 
if (img) 

{ 

m_MainFrame->ShowFrameNumber (GetCurrent Imagelndex ( ) +1 ) ; 
img->m__ScreenMap . ValidateZoom (m_imageZoom) ; // zoom appropriately 

} 

GetCurrent Series ( ) - > Set Select ed Image ( ) ; 
return img; 

} 

Image* CDCMDoc :: GetDIBImage ( ) 
{ 

return GetDIBImage (DICOMDocument : : GetCurrent Image Index () ) ; 

} 

* Go to first (Gode=-2) , previous (code=-l) , 

* next (code=+l) or last (code=+2) image 
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{ 




case 


-2 


case 


-1 


case 


1 


case 


2 



Imaged CDCMDoc : : Gotolmage ( int code) 

{ 

switch (code) 

return GetDIBImage (0) ; 

return GetD IB Image ( Get Current Image Index ()- 1 ) ; 
return GetDIBImage (GetCurrent Image Index () +1 ) ; 
return GetDIBImage (GetNumberOf Images ( ) -1) ; 

} 

return GetDIBImage (GetCurrent Imagelndex () ) ; 

} 

ie 

* Save DICOM document in different formats 
void CDCMDoc : ;OnFileSaveAs ( ) 

{ 

BYTE format; 

CString ffilter-_T{ "DICOM (^) |*|" 

"Windows directory (*.bmp, * . txt , * , wav) | * . | | " ) ; 
CString f name=DICOMDocument : :GetFilename ( ) ; 

// Display modal file dialog 

CFileDialog fd( FALSE, NULL, fname, 

OFN_HIDEREADONLY | 0PN_NONETWORKBUTT0N | 0FN_OVERWRITEPRGMPT , 
y ff liter) ; 

CI if (fd. DoModal ( ) i= IDOK ) return; 

,1;^: // Get save 

^"^^ f name = f d . GetPathName 0 ; 

'^i switch{fd.m of n . nFilter Index ) 



case 1: f ormat^DICOMDocument 



FormatDICOMModif ied; break 



case 2: f ormat = DICOMDocument 

Ml default: f ormat^DICOMDocument 

. } 

DICOMDocument : : SaveDocument (fname, format) ; 
UpdateAllViews (MULL) ; 

p 

Slid CDCMDoc : :OnFileSave 0 

ij 

DICOMDocument: :SaveDICOM() ; 
UpdateAllViews (NULL) ; 

SI 



FormatWINDOWSMult imedia ; break 
FormatDICOMOriginal ; break 



* Reset Doc image zoom; return true if reset was possible 
bool CDCMDoc : ;OnZoom (UIMT nID, Image *pBmp) 

{ 

switch (nID) 

{ 



case 


ID 


_ZOOM_ 


1 


1 


m_ 


_iraageZoom= 


1 


0; 


break 


case 


ID_ 


'Z00M_ 


^1^ 


_2 


m_ 


_imageZoom= 


2 


0; 


break 


case 


ID_ 


'Z00M_ 


"l" 


3 


m_ 


_imageZoom= 


3 


0; 


break 


case 


ID__ 




^1 


_4 


m 


_imageZoom= 


4 


0; 


break 


case 


ID~ 


'zoom 


'2 


_1 


m_ 


_imageZoom= 


0 


5; 


break 


case 


ID 


^ZOOM_ 




_1 


m_ 


_imageZoom= 


1 


0/3 ; 


break 


case 


ID 


'zoom 


"4" 


1 


m_ 


_imageZoom= 


0 


25; 


break 



case 1 : // next smaller zoom 

if (m_imageZoom< 0 . 2 ) return false; 

m_imageZoom /= 1.1; 

break; 



case 2 : // next larger zoom 

if (m_imageZoom>4 ) return false; 

m_image2oom 1.1; 

break; 
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default: return false; // kick out invalid zoom maps 

} 

pBTnp->m_ScreenMap . ValidateZooin (m_imageZoom) ; 

Tn_Lupa , Initialize (m_Lupa . l_scnSize , m_image2oom, m_Lupa . l_zoom) ; 
return true; 

} 

* Set zoom to fit the entire application screen 
void CDCMDoc; ; SetFitScreenZoom ( ) 

( 

if (GetNumberOf Images ( ) <-0) return; 

int img_num=GetCurrent Image Index () ; // save current image index 
Image *img = DICOMDocument Get Image ( 0 ) ; 
CRect main_client; 

Af xGetMainWnd ( ) - >GetClientRect (main__cl lent ) ; 
double screen_width=main_client . Width ( ) - 16 ; 
double screen_height=main_client .Height ( ) -10 0 ; 
if (screen_width<16 && screen_height<16 ) return; 
m_imageZoomFitScreen=min ( screen__width/ img- >GetWidth ( ) , 

screen_height/img->GetHeight ( ) ) ; 
if {m_ imageZoomFi tScreen>4 . 0 ) m_imageZoomFi t Screen=4 . 0 ; 
m_imageZoom=m_imageZoomF it Screen; 

img- >m_Screeniyiap . ValidateZoom (m_imageZoom) ; 

m__Lupa . Initialize (m_Lupa . l_scnSize, m_imageZoom, m_Lupa . l_zoom) ; 

"^ll int off_x=(int} { screen_width-m_imageZoomFi tScreen* img- >GetWidth () ) / 2 ; 
■^-^ int off_y=(int) ( screen_height -m__imageZoomFi tScreen* img- >GetHe ight ( ) ) /2 ; 

II Reset all frames, browse included 

f or ( int n=0; n<GetNumberOf Images () ; n+ + ) 

1. { 

y,J DICOMDocument : :GetImage (n) - >m_ScreenMap . Se tLef t TopScreenPoint (of f_x-f-4 , of f_y+4) 

J". // Reset to original current image 
Hi- DICOMDocument : .-Get Image (img_num) ; 
s UpdateAllViews (NULL) ; 

Vliid CDCMDoc : lOnUpdateZoomFitScreen (CCmdUI* pCmdUI) 

iJ 

\j est ring zinfo; 

zinfo. Format (" Fit view: % . Olf %% " , 100*m_imageZoomFitScreen) ; 

pCmdUI->SetText (zinfo) ; 
P pCmdUI - > Enable ( ) ; 

} 

■k 

* Launch Sound Recorder 
void CDCMDoc : :OnSoundRecord ( ) 

{ 

SoundDialog sd; 
sd.DoModal () ; 

m_SoundFile]sfame=sd . GetWavFileName ( ) ; 

} 



■k 

* Email document as attachment 
void CDCMDoc : lOnFileSendMail ( ) 

{ 

CDocument : : OnFi leSendMail ( ) ; 
/* 

Ema i 1 ma i 1 ; 
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CString message = CString ( " \nAt tached is DICOM image \n"); 

mail . Send ( " " , "DICOM image" .message, //DICOMDocument : :GetFilename { ) 

" " ,Af5^GetMainWnd() - >GetSaf eHwnd ( ) } ; 

} 

void CDCMDoc: :OnUpdateFileSendMail {CCmdUI* pCmdUI) 
{ 

CDocument .* : OnUpdateFi leSendMai 1 (pCmdUI) ; 

} 

it 

* Display DICOM header info 
* 

void CDCMDoc : lOnViewDicomInf o { ) 

{ 

DICOMDocument: :DisplayDICOMInf o ( ) ; 

} 

* Update toolbar image counter 
■k 

void CDCMDoc : :OnUpdateFrameNumber (CCmdUI'^ pCmdUI) 
{ 

m_MainFrame- >ShowFrameNumber {GetCurrent Image Index 0+1) ; 

I- 

^^^■k ki^kicitifi(ki(i(ki<:-kkkkki(kkkiciti(ki(ickificki(i(kifkk-kkifi(if**icicic 

€11 

Ml Get pointer to the current view 
^iew^ CDCMDoc: :GetViewPtr() 

m 

POSITION pos = GetFirstViewPositionO ; 
if (pos != NULL) return GetNextView (pos) ; 
~ else return NULL; 



ki(iti<ic-^i!ic-ki(-k-kicic:k:k-ki<rkk*ick-kki(-kick'kki(ickk*kk-k*kkkickk 



Redraw current view 
M^id CDCMDoc :: OnViewRefresh (BOOL erase_background/ * =FALSE* / ) 

{ 

CDCMView* pView = ( CDCMView* ) GetViewPtr () ; 
if(!pView) return; 

pView->OnViewRef resh (erase_background) ; 
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// MainFrm.h : interface of the CMainFrame class 
// 

///////////////////////////////////////////////////////////////////////////// 

#if ! defined (AFX_MAIKFFRM_H INCLUDED^) 

#define AFX_MAINFRM_H INCLUDED^ 

#if _MSC_VER >= 10 0 0 
#pragma once 

#endif // _MSC_VER >= 1000 

class CMainFrame : public CMDIFrameWnd 
{ 

DECLARE_DYN'AMIC (CMainFrame) 
publi c : 

CMainFrame ( ) ; 

/ / Attributes 

public: / 

/ / Operations 
public : 

// Overrides 

// ClassWizard generated virtual function overrides 
// { {AFX_VIRTUAL (CMainFrame) 
pub lie: 

virtual BOOL PreCreateWindow (CREATESTRUCT& cs) ; 
P^^^ virtual BOOL DestroyWindow ( ) ; 
/ / } } AFX_V I RTUAL 

Implementation 
;^b lie: 

3r void SetDict ionaryStatus (bool enabled); 

"H void EnableLogoAnimat ion (bool enable); 

Jl void ShowMultif rameToolbar (bool show=true) ; 

void ShowFrameNumber ( int n) ; 

virtual -CMainFrame () ; 
ilfdef _DEBUG 

s virtual void AssertValid ( } const; 

virtual void Dump (CDumpContexta dc] const; 
ifndif 

gjrotected: // control bar embedded members 

CStatusBar m_StatusBar; 
^ lEToolBar m_ToolBarBasic , m^ToolBarMult if rame ; 

'-•"^ CAnimateCtrl m_Animate; 
CI CReBar m_ReBar; 

CDialogBar m_wndDlgBar; 



// Generated message map functions 
protected : 

/ / { { AFX_MSG ( CMainFrame ) 

afx_msg int OnCreate (LPCREATESTRUCT IpCreateStruct ) ; 

afx_msg void OnViewToolbar ( ) ; 

afx__msg void OnUpda teViewToolbar [ CCmdUI * pCmdUI); 
afx__msg void OnDropFiles (HDROP hDropInfo) ; 
// } }AFX_MSG 

afx_msg void OnUpdateProgressStatus (CCmdUI ^pCmdUI ) ; 
afx_msg void OnToolbarDropDown (NMTOOLBAR* pnmh, LRESULT* plRes) ; 
DECLARE_MESSAGE_MAP ( ) 
private : 

bool m_shov/Toolbars ; 

CString m_paneString ; 

}; 

///////////////////////////////////////////////////////////////////////////// 
//{ {afx_insert_locatiow} } 

// Microsoft Developer Studio will insert additional declarations immediately before the previous 
line . 



#endif // J def ined [AFX_MAINFRM_H INCLUDED^) 
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